Code: Alles auswählen
Sub Makro1()
Dim wksWorksheet As Worksheet
Dim objChartObject As ChartObject
Dim objChart As Chart
Dim intCounter As Integer
For Each wksWorksheet In ActiveWorkbook.Worksheets
For Each objChartObject In wksWorksheet.ChartObjects
intCounter = intCounter + 1
objChartObject.Chart.ChartArea.AutoScaleFont = False
Next objChartObject
Next
For Each objChart In ActiveWorkbook.Charts
objChart.ChartArea.AutoScaleFont = False
intCounter = intCounter + 1
Next
MsgBox "Es wurden " & CStr(intCounter) & " Diagramme verarbeitet."
End Sub