ZoomMakro für Diagramme erweitern
thomas
habe vor ein paar Tagen von Sepp (Merci!) folgenden Code erhalten, den ich in allgemeines Modul tun kann und das ich an alle Diagramme anhängen kann (rechtsklick, Makro zuweisen).
Nun möchte ich aber, dass das Diagramm in einem Diagrammfenster erscheint, nicht einfach oben links auf dem Blatt (für ein Bsp mach rechtsklick auf irgend ein Diagramm, dann Diagrammfenster. )
Zudem soll das Diagramm so gross wie möglich, aber so dass das Verhältnis Seite:Länge des Diagrammes erhalten bleibt.
Weiss jemand wie der Code dann aussehen müsste?
Besten Dank für allfällige Hilfe!!
thomas
Option Explicit
Dim oldWidth As Double
Dim oldheight As Double
Dim oldLeft As Double
Dim oldTop As Double
Dim blnGK As Boolean
Sub GrossKlein()
Dim shp As Shape
On Error Resume Next
Set shp = ActiveSheet.Shapes(Application.Caller)
With shp
If Not blnGK Then
oldWidth = .Width
oldheight = .Height
oldLeft = .Left
oldTop = .Top
.Top = 0
.Left = 0
.Width = ActiveWindow.Width
.Height = ActiveWindow.Height
.ZOrder msoBringToFront
blnGK = True
Else
.Top = oldTop
.Left = oldLeft
.Width = oldWidth
.Height = oldheight
.ZOrder msoSendToBack
blnGK = False
End If
End With
End Sub