Question

EXCEL如何用VBA修改图片

不用图片控件，用普通的插入图片，但我想用代码修改显示的图片，求救啊
不是修改图片的大小...是修改图片的显示内容...例如说原来图片是一只猫的，现在要换成一直狗的图片。

Answer 1

选中图片代码：ActiveSheet.Shapes("Picture 1").Select

调整图片大小代码：
Selection.ShapeRange.IncrementLeft 132#
Selection.ShapeRange.IncrementTop 54.75
Selection.ShapeRange.ScaleWidth 3.1, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 3.1, msoFalse, msoScaleFromTopLeft

其实，你先自己插入图片，然后打开“工具-宏-录制新宏”
然后手工操作一遍需要对图片进行的修改
再停止录制
就可看到现成的VBA代码

Answer 2

activesheet.pictures.insert
"d:\backup\桌面\图标\japan.png"
上面的一句话是在当前活动的工作表里面插入图片的代码:
注意后面的图片路径不能写错且要是完整的路径,且路径要用双引号括起来
如果要在其它工作表插只需要把前面的
activesheet换成工表表的名称
如sheet1.pictures.insert("要插入图片的路径和名称")

Answer 3

如果你在表格中插入了两张图片，希望用代码来显示其中的一张（猫），同时隐藏另一张（狗），这个是可以实现的，可以通过设置图片的visible属性来实现，如果不是这个意思，而是想让EXCEL将图片上显示的内容修改，这个是做不到的。

追问

2007右键图片不是有个选项可以修改图片的吗~~~应该VBA可以做这样的操作才对。。。

追答

那个07版的在图片中按鼠标右键菜单有一个“更改图片”而不是“修改图片”，就是将当前插入的这张图片，重新换成一张其他图片，相当于删除原来的再插入一张新的，在07中用录制宏无法得到相应代码，但在03版中可以录制一个插入图片的宏代码，如下：
Sub 插入图片()
ActiveSheet.Pictures.Insert("D:\我的文档\My Pictures\abc.jpg").Select
End Sub
这个代码可以将指定文件夹中的名为abc.jpg的图片插入到当前工作表中。
假设你插入的图片在工作表中的名字（注意不是图片本身的名字）是“图片1”，可以用ActiveSheet.Shapes("图片1").Delete来删除这张图片。

Answer 4

那是换图