Diagramm ... verkleinern/vergrößern (Folgethread)

Ich muss diese Frage nochmal aus den Tiefen des Archivs nach oben bringen. Hier er Link zum Originalthread
https://www.herber.de/forum/archiv/816to820/t817826.htm
Ich habe den Code zur Verkleinerung des Diagrammblatts auf eine Befehlsschaltfläche gelegt; den Vorschlag von Daniel habe ich etwas erweitert, weil ja erst das entsprechende Blatt aktiviert werden muss; so sieht es dann aus:
***********************************


Private Sub CommandButton5_Click()
Worksheets("Corr_Charts").Activate
With ActiveSheet
Range(.Shape("Chart1").TopLeftCell, .Shapes("Chart4").BottomRightCell).Select
End With
ActiveWindow.Zoom = True
End Sub

***********************************
Wenn ich dann auf den Button klicke, dann erscheint die folgende Meldung:
Run-time error: '-2147024809 (80070057)
The item with the specified name wasn't found
Ich vermute, dass es mit den Chartnamen zusammenhängt ... die zeigen in deren Eigenschaften den Namen Chart1 bis Chart4.
Irgendwie komme ich da jetzt nicht weiter. Hätte da jemand eine Lösung (Daniel?)
Danke & Gruß
Ralph

Hallo Ralph,
mit nachfolgender Anpassung wird nach einem weiteren Klick auf das Diagramm wieder der vorherige Zoom-Faktor für die Ansicht eingestellt.


Public ZoomFaktor, ChartZoom As Boolean
Sub Charts_ZoomOut()
'Zum Vergrößern einzelner Charts dient das folgende Makro; es erkennt von welchem Chart
'aus es aufgerufen wurde und bringt diesen auf maximale Größe.
'Die Zuordnung des Makros erfolgt über "Rechtsklick im Chartfenster und Makro zuordnen".
If ChartZoom = True Then
ActiveWindow.Zoom = ZoomFaktor
ChartZoom = False
Else
With ActiveSheet.Shapes(Application.Caller)
ActiveSheet.Range(.TopLeftCell, .BottomRightCell).Select
End With
ZoomFaktor = ActiveWindow.Zoom
ActiveWindow.Zoom = True
ChartZoom = True
End If
End Sub

Falls du nicht den Zoom-Faktor für die Ansicht sondern die Größe eines Charts auf bestimmt Werte festlegen willst, dann muss du die Width und Height-Eigenschaft des Charts anpassen.
Nachfolgendes Makro ändert die Größe des Diagramm nach Klick. Bei zweitem Klick wird die vorherige Größe wieder hergestellt. Die Größe des Diagramms orientiert sich dabei an der Größe des aktiven Fensters. Man kann hier natürlich auch eine Feste Breite vorgeben und die Höhe mit dem Faktor berechnen.


Public ChartGross As Boolean, ChartBreite, ChartName As String
Sub Charts_Size()
'Zum Vergrößern einzelner Charts dient das folgende Makro; es erkennt von welchem Chart
'aus es aufgerufen wurde und bringt diesen auf die Größe des aktiven Fensters.
'Die Zuordnung des Makros erfolgt über "Rechtsklick im Chartfenster und Makro zuordnen".
With ActiveSheet.Shapes(Application.Caller)
If ChartGross = True Then
If .Name = ChartName Then
Faktor = .Height / .Width
.Width = ChartBreite
.Height = Faktor * .Width
ChartGross = False
Else
MsgBox "Diagramm: " & ChartName & " wurde noch nicht wieder verkleinert! " & vbLf & vbLf _
& "Bitte erst dieses Diagramm anklicken."
End If
Else
Faktor = .Height / .Width
ChartBreite = .Width
.Width = 0.85 * ActiveWindow.Width '600
If Faktor * .Width > 0.85 * ActiveWindow.Height Then
.Height = 0.85 * ActiveWindow.Height  '400
.Width = .Height / Faktor
Else
.Height = .Width * Faktor
End If
.ZOrder msoBringToFront
ActiveWindow.ScrollRow = .TopLeftCell.Row
ActiveWindow.ScrollColumn = .TopLeftCell.Column
ChartName = .Name
ChartGross = True
End If
End With
End Sub

Gruss
Franz

Diagramm ... verkleinern/vergrößern (Folgethread)

Forumthread: Diagramm ... verkleinern/vergrößern (Folgethread)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Diagramm ... verkleinern/vergrößern (Folgethread)

Forumthread: Diagramm ... verkleinern/vergrößern (Folgethread)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread