Extreme Veteran
Beiträge: 566
| Hallo,
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"
Vermutlich arbeitest du mit Late Binding, d.h. du hast keinen Verweis auf Excel, sondern erzeugst ein "Excel.Application"-Objekt, oder? Die Deklarationszeilen, speziell die von xlWB, waeren hilfreich gewesen.
Falls du mit Late Binding arbeitest, musst du die Excel-Konstanten durch deren Werte ersetzen, also 2 statt xlSparkColumn.
----- Gruss - Peter |