Diagrammansicht vergrößern <-> verkleinern?

[Wanderfalke]

Hallo,

in meinem Tabellenblatt befinden sich etliche Diagramme, welche relativ viel Platz auf begrenztem Raum einnehmen.

Meine Idee war nun, die Diagramme relativ klein zu gestalten und bei Bedarf mittels bspw. Mausklick auf eine größere Ansicht zu 'zoomen'.
Ein erneuter Klick auf das 'gezoomte' Diagramm verkleinert die Ansicht wieder auf die Ausgangsgröße.

Ließe sich dieser Ansatz generell umsetzen?

Danke!

[Kuwer]

Hallo,

weise allen Diagrammen per Rechtsklick > Makro zuweisen folgendes Makro, das in ein allgemeines Modul kommt, zu:

Code:

Sub Diagramm_Klicken()
  With ActiveSheet.Shapes(Application.Caller)
    .LockAspectRatio = msoTrue
    If .Width < 200 Then
      .ScaleHeight 4, msoFalse
    Else
      .ScaleHeight 0.25, msoFalse
    End If
  End With
End Sub

Gruß Uwe

[Wanderfalke]

Hallo 

und danke schön. Funktioniert ohne Probleme.

Man muss ein wenig mit den Werten entsprechend seinen Bedingungen probieren/anpassen.

VG!

[Wanderfalke]

Hallo, 

ein kleines Problem tat sich doch noch auf.

Wenn bei bspw. zwei Diagrammen, welche in der Originalgröße passend untereinander angeordnet sind, das obere Diagramm 'zoome', überlagert das zweite (nicht 'gezoomte') das obere Diagramm.

Wie kann das zu 'zoomende' Diagramm in den Vordergrund gebracht werden?

Danke und Gruß!

[Kuwer]

Hallo,

Sub Diagramm_Klicken()
  Dim oSh As Shape
  With ActiveSheet.Shapes(Application.Caller)
    .LockAspectRatio = msoTrue
    If .Width < 200 Then
      .ScaleHeight 4, msoFalse
      .ZOrder msoBringToFront
    Else
      .ScaleHeight 0.25, msoFalse
    End If
  End With
End Sub

Gruß Uwe

[Wanderfalke]

Bedankt!

VG!