如何在PowerPoint中替换图片形状的图像？

Question

有没有办法从代码中替换PowerPoint中现有图片形状的图像？

谢谢

Answer 1

如果是链接的图像，请使用新文件覆盖链接的图像文件或将链接指向新文件。

或者，如果形状是用图片填充的，则可以用不同的图片填充它。如果图片的比例与形状的比例不匹配，这可能会扭曲图片；相反，如果需要，您可以更改形状的纵横比以匹配图片的纵横比。

要更改图片填充，请假定引用osh中的形状：

With osh.Fill
    .UserPicture ("C:\path\to\picture.jpg")
End With

要计算出图片的大小以便调整其形状，您可以使用外部图像处理软件或将图片插入PPT，高度和宽度参数为-1，选取新插入的图片的.Height和.Width，然后将其删除。

或者插入一张新图片，提取旧图片的大小/位置/其他属性并将其应用于新图片，删除旧图片，将新图片移动到旧图片的Z顺序。