整理贴：插入导出表格图片及区域导出图片等

一个一直一

谢谢分享了。参考一下下

hrb12345678

非常实用的程序。

yiye6900345

图片相关！！！！！！！！！！

poongsan

若干年后还用得到谢谢

zylz9941

谢谢楼主的分享

excel.x

fxl447098457 发表于 2018-11-15 21:07
你代码都没找对地方。。。。见红色部分。导出图片的代码。
            With ActiveSheet.ChartObjects. ...

感谢大神，哪里能学习到这些知识呢。

丶默兮漓

liulang0808 发表于 2018-10-22 15:52
将指定文件夹的照片按照姓名插入到表格内

如果不是全部都是jpg，也有png或者其他格式的图片的话要怎么修改这个格式呢

liulang0808

丶默兮漓 发表于 2020-8-7 11:37
如果不是全部都是jpg，也有png或者其他格式的图片的话要怎么修改这个格式呢

可以对各种扩展名对应的文件进行判断，如果存在则插入

丶默兮漓

liulang0808 发表于 2020-8-7 11:49
可以对各种扩展名对应的文件进行判断，如果存在则插入

Sub 导入图片()

Dim sp As Shape, rng As Range, rg As Range, arg As Range

For Each sp In Sheets("插入图片").Shapes

  If sp.Type <> 8 Then sp.Delete

Next sp

Set arg = Columns("a").End(xlDown)

For Each rng In Range([a2], arg)

  pah = thisworkbook.Path & "\tupian\" & rng.Value & ".jpg"

  Set rg = Cells(rng.Row, "b")

  Sheets("插入图片").Shapes.AddPicture pah, True, True, rg.Left, rg.Top, rg.Width, rg.Height

Next

End Sub



【pah = thisworkbook.Path & "\tupian\" & rng.Value & ".jpg"】
我的代码是网上复制的，因为自己还是个小白，就想问下这个位置怎么插入图片格式呢？我在网上找了一些好像都不行，就变成显示错误1004，未找到指定文件

丶默兮漓

liulang0808 发表于 2020-8-7 11:49
可以对各种扩展名对应的文件进行判断，如果存在则插入

我修改完就变成了错误1004，未找到指定文件