diagramme vereinheitlichen
Lasar
zum ersten mal bewege ich mich in visual basic
und hoffe hier hilfe für mein anliegen zu erhalten
ich habe ca 50 diagramme in mehreren datein die leider alle unterschiedlich aussehen (größe, schriftgröße, rahmen, legende).
nun habe ich ein bischen code hier im forum gefunden, den ich teilweise verstehe, aber bisher nicht geschafft habe eintsprechend zu erweitern:
Sub dia_anpassen()
Dim chDiagramm As Chart
Dim inDiagramm As Integer
With ActiveSheet
For inDiagramm = 1 To .ChartObjects.Count
Set chDiagramm = .ChartObjects(inDiagramm).Chart
With chDiagramm
.Parent.Height = 200
.Parent.Width = 450
With .Axes(xlCategory) ' X-Achse
.AxisTitle.AutoScaleFont = False ' Achsen-Titel Automatik aus
.AxisTitle.Font.Size = 9 ' Achsen-Titel Schriftgröße
.TickLabels.AutoScaleFont = False
.TickLabels.Font.Size = 8
End With
With .Axes(xlValue) ' Y-Achse
.AxisTitle.AutoScaleFont = False ' Achsen-Titel Automatik aus
.AxisTitle.Font.Size = 9 ' Achsen-Titel Schriftgröße
.TickLabels.AutoScaleFont = False
.TickLabels.Font.Size = 8
End With
If .HasLegend = True Then
With .Legend
.AutoScaleFont = False
.Font.Size = 9
End With
End If
With .ChartTitle ' Diagrammtitel
.AutoScaleFont = False ' Automatik aus
.Font.Size = 10 ' Schriftgröße
End With
End With
Next inDiagramm
End With
End Sub
das was es macht macht es gut (das script)
es fehlt nur, dass die legende immer an der rechen seit mittig steht
und um das ganze diagramm ein rahmen läuft
wenn dass einer von euch eben ergänzen könnte, würde er mir ne große holfe sein :-)
vielen dank
gruss Lasar Kolja