VBA パワーポイント ユーザーフォームの画像を新しいスライドに挿入したい

Question

こんにちは。

現在、パワーポイントVBAをユーザーフォームを使用しつつ学習しています。

下記の図のようにユーザーフォームにimageコントロールを配置して画像1を入れています。スライド追加ボタンを押すとパワーポイントの最終スライドの次に新しくスライドを作成して、その中にこのgazo1を挿入したいのですが、難渋しています。

新しいスライドを追加するところまではいけたのですが、gazo1を入れることができません。お力添えをよろしくお願いします。

Private Sub sld追加_Click()
Dim objPresentation As Presentation
'Dim sld As PowerPoint.Slide    
'Dim shp As PowerPoint.Shape  

Set objPresentation = ActivePresentation
Set sld = objPresentation.Slides.Add(objPresentation.Slides.Count + 1, PpSlideLayout.ppLayoutBlank)
sld.Select

End Sub

Answer 1

自力で解決することができました