Diagrammgröße
kaleun
ich habe eine Arbeitsmappe mit der ich über ein Userform vier Diagramme mit Daten fülle. Alle vier Diagramme werden in einem Tabelenblatt (Diagramme) angezeigt. Ich sehe also vier Diagramme gleichzeitig.
Ich möchte nun per Klick auf ein Diagramm die Größe ändern. Klicke ich z.B. auf Diagramm1 soll dieses vergrößert werden, das nur noch dieses auf dem Bildschirm zu sehen ist.
Mit folgendem Code wollte ich das realisieren.
Sub Diagramm1_BeiKlick()
If ActiveSheet.Shapes("Diagramm 1").Height = 400 Then
ActiveSheet.Shapes("Diagramm 1").Height = 200
ActiveSheet.Shapes("Diagramm 1").Width = 430
Else
ActiveSheet.Shapes("Diagramm 1").Height = 400
ActiveSheet.Shapes("Diagramm 1").Width = 860
End If
End Sub
Mein Problem ist nun, das er das Diagramm bei Klick zwar vergrößert, aber bei Klick auf das vergrößerte Diagramm dieses nicht mehr verkleinert.
Das Problem liegt ja wahrscheinlich in der Abfrage nach der momentanen Größe des Diagramms.
Danke im voraus für eure Hilfe
Kaleun