使用VBA更改图片

Question

当您在Excel/Word/Powerpoint中右键单击一个Shape时,我正在尝试使用VBA自动执行更改图片功能.

但是,我找不到任何参考,你能帮忙吗？

Answer 1

您可以使用应用于矩形形状的UserPicture方法更改图片的来源.但是,如果您希望保持图片的原始高宽比,则需要相应地调整矩形的大小,因为图片将采用矩形的尺寸.

举个例子:

 ActivePresentation.Slides(2).Shapes(shapeId).Fill.UserPicture ("C:\image.png")

Answer 2

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

这是一个开始

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

Answer 3

'change picture without change image size
Sub change_picture()
strPic = "Picture 1"
Set shp = Worksheets(1).Shapes(strPic)

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

Worksheets(1).Shapes(strPic).Delete

Set shp = Worksheets(1).Shapes.AddPicture("d:\pic\1.png", msoFalse, msoTrue, l, t, w, h)
shp.Name = strPic

End Sub