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

Siddharth Rout 找到了解决方案

我通过picture从insert菜单中选择来创建图像，但它必须通过Insert=> Rectangular shape（无边框）创建。现在可以通过使用轻松访问它ActivePresentation.Slides("Slide1").Shapes("SolutionA_Image").Fill.UserPicture ("D:\User\SolutionWrong.jpg")

于 2013-01-24T14:40:34.253 回答