VBA-Programmierung in Microsoft Excel

VBA-Begriff: Beispiel zur Distribute-Methode

In diesem Beispiel wird ein Formbereich definiert, der alle AutoFormen in myDocument enthält. Anschließend werden alle Formen in diesem Bereich verteilt. Die am weitesten links gelegene Form behält ihre Position bei.

Set myDocument = Worksheets(1)
With myDocument.Shapes
    numShapes = .Count
    If numShapes > 1 Then
        numAutoShapes = 0
        ReDim autoShpArray(1 To numShapes)
        For i = 1 To numShapes
            If .Item(i).Type = msoAutoShape Then
                numAutoShapes = numAutoShapes + 1
                autoShpArray(numAutoShapes) = .Item(i).Name
            End If
        Next
        If numAutoShapes > 1 Then
            ReDim Preserve autoShpArray(1 To numAutoShapes)
            Set asRange = .Range(autoShpArray)
            asRange.Distribute msoDistributeHorizontally, False
        End If
    End If
End With