Freigeben über


Selection-Objekt (PowerPoint)

Stellt die Auswahl im angegebenen Dokumentfenster dar. Das Selection-Objekt wird gelöscht, wenn Sie Folien in einer aktiven Folienansicht ändern (die Type-Eigenschaft gibt ppSelectionNone zurück).

Beispiel

Verwenden Sie die Eigenschaft Selection, um das Objekt Selection zurückzugeben. Im folgenden Beispiel wird eine Kopie der Markierung im aktiven Fenster in die Zwischenablage übertragen.

ActiveWindow.Selection.Copy

Verwenden Sie die ShapeRange-, SlideRange- oder TextRange-Eigenschaft , um einen Bereich von Formen, Folien oder Text aus der Auswahl zurückzugeben.

Das folgende Beispiel legt die Vordergrundfarbe der Füllung für die markierten Formen in Fenster 2 fest. Es wird davon ausgegangen, dass mindestens eine Form markiert ist. Außerdem wird davon ausgegangen, dass alle markierten Formen eine Füllung haben, deren Vordergrundfarbe festgelegt werden kann.

With Windows(2).Selection.ShapeRange.Fill

    .Visible = True

    .ForeColor.RGB = RGB(255, 0, 255)

End With

Im folgenden Beispiel wird der Text in der ersten markierten Form in Fenster 2 festgelegt, wenn die Form einen Textrahmen enthält.

With Windows(2).Selection.ShapeRange(1)

    If .HasTextFrame Then

        .TextFrame.TextRange = "Current Choice"

    End If

End With

Im folgenden Beispiel wird der markierte Text im aktiven Fenster ausgeschnitten und in die Zwischenablage kopiert.

ActiveWindow.Selection.TextRange.Cut

Im folgenden Beispiel werden alle Folien in der Auswahl dupliziert (wenn Sie sich in der Folienansicht befinden, wird die aktuelle Folie dupliziert).

ActiveWindow.Selection.SlideRange.Duplicate

Wenn Sie kein Objekt des entsprechenden Typs ausgewählt haben, wenn Sie eine dieser Eigenschaften verwenden (z. B. wenn Sie die ShapeRange-Eigenschaft verwenden, wenn keine Shapes ausgewählt sind), tritt ein Fehler auf. Verwenden Sie die Type-Eigenschaft , um zu bestimmen, welche Art von Objekt oder Objekten ausgewählt werden. Im folgenden Beispiel wird überprüft, ob die Auswahl Folien enthält. Wenn die Auswahl Folien enthält, legt das Beispiel den Hintergrund für die erste Folie in der Auswahl fest.

With Windows(2).Selection

    If .Type = ppSelectionSlides Then

        With .SlideRange(1)

            .FollowMasterBackground = False

            .Background.Fill.PresetGradient _

                msoGradientHorizontal, 1, msoGradientLateSunset

        End With

    End If

End With

Methoden

Name
Copy
Cut
Delete
Unselect

Eigenschaften

Name
Application
ChildShapeRange
HasChildShapeRange
Parent
ShapeRange
SlideRange
TextRange
TextRange2
Type

Siehe auch

PowerPoint-Objektmodellreferenz

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.