2

ユーザーフォームのボタンをクリックして、画像の形状の画像を変更できるようにしたい。

インターネットで機能を見つけました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"

しかし、これも機能しません

編集
もちろん、新しい画像へのパスを確認しました。正しいです。

4

1 に答える 1

2

SiddharthRoutが解決策を見つけました

メニューpictureから選択して画像を作成しましたが、 => (境界線なし)で作成する必要があります。これで、を使用して簡単にアクセスできますinsertInsertRectangular shapeActivePresentation.Slides("Slide1").Shapes("SolutionA_Image").Fill.UserPicture ("D:\User\SolutionWrong.jpg")

于 2013-01-24T14:40:34.253 に答える