Office: Diagrammgröße formatieren

Hallo,
ich habe vier Diagramme, die ich gerne alle gleich groß hätte.
Ich habe eine Legende, die immer unterschiedlich groß ist. Dadurch ist auch die Zeichnungsfläche immer unterschiedlich groß.
Außerdem würde ich gerne die Legende in der Zeichnungsfläche drin haben, also quasi über der Zeichnungsfläche, und dafür dann die Zeichnungsfläche vergrößern.
Wenn ich das allerdings manuell mache werden nicht alle Zeichnungsflächen gleich groß.

Ich hoffe ich habe mich verständlich ausgedrückt.
Könnt ihr mir bitte helfen?

PS: Es handelt sich um Balkendiagramme

 

Hi,

man kann das mit VBA machen. Dazu müsstest du erst bei allen Diagrammen die Legende in die Zeichnungsfläche verschieben und 1 Diagramm als "Vorlage" formatieren und die andern werden dann daran angepasst.

Inwieweit kennst du dich denn mit VBA aus?

Bis später,
Karin

 

Im Prinzip kannst du das selbst zumindest weitestgehend mit dem Makro-Rekorder. Danach wäre dann aber anpassen angesagt.

Aber grundsätzlich kannst Du auf diverseste Eigenschaften des Diagramms und dessen einzelner Komponenten (wie eben der Plotarea oder der Legende) direkt zugreifen. Ein Beispiel-Code wäre:

Code:

Sub Diagramm_formatieren()

    Dim w As Workbook
    Dim s As Worksheet
    Dim c As ChartObject
    Dim cp As Object 'PlotArea
    Dim cl As Object 'Legend

    Set w = ThisWorkbook
    Set s = w.ActiveSheet 'w.Worksheets("Auswertung")
    Set c = s.ChartObjects(1) 's.ChartObjects("Diagramm")
    Set cp = c.Chart.PlotArea
    Set cl = c.Chart.Legend

    cp.Left = 1
    cp.Top = 1
    cp.Width = 773
    cp.Height = 506
    
    cl.Left = 615
    cl.Top = 27

End Sub

Das Ding ist jetzt in den Deklarationen (die DIM Geschichte am Anfang und der SET-Kram darunter) etwas ausführlicher, als normalerweise notwendig. Aber so ist es ggf. leichter anzupassen.

Im Prinzip macht das Ding aber nichts weiter als die linke obere Position sowie die Breite und Höhe der Diagrammfläche (cp) zu setzen und danach die Legende (cl) zu verschieben.

Welche Werte für Dein Diagramm (die "Master"-Kopie) notwendig sind, mußt Du aber irgendwie noch selbst herausfinden. Dabei kann Dir aber der Makro-Rekorder gut weiterhelfen. Vorgehen da am besten:

- Alle Elemente auf dem Diagramm so verschieben, daß es absolut grauselig aussieht und nichts da ist, wo es eigentlich sein sollte.
- Makro-Rekorder starten und alles so hinschieben, wie es sein soll
- Makro-Aufzeichnung beenden
- Alt-F11 drücken und unter "Module" links das "Modul1" öffnen. Dort sollte dann "Sub Makro1" stehen und darunter das, was Du gerade aufgezeichnet hast.

Wenn du Hilfe brauchst, wie man das ganze dann wirklich im VBA-Editor einbaut, dann frag einfach nochmal nach.

Gruß, Michael