Private Sub CommandButton1_Click()
Image1.Picture = Nothing
temppath = ActivePresentation.Path & "\Slide1.jpg"
ActivePresentation.Slides(1).Export temppath, "jpg"
Image1.Visible = False
Image1.Picture = LoadPicture(temppath)
Image1.Visible = True
Set mycmd = Controls.Add("Forms.CommandButton.1")
mycmd.Left = 680
mycmd.Top = 480
mycmd.Width = 80
mycmd.Height = 25
mycmd.Caption = "共三张，第一张"
End Sub

Image1导入图片不清楚，是什么原因，请高手帮忙解决 一下，谢谢！