Winkel für graduelle Füllung
16.10.2018 09:42:08
Kian
ich habe eine Funktion definiert, mit der aus XLS in PPT eine Form mit einer graduellen Füllung abhängig vom Wert versehen wird. Funktioniert soweit auch alles wie es soll (geht um Visualisierung von Kennzahlen). Durch die spezielle Form der Flächen müsste ich aber leider den Winkel der Füllung anpassen. Kann man den per VBA definieren? Habe dazu weder im Forum noch bei Google was zielführendes finden können. Jemand eine Idee? Anbei der Code:
Public Sub Zielerreichung(Report As Presentation, Folie As Long, Kategorie As String, Ziel As _
Double)
'Graduelle Füllung abhängig von übergebenem Zielwert
With Report.Slides(Folie).Shapes(Kategorie).Fill
.TwoColorGradient msoGradientHorizontal, 1
.GradientStops(1).Color = RGB(255, 255, 255)
.GradientStops(1).Position = 1 - Ziel / 10
.GradientStops(2).Color = RGB(0, 164, 219)
.GradientStops(2).Position = 1 - Ziel / 10
.Transparency = 0.5
End With
End Sub
Beste Grüße,
Kian