文本框使用VBA圆角(Textbox with rounded corners using VBA)

我有一个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

它转换文本框圆角矩形然后设置边角为圆弧形。 据我所知，你不能圆一个普通的文本框的角落。

文章来源: Textbox with rounded corners using VBA