Ich habe eine PowerPoint Präsentation mit 70 Folien die je ein Diagramm beinhalten. Nun möchte ich diese Diagramme in der Grösse einheitlich gestalten. Das heisst:
- Diagrammfläche
- Diagrammtittel (Schrift)
- Titel der Grössenachse(Schrift)
und eingemittet, gleiche Positionierung
- Grössenachse(Schrift)
- Titel der sekundären Grössenachse(Schrift)
- sekundären Grössenachse(Schrift)
- Legende (Schrift)
und gleiche Positionierung
- Rubrikenachse
Kann ich das mit einem Makro machen und wie würde das aussehen?
Ich habe mit aufzeichnen probiert, komme aber nicht zum Ziel.
Sub Makro1()
ActiveChart.Axes(xlValue).AxisTitle.Select
Selection.AutoScaleFont = False
With Selection.Font
.Name = "Arial"
.Size = 11
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
ActiveChart.Axes(xlValue, xlSecondary).AxisTitle.Select
Selection.AutoScaleFont = False
With Selection.Font
.Name = "Arial"
.Size = 11
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
ActiveChart.Legend.Select
Selection.AutoScaleFont = False
With Selection.Font
.Name = "Arial"
.Size = 9
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
End Sub
Für eure Unterstützung wäre ich sehr dankbar.
Gregor