Veteran
Beiträge: 229
 
Ort: Badendorf | Hallo,
ich erzeuge häufiger mit Access Excel Dokumente, mit denen Andere dann arbeiten.
Seit einiger Zeit versuche ich erfolglos mit Access per VBA Sparklines in Excel2010 zu erzeugen. Ich habe bereits auch ein Makro in Excel aufgezeichnet (und es funktioniert auch in Excel). Nur: ich kann es nicht aus Access zum Laufen kriegen.
letzter Stand:
With xlWB.ActiveSheet.Range("AQ2") ' Sparkline
.SparklineGroups.Add Type:=xlSparkColumn, SourceData:="B2:AL2"
.SparklineGroups.Item(1).SeriesColor.ThemeColor = 5
.SparklineGroups.Item(1).SeriesColor.TintAndShade = -0.499984740745262
.SparklineGroups.Item(1).Points.Negative.Color.ThemeColor = 6
.SparklineGroups.Item(1).Points.Negative.Color.TintAndShade = 0
.SparklineGroups.Item(1).Points.Markers.Color.ThemeColor = 5
.SparklineGroups.Item(1).Points.Markers.Color.TintAndShade = -0.499984740745262
.SparklineGroups.Item(1).Points.Highpoint.Color.ThemeColor = 5
.SparklineGroups.Item(1).Points.Highpoint.Color.TintAndShade = 0
.SparklineGroups.Item(1).Points.Lowpoint.Color.ThemeColor = 5
.SparklineGroups.Item(1).Points.Lowpoint.Color.TintAndShade = 0
.SparklineGroups.Item(1).Points.Firstpoint.Color.ThemeColor = 5
.SparklineGroups.Item(1).Points.Firstpoint.Color.TintAndShade = 0.399975585192419
.SparklineGroups.Item(1).Points.Lastpoint.Color.ThemeColor = 5
.SparklineGroups.Item(1).Points.Lastpoint.Color.TintAndShade = 0.399975585192419
End With
Access hängt sich immer auf bei der 2.Zeile
.SparklineGroups.Add Type:=xlSparkColumn, SourceData:="B2:AL2"
entweder kennt er die sparklinegroups nicht oder er kann die Sourcedata nicht zuordnen
Bin für jede Idee dankbar
R. Greiff |
Sparklines via VBA erzeugen