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

晨曦矇眬

香川老师您好！
可是打破铁锅问到底啦。
有没有办法让插入图片行自动调整到指定行高，而未插入图片行保持原行高？

香川群子

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 编辑 ]

晨曦矇眬

衷心感谢香川老师！

5465465465

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

coblin

进来学习一下啊

香川群子

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

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

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

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

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

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

5465465465

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

andrew20082011

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

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

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

Yoanliu

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

JOR.ZUO

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