求一句代码

yeyuaihao

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

bzjustb

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

暂时还没有测试，先谢了。