ShapeRange.Distribute-Methode (PowerPoint)

Verteilt die Formen im angegebenen Formenbereich gleichmäßig. Sie können angeben, ob die Formen horizontal oder vertikal und über die gesamte Folie oder nur über den ursprünglich beanspruchten Raum verteilt werden sollen.

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	Bestimmt, ob die Formen gleichmäßig über den gesamten horizontalen oder vertikalen Raum der Folie verteilt werden.

Rückgabewert

Nichts

Beispiel

In diesem Beispiel wird ein Formenbereich definiert, der alle AutoFormen in myDocument enthält, dann werden die Formen in diesem Bereich horizontal verteilt.

Set myDocument = ActivePresentation.Slides(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, msoFalse 
        End If 
    End If 
End With

Siehe auch

ShapeRange-Objekt

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.