Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ZoomMakro für Diagramme erweitern

ZoomMakro für Diagramme erweitern
thomas
Hallo Leute,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
vielen Dank an Sepp für neue Lsg
01.05.2004 16:59:13
thomas
Hallo Sepp,
vielen Dank für die neue Lsg; werde mal schauen, ob sich die Sache bei mir einbauen lässt. Auf deinem Bsp funktionierts ja sehr schön.
Besten Dank für dein Hilfe!!!
Beste Grüsse
thomas
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige