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