AW: Legende formatieren
28.08.2004 12:56:24
Christoph
Hallo Markus,
das ist der klassische Fall für den Makrorecorder.
zeichne dir die Aktionen auf und schmeiß anschließend alles Überflüssige raus.
Bsp:
Legende mit schwarzem Rahmen und rotem Hintergrund würde mit dem Recorder ungefähr so aussehen:
Sub Makro1()
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.Legend.Select
With Selection.Border
.ColorIndex = 57
.Weight = xlMedium
.LineStyle = xlContinuous
End With
Selection.Shadow = False
With Selection.Interior
.ColorIndex = 3
.PatternColorIndex = 1
.Pattern = xlSolid
End With
'usw...
End Sub
das lässt sich z.B. verkürzen zu:
Option Explicit
Sub Legende()
ActiveSheet.ChartObjects("Diagramm 1").Activate
With ActiveChart.Legend
.Border.ColorIndex = 57
.Border.Weight = xlMedium
.Interior.ColorIndex = 3
End With
End Sub
Gruß
Christoph