Greiff - 20.03.13 14:43
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"