ユーザーフォームのボタンをクリックして、画像の形状の画像を変更できるようにしたい。
インターネットで機能を見つけましたUserPicture
が、画像は同じままです。
Private Sub ChangeImage_Click()
ActivePresentation.Slides("Slide1").Shapes("SolutionA_Image").Visible = True
ActivePresentation.Slides("Slide1").Shapes("SolutionA_Image").Fill.UserPicture ("D:\User\Desktop\SolutionWrong.jpg")
End Sub
Private Sub HideImage_Click()
ActivePresentation.Slides("Slide1").Shapes("SolutionA_Image").Visible = False
End Sub
ボタンをクリックするとHideImage
図形が見えなくなるので、図形の選択が正しいように見えます。
私も試しました
ActivePresentation.Slides("Slide1").Shapes("SolutionA_Image").Fill.UserPicture "D:\User\SolutionWrong.jpg"
しかし、これも機能しません
編集
もちろん、新しい画像へのパスを確認しました。正しいです。