Make rounded rectangles specific in Powerpoint (VBA)

PUBLISHED ON JUN 16, 2017 — LIBRARY

Source: Change selection to a rounded rectangle

Sub GetRounding()
    Dim oSh As Shape

    Set oSh = ActiveWindow.Selection.ShapeRange(1)
    With oSh
        MsgBox .Adjustments(1)
    End With
    Set oSh = Nothing
End Sub
Sub SetRounding()
    Dim oSh As Shape
    Dim sngRounding As Single

    ' EDIT THIS TO MATCH THE VALUE YOU GOT ABOVE
    sngRounding = 0.10181

    Set oSh = ActiveWindow.Selection.ShapeRange(1)

    With oSh
        oSh.AutoShapeType = msoShapeRoundedRectangle
        .Adjustments(1) = sngRounding
    End With

    Set oSh = Nothing

End Sub