TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

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 = 1.23 

    Set oSh = ActiveWindow.Selection.ShapeRange(1)

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

    Set oSh = Nothing

End Sub