Diagrammbreite per Makro ändern
Ralf
ich möchte ein Diagramm in der Breite ändern, abhängig von einem Zellinhalt.
Der Ablauf soll so sein:
1. Prüfung im Tabellenblatt Daten in der Zelle F14 auf Ja oder Nein
2. Bei Nein springe in Tabellenblatt Diagramm, aktiviere "Diagramm 1" und ändere die Breite auf 24 cm.
3. Bei Ja ändere die Breite auf 27 cm, Höhe 14 cm, Position links 0 cm und Position rechts 0 cm
Ich habe da einen Code aufgezeichnet, die Breitenänderung wird jedoch nicht im Code aufgenommen.
Sub Diagrammbreite_anpassen()
'Diagrammbreite anpassen, falls F14 =Nein
If Sheets("Daten").Range("F14").Value = "Nein" Then
Sheets("Diagramm").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
'Diagrammobjekt formatieren (Position links, Position oben, Beite, Höhe)
? Der wichtigste Teil fehlt dann leider ?
End If
End Sub
Viele Grüße
Ralf