applelife 发表于 2016-4-12 13:36:16

求一句代码

能否用VBA将D：图片.gif 在播放状态下插入到当前幻灯片中。如果可以代码则么写？

sailor0763 发表于 2016-4-12 14:46:21

经测试，可以在播放中加入图片，但会出现出错提示，但只要加上on error resume next就可了了，比如：
Private Sub CommandButton1_Click()
On Error Resume Next
Set mypicture = ActivePresentation.Slides(1).Shapes.AddPicture(FileName:="D:图片.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=20, Top:=20, Width:=200, Height:=200)
End Sub
页: [1]
查看完整版本: 求一句代码