Forums Neueste Beiträge
 

Makroaufzeichnung in Diagramm

25/02/2010 - 16:05 von Uli Schoch | Report spam
Hallo
Ich möchte per VBA die Linienstàrke und -Farbe eines Diagramms einstellen.
Um zu schauen, wie das geht, habe ich: Das Diagramm aktiviert, die
Makroaufzeichnung eingeschaltet, mit der rechten Maustaste auf die
Datenreihe geklickt, dort "Datenreihe formatieren" gewàhlt, im Dialog die
Linienstàrke und Farbe gewàhlt, dann "schliessen" des Dialogs, dann
Makroaufzeichnung beenden. Alles was im Makro steht ist:

ActiveSheet.ChartObjects("Diagramm 1").Activate

Wenig, warum? Wenns so nicht geht, wie veràndere ich Linienstàrke und -Farbe
mit VBA?

Gruss
Uli
 

Lesen sie die antworten

#1 Andreas Killer
25/02/2010 - 16:45 | Warnen spam
Uli Schoch schrieb:

Ich möchte per VBA die Linienstàrke und -Farbe eines Diagramms
einstellen. Um zu schauen, wie das geht, habe ich: Das Diagramm


...
ActiveSheet.ChartObjects("Diagramm 1").Activate
Wenig, warum?


Was soll ich sagen... bei XL2007 halt.

Wenns so nicht geht, wie veràndere ich Linienstàrke und
-Farbe mit VBA?



Sub Test()
Dim C As Chart, S As Series
'Aktueller Chart
Set C = ActiveChart
'Datenreihe 1
Set S = C.SeriesCollection(1)

With S 'C.SeriesCollection(1)
'Linie
With .Border
.ColorIndex = 3 'Farbe
.Weight = xlMedium 'Stàrke
.LineStyle = xlContinuous 'Typ
End With
'Linie glàtten
.Smooth = True
End With
End Sub

Andreas.

Ähnliche fragen