yeyuaihao 发表于 2017-2-18 12:36:50

求一句代码


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

bzjustb 发表于 2017-2-18 15:16:30


经测试，可以在播放中加入图片，但会出现出错提示，但只要加上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

02642621 发表于 2017-2-18 15:41:52

暂时还没有测试，先谢了。
页: [1]
查看完整版本: 求一句代码