Question

我希望能够通过点击用户表单中的按钮来更改图像形状的图像。

在互联网上，我找到了函数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"

但这不起作用

修改
当然，我检查了新图像的路径，这是正确的。

Answer 1

Siddharth Rout found the solution

我通过从picture菜单中选择insert来创建图片，但必须通过Insert =＆gt;创建图片。 Rectangular shape（无边界）。现在可以使用ActivePresentation.Slides("Slide1").Shapes("SolutionA_Image").Fill.UserPicture ("D:\User\SolutionWrong.jpg")

轻松访问它

更改图像形状的图像

1 个答案: