Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Diagrammansicht vergrößern <-> verkleinern?
#1
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!
Antwortento top
#2
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
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
  • Wanderfalke
Antwortento top
#3
Hallo 

und danke schön. Funktioniert ohne Probleme.

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

VG!
Antwortento top
#4
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ß!
Antwortento top
#5
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
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
  • Wanderfalke
Antwortento top
#6
Bedankt!

VG!
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste