s********y
发帖数: 979 | 1 想用VBA在PPT中插入一张图片，这个图片总是在PPT同一个目录下面，所以看网上说不
需要指定路径，但是老是出错。把MACRO写好直接运行没有问题，把PPTM关了再打开就
找不到文件，这是什么问题？
Sub test()
Dim objPresentaion As Presentation
Dim objSlide As Slide
Dim objImageBox As Shape
Set objPresentaion = ActivePresentation
Set objSlide = objPresentaion.Slides.Item(3)
Set objImageBox = objSlide.Shapes.AddPicture("apples.png", LinkToFile:=
msoTrue, SaveWithDocument:=msoTrue, Left:=90, Top:=130, Width:=250, Height:=
300)
End Sub | T***t
发帖数: 181 | 2 应该用全路径。如果图片和当前文档在同一目录，可用 ActivePresentation.Path + "
\apples.png". |
|
