FillFormat.GradientVariant-Eigenschaft (Publisher)
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
HinwBemerkungeneise
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für