使用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 

它文本框轉換成圓角矩形然後設置要被倒圓的角部。據我所知，你不能圍繞常規文本框的角落。