Question

2007版Excel怎样用VBA代码插入图片?求代码

Answer 1

1、打开Excel，准备好表格。

2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】。

3、接着点击菜单栏【插入】，在其下拉菜单中，选择【模块】。

4、在弹出模块编辑窗口填入代码：Sub 导入图片()Dim sp As Shape, rng As Range, rg As Range, arg As RangeFor Each sp In Sheets("插入图片").ShapesIf sp.Type <> 8 Thensp.Delete

Next spSet arg = Columns("a").End(xlDown)For Each rng In Range([a2], arg)pah = thisworkbook.Path & "\tupian\" & rng.Value & ".jpg"。

5、在工作表的【开发工具】菜单下，插入一【表单】按钮，并与指定编写的插入图片代码关联，且进入命名为【导入图片】。

6、点击【导入图片】按钮，图片被瞬间导入。就完成了。

Answer 2

如下代码可插入到指定单元格。
Range("a1").Select '选中A1单元格
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Range("a1").Left, _
Range("a1").Top, Range("a1").Width, Range("a1").Height).Select
Selection.ShapeRange.Fill.UserPicture picpath '在A1单元格插入图片，大小与单元格一样。
VBA是Visual Basic for
Applications的缩写，是内嵌于office软件中的一个开发模块，这个模块提供程序自主开发，语言基础和VB（Visual
Basic）相似。在Excel的“工具—宏—编辑器”可以打开，也可按Alt+F11打开

Answer 3

楼上的代码也能插入图片，只是不能定义到指定位。
如下代码可插入到指定单元格。
Range("a1").Select '选中A1单元格
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Range("a1").Left, _
Range("a1").Top, Range("a1").Width, Range("a1").Height).Select
Selection.ShapeRange.Fill.UserPicture picpath '在A1单元格插入图片，大小与单元格一样。

Answer 4

亲，举例如下。把d:\temp\temp.jpg改成你实际的图片地址和名称即可。
ActiveSheet.Pictures.Insert "d:\temp\temp.jpg"