如何使用VBA将图像裁剪为特定格式，例如在PowerPoint中圈出？

Question

我想在带有VBA的PowerPoint中将正方形图像形状裁剪为特定形式，例如一个圆圈。

对于Shape.PictureFormat，只有以下选项：

• .CropBottom
• .CropLeft
• .CropRight
• .CropTop

有人可以帮我解决这个问题吗？

谢谢！

萌

Answer 1

在Microsoft Community中-您可以使用Shape.AutoShapeType来“裁剪成形”。

Sub CropToCircle()
    Dim shp As Shape
    Set shp = ActivePresentation.Slides(1).Shapes(1)

    If shp.Type = msoLinkedPicture Or shp.Type = msoPicture Then
        shp.AutoShapeType = msoShapeOval
    End If
End Sub