使用VBA的圆角文本框

Question

我在PowerPoint幻灯片中有一个预定义的文本框，我需要将其四舍五入。有什么办法可以用VBA做到这一点吗？

Answer 1

此示例假定您之后的形状是幻灯片1上的第三个形状。相应调整：

Sub Test()
Dim oSh As Shape
Set oSh = ActivePresentation.Slides(1).Shapes(3)
With oSh
    .AutoShapeType = msoShapeRoundedRectangle
    .Adjustments(1) = 0.25
End With
End Sub

它将文本框转换为圆角矩形，然后将角设置为圆角。据我所知，你不能围绕常规文本框的角落。