Relatives Makro Diagramm bearbeiten

Question

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

Answer 1

Hi,

zum Formatiern aller Diagramme im aktiven Tabellenblatt:

Sub AlleDiasFormatieren()
Dim chrDia As ChartObject
For Each chrDia In ActiveSheet.ChartObjects
With chrDia.ShapeRange.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText2
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Weight = 2
.Visible = msoTrue
End With
Next chrDia
End Sub

Bis später,
Karin

Answer 2

Hallo Karin,

schon mal vielen lieben Dank für Deine Mühen, aber leider funktioniert das Makro bei mir nicht. Wenn ich in den unterschiedlichen Arbeitsblättern auf Makro ausführen gehe, bzw. eine Tastenkombination zuweise und diese drücke, dann passiert gar nichts.

Hast Du oder sonst jemand evtl. nochmal eine Idee???

DANKE! Tremono

Answer 3

Hi,

also ich verwende ebenfalls Excel2010 und Win 7 und der Code funktioniert korrekt - andernfalls hätte ich ihn nicht gepostet. Da müsstest du schon mal deine Arbeitsmappe (4-5 Diagramme sollten zu Testzwecken zeichen) hochladen, damit man das am Original prüfen kann.

Bis später,
Karin