CODEWITHSUNDEEP
vbapowerpoint
braceyourself
braceyourself

Reputation: 257

Textbox with rounded corners using VBA

I have a predefined textbox in a PowerPoint slide, I need to make its corners rounded. Is there any way I can do this using VBA?

Upvotes: 1

Views: 4436

Answers (1)

Steve Rindsberg
Steve Rindsberg

Reputation: 14809

This example assumes that the shape you're after is the third shape on slide 1. Adjust accordingly:

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

It converts the textbox to a rounded rectangle then sets the corners to be rounded. As far as I know, you cannot round the corners of a regular text box.

Upvotes: 1

Related Questions