Excel Makro: Diagramm Ecken Abrunden

Hallo zusammen,

ich habe einen Haufen Diagramme in Excel 2003 (verteilt auf mehrere Dateien, mit jeweils mehreren Tabellenblättern etc), die abgerundete Ecken haben. Diese Abrundungen sollen nun wieder weg und ich kämpfe mit dem Makro, daß sich immer auf ein bestimmtes Diagramm bezieht!

Hat jemand eine Idee, wie ich das untenstehende Makro ändern kann, so daß es immer die Ecken des vor Ausführung des Makros aktivierten Diagramms bearbeitet?

Den Begriff Sheets("Diagrams") kann ich ja durch ActiveSheet ersetzen, aber bei .DrawingObjects("Diagramm 14") finde ich keine vergleichbare Lösung.

Danke im voraus für einen Tipp...

JoerchS.

Und hier kommt das Makro:

Sub Ecken_abrunden()
'
' Ecken_abrunden Makro
' Makro am 14.02.2009 von JoerchS aufgezeichnet
'
' Tastenkombination: Strg+Umschalt+C
'
With Selection.Border
.Weight = 1
.LineStyle = -1
End With
With Selection.Interior
.ColorIndex = 31
.PatternColorIndex = 1
.Pattern = 1
End With
Sheets("Diagrams").DrawingObjects("Diagramm 14").RoundedCorners = False
Sheets("Diagrams").DrawingObjects("Diagramm 14").Shadow = True
End Sub

 

Hi,

Code:

Sub Ecken_abrunden()
    Dim chDiagramm As ChartObject
    Dim wsTabelle As Worksheet
    For Each wsTabelle In Worksheets
        If wsTabelle.ChartObjects.Count > 0 Then
            For Each chDiagramm In wsTabelle.ChartObjects
                With chDiagramm.Border
                    .Weight = 1
                    .LineStyle = -1
                End With
                With chDiagramm.Interior
                    .ColorIndex = 31
                    .PatternColorIndex = 1
                    .Pattern = 1
                End With
                chDiagramm.RoundedCorners = False
                chDiagramm.Shadow = True
            Next chDiagramm
        End If
    Next wsTabelle
End Sub

 

Hi Beverly,

vielen Dank für die schnelle Antwort.

Das Makro funktioniert super, bleibt allerdings bei einem bestimmten Diagramm hängen - keine Ahnung warum. Mit einem

On Error Resume Next

(den Tipp habe ich von anderer Seite bekommen) läuft es aber zumindest weiter - für mich eine prima Lösung.

Vielen Dank noch mal,

JoerchS