Hallo zusammen,
habe in Excel 2010 (Windows 7) ca. 200 verschiedene Diagramme und mein Chef möchte nun aufgrund des CI, dass alle Diagramme einen dunkelblauen Rahmen in Stärke 2 erhalten. Habe dazu ein relatives Makro aufgezeichnet, aber wenn ich das nächste Diagramm aktiviere und das Makro ausführe funktioniert es nicht.
Leider kenne ich mich mit Makros zu wenig aus, so dass ich das Makro nicht so anpassen kann, dass es immer das aktuell aktivierte Diagramm bearbeitet.
Bin für jede Hilfe sehr dankbar!!!
Sub Rahmen()
'
' Rahmen Makro
' Rahmen dunkelblau; Stärke 2
'
' Tastenkombination: Strg+r
'
ActiveSheet.ChartObjects("Diagramm 2").Activate
With ActiveSheet.Shapes("Diagramm 2").Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
End With
With ActiveSheet.Shapes("Diagramm 2").Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText2
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
End With
With ActiveSheet.Shapes("Diagramm 2").Line
.Visible = msoTrue
.Weight = 2
End With
End Sub
Vielen lieben Dank im Voraus - Tremono