ShapeRange.Distribute-Methode (Excel)

Verteilt Formen im angegebenen Formbereich horizontal und vertikal.

Syntax

Ausdruck. Distribute (DistributeCmd, RelativeTo)

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
DistributeCmd	Erforderlich	MsoDistributeCmd	Gibt an, ob Formen im Bereich horizontal oder vertikal verteilt werden sollen.
RelativeTo	Erforderlich	MsoTriState	Wird in Microsoft Excel nicht verwendet. Muss den Wert False aufweisen.

Beispiel

In diesem Beispiel wird ein Formbereich definiert, der alle AutoFormen in myDocument enthält, und dann die Formen in diesem Bereich horizontal verteilt. Die äußerste linke 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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.