请问如何批量插入图片呢？

晨曦矇眬 · 发表于 2010-9-14 19:28

香川老师您好！
可是打破铁锅问到底啦。

有没有办法让插入图片行自动调整到指定行高，而未插入图片行保持原行高？

香川群子 · 发表于 2010-9-15 13:34

If Err.Number <> 0 Then
         Err.Clear
      Else
         ActiveCell.Offset(0, 4).Select
         If ActiveCell <> "" Then GoTo ExtToNext Else ActiveCell = Filename
         '此处插入一句代码，意思是需要插入图片的行高调整为指定值如=88.
         ActiveCell.RowHeight = 87.75
         '而未插入图片的行高，则保持原始状态不作改变了。
         ActiveSheet.Pictures.Insert(myDir & Filename).Select

………………

[ 本帖最后由香川群子于 2010-9-15 18:18 编辑 ]

晨曦矇眬 · 发表于 2010-9-15 14:12

衷心感谢香川老师！

5465465465 · 发表于 2010-9-15 17:10

我在personal.xlsb中编写如下代码，这样每打开一个新的Excel文件时，做一个表改名的判断。其中缺一句指定当前打开文件的语句（现在是写具体哪一个表中有效），我是新手，真的写不出来了，帮个忙吧。。。。
Sub gmz()
If Sheet1.Name = "职工登记表1" Then '这里不论工作表1的name是什么，均可以用Sheet1来指定，而不用Sheet("******")
MsgBox "名称不用修改了！"
Else
Sheet1.Name = "职工登记表1"
End If
End Sub

coblin · 发表于 2010-9-25 22:48

进来学习一下啊

香川群子 · 发表于 2010-9-26 13:39

原帖由 5465465465 于 2010-9-15 17:10 发表
我在personal.xlsb中编写如下代码，这样每打开一个新的Excel文件时，做一个表改名的判断。其中缺一句指定当前打开文件的语句（现在是写具体哪一个表中有效），我是新手，真的写不出来了，帮个忙吧。。。。
Sub gmz( ...

反正最后都要命名为"职工登记表"
那就不要用判断句式了，直接强制性地一句解决：

Sheets(1).Name = "职工登记表"

=======================

如果名字是sheet1，当然会被改为"职工登记表"，
如果已经是"职工登记表"，执行代码结果再次命名为"职工登记表"。

总之结果一样，因此不需要加if……then……的判断了。

5465465465 · 发表于 2010-11-22 10:49

这段时间学了不少关于VBA的知识。。。谢谢香川群子老师把我带到了这片知识的海洋!

andrew20082011 · 发表于 2011-4-21 02:28

香川群子老师，这个是我见过实现这个功能的最好程序了，但这个程序只能按照手动输入的图片名称自动插入图片，如果能在货品编码这一列自动插入图片的名称，并且可导入的图片类型为gif,jpg,png等，那就完美了，这个功能怎么实现啊，老师

补充一个：将图片插入在货品编码左边也就是A列，谢谢老师

[ 本帖最后由 andrew20082011 于 2011-4-21 03:07 编辑 ]

Yoanliu · 发表于 2011-5-7 15:15

确实好用，我临时试了一次。高手，谢谢分享。

JOR.ZUO · 发表于 2011-6-4 10:35

你好！老师。我想问一下，我从其他excel复制图片到剪贴板，然后点粘贴，想要自动按顺序填入单元格，可以吗？谢谢！

		自动登录	找回密码
密码			免费注册

请问如何批量插入图片呢？

如何让插入图片行自动调整到指定行高，而未插入图片行保持原行高？

在代码中增加一句就可以啦

帮个忙

香川群子老师这个程序如果能再优化一下就完美了

浏览过的版块

请问如何批量插入图片呢？

如何让插入图片行自动调整到指定行高，而未插入图片行保持原行高？

在代码中增加一句就可以啦

帮个忙

香川群子老师 这个程序如果能再优化一下就完美了

浏览过的版块

香川群子老师这个程序如果能再优化一下就完美了