Programming Excel with VBA and .NET

Name

shaperange.Align(AlignCmd, RelativeTo)

Synopsis

Aligns the shapes in a ShapeRange.

Argument	Settings
AlignCmd	An msoAlignCmd constant. Can be msoAlignCenters, msoAlignMiddles, msoAlignTops, msoAlignBottoms, msoAlignLefts, or msoAlignRights.
RelativeTo	True aligns shapes relative to the Excel window; False aligns shapes relative to the first shape in the ShapeRange.

The following code uses previous examples to draw three shapes, adds them to a ShapeRange, then aligns the shapes relative to the first shape drawn:

Sub LeftAlign( )
   Dim ws As Worksheet, sr As ShapeRange
    Set ws = ActiveSheet
    ' Draw three objects (call previous examples)
    DrawRect
    DrawLine
    EmbedWordArt
    ' Create a shape range
    Set sr = ws.Shapes.Range(Array(1, 2, 3))
    ' Left-align three shapes
    sr.align msoAlignLefts, False
End Sub