Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Legt fest, dass die Füllung der Form mit dem Hintergrund der Folie übereinstimmen soll. Wenn Sie den Folienhintergrund ändern, nachdem Sie diese Methode auf eine Füllung angewendet haben, wird auch die Füllung geändert.
Syntax
Ausdruck verwendet werden. Hintergrund
Ausdruck Eine Variable, die ein FillFormat-Objekt darstellt.
Hinweise
Beachten Sie, dass Anwenden der Hintergrund -Methode auf die Füllung einer Form ist nicht dasselbe wie eine transparente Füllung für die Form festlegen, noch es immer identisch mit dem Shape dieselbe Füllung anwenden ist, wie Sie auf den Hintergrund angewendet. Im zweite Beispiel veranschaulicht.
Beispiel
Im folgenden Beispiel wird festgelegt, dass die Füllung von Form 1 auf Folie 1 in der aktiven Präsentation mit dem Folienhintergrund übereinstimmt.
ActivePresentation.Slides(1).Shapes(1).Fill.Background
In diesem Beispiel wird der Hintergrund für Folie eins in der aktiven Präsentation auf einen voreingestellten Farbverlauf festgelegt, der Folie ein Rechteck hinzugefügt und dann drei Ovale vor dem Rechteck platziert. Das erste Oval hat eine Füllung, die dem Folienhintergrund entspricht, das zweite hat eine transparente Füllung und auf das dritte ist dieselbe Füllung angewendet, auf die der Hintergrund angewendet wurde. Beachten Sie den Unterschied im Aussehen dieser drei Ovale.
With ActivePresentation.Slides(1)
.FollowMasterBackground = False
.Background.Fill.PresetGradient _
msoGradientHorizontal, 1, msoGradientDaybreak
With .Shapes
.AddShape msoShapeRectangle, 50, 200, 600, 100
.AddShape(msoShapeOval, 75, 150, 150, 100) _
.Fill.Background
.AddShape(msoShapeOval, 275, 150, 150, 100).Fill _
.Transparency = 1
.AddShape(msoShapeOval, 475, 150, 150, 100) _
.Fill.PresetGradient _
msoGradientHorizontal, 1, msoGradientDaybreak
End With
End With
Siehe auch
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.