Hallo Leute,
Habe eine Tabelle mit verschiedenen Diagrammen drin. Nun habe ich gesehen, dass man den Diagrammen Makros zuweisen kann (rechtsklick auf Diagramm, dann entsprechende Option anwählen). Ich möchte, dass das Diagramm bei klick drauf auf der GANZEN Bildschirmfläche angezeigt, also vergrössert wird.
Mit untenstehemdem Code kann ich zwar vergrössern und verkleinern, aber ich möchte eine ganz simple Lsg, mit der ich einfach beim ersten Klick auf das Diagramm dieses auf Bildschirmgrösse vergrössert bekomme und beim abermaligen Klick auf das Diagramm dieses wieder in Originalgröss am Ursprungsort habe.
Hat jemand eine schöne Lsg für mein Problem, ungleich untenstehend?
Besten Dank für allfällige Hilfe!
thomas
P.S.: Kann ich dann den Code in einem Modul platzieren oder muss ich den Code auf das Blatt schreiben (im VBA-Fenster; Alt + F11)?
Kann ich dann jedem Diagramm dieses gleiche vergrössern/verkleinern Makro zuweisen?
Option Explicit
Sub Shape_pos() Dim sh As Shape Set sh = ActiveSheet.Shapes("AutoShape 1") If sh.Height > 199 And sh.Height < 201 Then With sh .Height = 300 .Width = 420 .Top = 0 .Left = 0 End With Else With sh .Height = 200 .Width = 280 .Top = 50 .Left = 50 End With End If End Sub