Programming Excel with VBA and .NET

Name

shaperange.Distribute(DistributeCmd, RelativeTo)

Synopsis

Distributes the shapes in a ShapeRange vertically or horizontally.

Argument	Settings
DistributeCmd	Can be msoDistributeHorizontallyor msoDistributeVertically.
RelativeTo	Must be False in Excel.

The following code distributes the shapes on a worksheet vertically; this is the equivalent of selecting Draw → Align or Distribute → Distribute Horizontally on the Drawing toolbar:

Sub DistributeVertically( )
   Dim ws As Worksheet, sr As ShapeRange
    Set ws = ActiveSheet
    ' Create a shape range for all shapes on sheet.
    ws.Shapes.SelectAll
    Set sr = Selection.ShapeRange
    ' Distribute shapes
    sr.Distribute msoDistributeVertically, False
End Sub