选中图片代码: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代码
activesheet.pictures.insert
"d:\backup\桌面\图标\japan.png"
上面的一句话是在当前活动的工作表里面插入图片的代码:
注意后面的图片路径不能写错且要是完整的路径,且路径要用双引号括起来
如果要在其它工作表插只需要把前面的
activesheet换成工表表的名称
如sheet1.pictures.insert("要插入图片的路径和名称")
如果你在表格中插入了两张图片,希望用代码来显示其中的一张(猫),同时隐藏另一张(狗),这个是可以实现的,可以通过设置图片的visible属性来实现,如果不是这个意思,而是想让EXCEL将图片上显示的内容修改,这个是做不到的。
那是换图