Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Diagramm in Größe anpassen

Diagramm in Größe anpassen
Peter
Hallo wertes Forum
ich brauche mal wieder Hilfe und Unterstützung.
In meiner Testdatei (bitte zum Betrachten herunterladen und testen)
soll das Diagramm in einer Userform dargestellt werden. Dabei soll die Größe des Diagramm
in der Userform angepasst werden. Das klappt ja soweit schon, nur wenn die Userform geschlossen wird,
ist auch die Größe des Diagramm in der Datei verändert und passt nicht mehr in die Betrachtung.
Im Beispiel ist der Button MK2 zudrücken und bei zurück sollte die Datei unverändert bleiben.
Desweiteren würde ich gern eine Dynamik in das Diagramm einbauen.
Im Register Dateneingaben sind die Monatswerte einzutragen. Datei geht jetzt bis April.
Das Diagramm ist aber jetzt für das ganze Jahr ausgelegt um nicht jeden Monat die Datenquelle des Diagramm zuändern.
Es sind in der Ganzen Datei mehrere dieser Diagramme
Ich würde mich für jede Unterstützung freuen
Gruß Peter
https://www.herber.de/bbs/user/69703.xls
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Diagramm-Größe wiederherstellen
24.05.2010 12:05:33
Erich
Hi Peter,
wenn du das Diagramm veränderst, musst du es eben wieder zurück-ändern.
Probier mal:

Private Sub LoadDiagramm(Optional booKill As Boolean = True)
Dim Diagramm As Chart, sngW As Single, sngH As Single
strPfad = ThisWorkbook.Path
If Right(strPfad, 1)  "\" Then strPfad = strPfad & "\"
strPfad = strPfad & "DiaImage.gif"
If Not booKill Then
Set Diagramm = Tabelle1.ChartObjects(1).Chart
With Diagramm.Parent
sngW = .Width
sngH = .Height
.Width = Image2.Width
.Height = Image2.Height
Diagramm.Export Filename:=strPfad, FilterName:="GIF"
Image2.Picture = LoadPicture(strPfad)
.Width = sngW
.Height = sngH
End With
Else
On Error Resume Next
Kill strPfad
On Error GoTo 0
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Diagramm-Größe wiederherstellen
24.05.2010 12:39:53
Peter
Hallo Erich,
erstmal Danke,
das mit dem Diagramm klappt prima.
Leider passt sich die Legende nicht an des Bild im Image an.
Kann man das auch noch über VBA an die Größe anpassen und wieder zurück.
https://www.herber.de/bbs/user/69705.xls
Gruß Peter
Anzeige
AW: Diagramm-Größe wiederherstellen
24.05.2010 16:17:29
Nepumuk
Hallo,
für deine Legende habe ich keine Lösung, denn das passiert wenn die Größe eines Diagramms geändert wird. Egal ob per Makro oder manuell. Danach sind fast immer Anpassungen notwendig. Außer das Diagramm ist im absoluten Urzustand. Also Legende nicht manuell verrutscht usw. Sobald du da etwas änderst funktioniert es nicht mehr richtig.
Aber warum ich eigentlich schreibe, die Anpassung an das Image ist falsch. Das hätte dir aber auch auffallen müssen. Das Diagramm wird viel kleiner dargestellt als das Image ist. Grund, die Größe von Controls wird in Punkt gemessen die von Objekten in Tabellen in Pixel. Du musst also die Höhe und Breite durch 0,75 dividieren damit du hinkommst. 0,75 ist zwar nicht 100% genau, aber auf ein paar Pixel hin oder her kommt es nicht an.
Private Sub LoadDiagramm(Optional booKill As Boolean = True)
    
    Dim Diagramm As Chart, sngW As Single, sngH As Single
    
    strPfad = ThisWorkbook.Path
    If Right(strPfad, 1) <> "\" Then strPfad = strPfad & "\"
    strPfad = strPfad & "DiaImage.gif"
    If Not booKill Then
        Set Diagramm = Tabelle1.ChartObjects(1).Chart
        With Diagramm.Parent
            sngW = .Width
            sngH = .Height
            .Width = Image2.Width / 0.75
            .Height = Image2.Height / 0.75
            Diagramm.Export Filename:=strPfad, FilterName:="GIF"
            Image2.Picture = LoadPicture(strPfad)
            .Width = sngW
            .Height = sngH
        End With
    Else
        On Error Resume Next
        Kill strPfad
        On Error GoTo 0
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: Diagramm-Größe wiederherstellen
24.05.2010 18:04:04
Peter
Hallo
jetzt ist es perfekt und es passt jetzt auch mit der Legende
allen besten Dank
bin wieder etwas weiter
Gruß Peter
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Diagrammgröße in Excel anpassen


Schritt-für-Schritt-Anleitung

Um die Größe eines Diagramms in Excel automatisch anzupassen oder zu fixieren, folge diesen Schritten:

  1. Diagramm auswählen: Klicke auf das Diagramm, dessen Größe du ändern möchtest.

  2. Größe ändern: Gehe in der Registerkarte "Format" auf "Größe" und passe die Höhe und Breite manuell an, oder nutze die Ziehpunkte an den Ecken des Diagramms.

  3. Größe fixieren: Wenn du die Größe des Diagramms fixieren möchtest, kannst du dies über die Diagrammoptionen machen. Klicke mit der rechten Maustaste auf das Diagramm und wähle "Diagramm formatieren". Unter "Größe" kannst du die Optionen zur Verknüpfung der Breite und Höhe deaktivieren.

  4. VBA-Makro verwenden: Um die Größe eines Diagramms über ein VBA-Makro zu ändern, kannst du den folgenden Code verwenden:

    Private Sub LoadDiagramm()
        Dim Diagramm As Chart
        Set Diagramm = Tabelle1.ChartObjects(1).Chart
        Diagramm.Parent.Width = 300 ' Beispielbreite
        Diagramm.Parent.Height = 200 ' Beispielhöhe
    End Sub

Häufige Fehler und Lösungen

  • Diagrammgröße ändert sich nicht: Wenn die Größe des Diagramms sich nicht anpassen lässt, könnte es sein, dass die Option "Größe sperren" aktiviert ist. Prüfe dies in den Diagrammoptionen.

  • Legende passt sich nicht an: Nach einer Größenänderung ist es oft notwendig, die Legende manuell anzupassen. Achte darauf, dass du die Legende nicht manuell verschiebst, da dies die automatische Anpassung beeinträchtigen kann.

  • Diagrammgröße in Userform nicht richtig: Wenn die Größe des Diagramms in einer Userform nicht korrekt dargestellt wird, kann dies an unterschiedlichen Maßeinheiten liegen (Punkte vs. Pixel). Teile die Werte durch 0,75, um eine Annäherung zu erreichen.


Alternative Methoden

Wenn du die Diagrammgröße in Excel anpassen möchtest, gibt es verschiedene Methoden:

  1. Manuelle Anpassung: Einfach durch Ziehen der Ecken kann die Größe des Diagramms schnell geändert werden.

  2. Verwendung der Formatierungsoptionen: In der Registerkarte "Format" kannst du präzise Werte für die Diagrammgröße eingeben.

  3. VBA-Makros: Du kannst VBA nutzen, um die Diagrammgröße dynamisch basierend auf anderen Zellen oder Eingaben anzupassen.


Praktische Beispiele

Hier sind einige praktische Szenarien zur Anpassung der Diagrammgröße:

  • Größe eines Diagramms automatisch anpassen: Wenn du ein Diagramm in eine Userform einfügst, kannst du es bei der Userform-Initialisierung automatisch anpassen.

  • Diagrammgröße ändern und zurücksetzen: Verwende VBA, um die Diagrammgröße beim Schließen der Userform zurückzusetzen.

    Private Sub UserForm_QueryClose(Cancel As Integer)
        Dim Diagramm As Chart
        Set Diagramm = Tabelle1.ChartObjects(1).Chart
        Diagramm.Parent.Width = 400 ' Ursprüngliche Breite
        Diagramm.Parent.Height = 300 ' Ursprüngliche Höhe
    End Sub

Tipps für Profis

  • Diagrammgröße fixieren: Setze die Option zur Fixierung der Größe, um ungewollte Änderungen der Diagrammgröße zu vermeiden.

  • Dynamische Anpassung: Nutze Formeln in Zellen, um die Diagrammgröße dynamisch basierend auf Eingabewerten zu steuern.

  • VBA zur Automatisierung: Erstelle komplexe Makros, die die Diagrammgröße automatisch anpassen, je nach den Daten, die du in deine Tabelle eingibst.


FAQ: Häufige Fragen

1. Wie kann ich die Größe eines Diagramms in Excel automatisch anpassen?
Du kannst die Größe eines Diagramms in Excel automatisch anpassen, indem du die entsprechenden Optionen in der Formatierungsleiste verwendest oder ein VBA-Makro erstellst, das die Größe dynamisch anpasst.

2. Warum passt sich die Legende nicht an die Diagrammgröße an?
Die Legende muss manuell angepasst werden, wenn die Diagrammgröße geändert wird. Achte darauf, dass keine manuellen Verschiebungen vor der Größenänderung erfolgen.

3. Kann ich die Größe eines Diagramms in Word ändern?
Ja, du kannst die Größe eines Diagramms in Word ändern, indem du das Diagramm auswählst und die Größe über die Formatierungsoptionen anpasst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige