Add a rectangle : Shapes « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Shapes

Add a rectangle

 
Sub AddRectangle()
    With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 200, 100).TextFrame
        .Characters.Text = "This is a rectangle"
        .HorizontalAlignment = xlHAlignCenter
        .VerticalAlignment = xlVAlignCenter
    End With
End Sub

 

Related examples in the same category