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