hilft mir bitte,
ich finde es nicht heraus wie man die Schriftgröße von den Größenachsen eines Diagramms ändert und zwar in dem Stil wie ich auch die Größe des Diagrammstitels geändert habe.
Hier ist das Makro:
Sub Testmakro()
'Dieses Makro bringt alle Diagramme auf die einheitliche Größe (129.75 x 63.75)
'und positieoniert sie alle schön untereinander bzw. nebeneinander
Set sr = Worksheets("Diagramme").ChartObjects.ShapeRange
i = 1
zeile = 0
zaehlerLeft = 1
Do While i <= sr.Count
sr.Item(i).Width = 129.75
sr.Item(i).Height = 63.75
sr.Item(i).Top = (38.25 + (zeile * 76.5))
sr.Item(i).DrawingObject.Chart.ChartTitle.Font.Size = 7
'sr.Item(i).Axes.Font.Size = 5
Select Case zaehlerLeft
Case 1
sr.Item(i).Left = 89.25
Case 2
sr.Item(i).Left = 225.75
Case 3
sr.Item(i).Left = 454.5
Case 4
sr.Item(i).Left = 591
End Select
If i Mod 4 = 0 Then
zeile = zeile + 1
zaehlerLeft = 0
End If
i = i + 1
zaehlerLeft = zaehlerLeft + 1
Loop
End Sub
ich danke euch