Makro optimieren?
Michael
in einem Tabellenblatt habe ich insgesamt 6 Diagramme integriert. Über drei Optionsbutton lassen sich immer zwei Diagramme auswählen. Dazu habe ich folgenden Code benutzt:
Private Sub OptionButton1_Click()
Application.ScreenUpdating = False
ActiveSheet.ChartObjects("Diagramm 6").Visible = False
ActiveSheet.ChartObjects("Diagramm 10").Visible = False
ActiveSheet.ChartObjects("Diagramm 2").Visible = True
ActiveSheet.ChartObjects("Diagramm 4").Visible = True
ActiveSheet.ChartObjects("Diagramm 3").Visible = False
ActiveSheet.ChartObjects("Diagramm 5").Visible = False
Application.ScreenUpdating = True
End Sub
Da ich auch noch unterschiedliche Diagrammgrößen benötige, habe ich noch zwei zusätzliche Optionsbutton eingefügt, um die Diagrammgröße zu wählen. Dazu habe ich folgenden Code benutzt:
Private Sub OptionButton5_Click()
With ActiveSheet.ChartObjects("Diagramm 10")
.Height = 443
.Width = 390
End With
With ActiveSheet.ChartObjects("Diagramm 6")
.Height = 443
.Width = 390
End With
With ActiveSheet.ChartObjects("Diagramm 3")
.Height = 443
.Width = 390
End With
With ActiveSheet.ChartObjects("Diagramm 5")
.Height = 443
.Width = 390
End With
With ActiveSheet.ChartObjects("Diagramm 2")
.Height = 443
.Width = 390
End With
With ActiveSheet.ChartObjects("Diagramm 4")
.Height = 443
.Width = 390
End With
End Sub
Nun meine Frage: Das kann man doch sicherlich eleganter machen?! Sieht ja doch irgendwie sehr stümperhaft aus, funktioniert aber.
Wenn ich das ganze auf meinen Laptop spiele, muss ich wieder alles anpassen, da Monitorgröße und Auflösung anders sind. Diesen Vorgang kann man vielleicht auch "automatisieren"?
Vielen Dank für Eure Unterstützung!
Michael