Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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