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.
Gibt ein Long zurück, der die Farbverlaufsvariante für die angegebene Füllung angibt. Werte sind in der Regel ganze Zahlen von 1 bis 4 für die meisten gradientenfüllungen. Wenn die Verlaufsart MsoGradientFromTitle oder msoGradientFromCenter festgelegt ist, gibt diese Eigenschaft entweder 1 oder 2 zurück.
Die Werte für diese Eigenschaft entsprechen den Verlaufsvarianten (Nummerierung von links nach rechts und von oben nach unten) auf der Registerkarte Graduell im Dialogfeld Fülleffekte. Schreibgeschützt.
Syntax
Ausdruck. GradientVariant
Ausdruck Eine Variable, die ein FillFormat-Objekt darstellt.
Rückgabewert
Long
Hinweise
Verwenden Sie die Methode OneColorGradient, PresetGradient oder TwoColorGradient, um die Farbverlaufsvariante für die Füllung festzulegen.
Beispiel
Dieses Beispiel fügt der aktiven Publikation ein Rechteck hinzu und legt dessen Füllungsfarbverlaufs-Variante so fest, dass sie mit dem der Form namens "rect1" übereinstimmt. Damit dieses Beispiel funktioniert, muss "rect1" eine Farbverlaufsfüllung aufweisen.
Dim intVariant As Integer
With ActiveDocument.Pages(1).Shapes
' Store gradient variant of rect1.
intVariant = .Item("rect1").Fill.GradientVariant
' Add new rectangle.
With .AddShape(Type:=msoShapeRectangle, _
Left:=0, Top:=0, Width:=40, Height:=80).Fill
' Set color and gradient of new rectangle.
.ForeColor.RGB = RGB(128, 0, 0)
.OneColorGradient Style:=msoGradientHorizontal, _
Variant:=intVariant, Degree:=1
End With
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.