image - 使用 VBA 更改图片

Question

当您右键单击 Excel/Word/Powerpoint 中的形状时，我正在尝试使用 VBA 来自动化更改图片功能。

但是，我找不到任何引用资料，您能帮忙吗？

Answer 1

据我所知你不能改变图片的来源，你需要删除旧的并插入新的

这是一个开始

strPic ="Picture Name"
Set shp = ws.Shapes(strPic)

'Capture properties of exisitng picture such as location and size
With shp
    t = .Top
    l = .Left
    h = .Height
    w = .Width
End With

ws.Shapes(strPic).Delete

Set shp = ws.Shapes.AddPicture("Y:\our\Picture\Path\And\File.Name", msoFalse, msoTrue, l, t, w, h)
shp.Name = strPic
shp.ScaleHeight Factor:=1, RelativeToOriginalSize:=msoTrue
shp.ScaleWidth Factor:=1, RelativeToOriginalSize:=msoTrue