Sub Macro1()
Dim sh As Shape
Set sh = ActiveSheet.Shapes.[B]AddShape[/B](msoShapeRoundedRectangle, 582.25, 103.5, 280.5, 838.5)
With sh
With .Fill
.Visible = True
.ForeColor.RGB = RGB(0, 128, 0)
.Transparency = 0.3
End With
.Name = "maforme"
.Adjustments(1) = 0.5
End With
End Sub