Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1172to1176
1172to1176
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagramme: Größe & Position festlegen mit Makros

Forumthread: Diagramme: Größe & Position festlegen mit Makros

Diagramme: Größe & Position festlegen mit Makros
Christian
Hallo miteinander,
ich habe jetzt schon viel über das Thema gelesen, jedoch habe ich die für mich passende Antwort (bedingt durch meine fehlenden Kenntnisse mit Makros) noch nicht gefunden.. vielleicht kann mir ja jemand helfen?
Also: ich habe eine Menge Daten, aus denen ich mit Hilfe von Excel Diagramme (Kreis-, Säulen-, Balkendiagramme, etc.) erstellen will. Später werde ich diese dann in Word einfügen.
Meine Fragen nun:
1. Wie kann ich per Makro alle Diagramme auf eine einheitliche Größe bringen bzw. die Größe für die einzelnen Diagramme individuell festlegen (z.B. Kreisdiagramme 4cmx4cm, Balkendiagramme 4cmx8cm)?
Meine Makrokenntnisse sind - wie ja schon geschildert - sehr bescheiden, also wäre ich um genaue Anleitung, wo was eingefügt werden muss, super dankbar!!
2. Wie kann ich die Diagramme nun in Excel anordnen, z.B. linke Ecke in C7?
3. Was ist die beste Option, die Excel-Diagramme in Word einzufügen (z.B. bei Word: Inhalte einfügen, als xls/jpg/etc.)?
Vielen vielen Dank im Vorhinein,
Christian
PS: Ich habe neuerdings Office2010, falls das von Relevanz sein sollte ;)
Anzeige

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

Betreff
Benutzer
Anzeige
Diagramme: Größe & Position festlegen mit Makros
16.08.2010 11:36:04
Beverly
Hi Christian,
Antwort zu Frage 1: mit diesem prinzipiellen Code 
Sub DiaGroesse()
Dim chrDiagramm As ChartObject
For Each chrDiagramm In ActiveSheet.ChartObjects
Select Case chrDiagramm.Chart.ChartType
Case xlPie
chrDiagramm.Width = 40
chrDiagramm.Height = 40
Case xlLine
chrDiagramm.Width = 80
chrDiagramm.Height = 60
End Select
Next chrDiagramm
End Sub

Was hinter die jeweilige Case (sie entsprechen dem Diagrammtyp) geschrieben werden muss, findest du in der VBA-Hilfe unter dem Stichwort ChartType-Eigenschaft.
Die Angaben zu Width (Breite) und Height (Höhe) sind keine Zentimeter-Angaben. Wenn du also Zentimeter verwenden musst, musst du das vorher umrechnen.
Antwort zu Frage 2: 
Sub Positionieren()
ActiveSheet.ChartObjects(1).Top = Range("C7").Top
ActiveSheet.ChartObjects(1).Left = Range("C7").Left
End Sub
Antwort zu Frage 3:
das musst du einfach mal testen, hängt ja auch davon ab, ob sich die Diagramm aktualisieren sollen oder nicht.

Anzeige
AW: Diagramme: Größe & Position festlegen mit Makros
16.08.2010 20:55:48
Christian
Hallo Karin,
super - Vielen Dank!! Ich werde ein wenig rumbasteln und melde mich, falls es noch Probleme geben sollte...
Schöner Gruß
Christian
;

Forumthreads zu verwandten Themen

VBA Grafik erstellen
Robert

Hallo,
ich möchte eine Grafik per VBA erstellen.
Die X-Werte habe ich per Namen defniert,die Y-Werte ebenso. Allerdings sind diese Werte jeweils nciht zusammenhängend (also als X-Werte z.B.: B11,B14,B22, usw).
Wie kann ich denn nun mit diesem Namen eine Grafik über VBA erstellen?
05.08.2009 05:43:19
Thread-ID: 1093614
6 Beiträge
Diagrammgröße per VBA ändern
ben

Hallo zusammen,
Ich habe drei Command Buttons mit deren Betätigung drei verschiedene Diagramme (Kuchendiagramm) angezeigt werden können. Wenn ein neues Diagramm angezeigt werden soll, wird das alte zuvor gelöscht.
Leider werden die Diagramme aber immer nur recht klein angezeigt.
Ic...
20.02.2010 10:34:56
Thread-ID: 1139846
4 Beiträge
Diagrammbreite per Makro ändern
Ralf

Hallo Forum,
ich möchte ein Diagramm in der Breite ändern, abhängig von einem Zellinhalt.
Der Ablauf soll so sein:
1. Prüfung im Tabellenblatt Daten in der Zelle F14 auf Ja oder Nein
2. Bei Nein springe in Tabellenblatt Diagramm, aktiviere "Diagramm 1" und ändere die Breite auf...
16.12.2011 08:25:01
Thread-ID: 1242374
3 Beiträge
VBA:Chart ändert Position bei anderen Displays
Maje

Hallo Liebe Herbers Excel Community,
zurzeit arbeite ich an einem wichtigen Projekt, wo ich eine Performance Metrics erstellen muss.
Ich bin nahezu komplett fertig und muss diese Metricsen in ein VBA Code umwandeln um ein automatisiertes Tool herzustellen.
Mein Problem ist, dass sic...
19.02.2015 09:50:52
Thread-ID: 1410311
3 Beiträge
Makro: Diagramm variabler Bereiche erstellen
SebastianB
Hallo Experten,

ich habe mich jetzt schon einige Zeit mit diesem Problem herumgequält und viele Foren durchforstet. Ich habe auch schon mal die Frage hier gestellt, nur war sie leider nicht gut erklärt.
Mein Problem ist: Ich habe eine aus nem ASCII-File importierte Arbeitsmappe, bei der...
09.09.2003 09:16:55
Thread-ID: 306951
4 Beiträge
Probleme mit VBA (Grafik erstellen)
Andy

Hallo,
ich habe ein Problem mit dem erstellen einer gif.datei eines bestimmten Bereiches. In der folgenden Datei ist der Code als Makro enthalten und soll in dem gleichen Verzeichnis wie die Datei eine Bilddatei 1_aufstellung.gif erstellen.
https://www.herber.de/bbs/user/8686.xls (ca.13...
19.07.2004 14:58:41
Thread-ID: 457436
4 Beiträge
Makro zum Diagramm erstellen
Christoph

Hallo,
ich habe eine ellenlange Tabelle, aus der ich jetzt Diagramme basteln will.
Da das ganze mit der Hand aber ein bisschen lang dauern würde, wäre es toll, wenn das ein Makro für mich macht.
Leider bin ich nicht wirklich ein VBA-Gott wie manch anderer hier und brauche deshalb H...
12.11.2007 16:18:22
Thread-ID: 925138
2 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Diagramme: Größe & Position mit Makros festlegen

Schritt-für-Schritt-Anleitung

Um die Größe und Position von Diagrammen in Excel mithilfe von Makros festzulegen, kannst du folgende Schritte befolgen:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Erstelle ein neues Modul:

    • Klicke mit der rechten Maustaste auf "VBAProject (deine Datei)", wähle "Einfügen" und dann "Modul".

  3. Füge den folgenden Code für die Diagrammgröße ein:

    Sub DiaGroesse()
   Dim chrDiagramm As ChartObject
   For Each chrDiagramm In ActiveSheet.ChartObjects
       Select Case chrDiagramm.Chart.ChartType
           Case xlPie ' Für Kreisdiagramm
               chrDiagramm.Width = 40    ' Beispielwert in Punkten
               chrDiagramm.Height = 40
           Case xlColumnClustered ' Für Balkendiagramm
               chrDiagramm.Width = 80
               chrDiagramm.Height = 60
       End Select
   Next chrDiagramm
End Sub

  4. Füge den folgenden Code zum Positionieren der Diagramme ein:

    Sub Positionieren()
   ActiveSheet.ChartObjects(1).Top = Range("C7").Top
   ActiveSheet.ChartObjects(1).Left = Range("C7").Left
End Sub

  5. Führe die Makros aus:

    • Gehe zurück zu Excel, drücke ALT + F8, wähle das Makro aus und klicke auf "Ausführen".

Häufige Fehler und Lösungen

  • Makro läuft nicht:

    • Stelle sicher, dass die Makros in deinen Excel-Einstellungen aktiviert sind.

  • Diagrammgröße ändert sich nicht:

    • Überprüfe, ob du den richtigen Diagrammtyp in der Select Case-Anweisung angegeben hast.

  • Diagramm kann nicht positioniert werden:

    • Stelle sicher, dass die Zelle, in der du das Diagramm positionieren möchtest (z.B. C7), vorhanden und nicht ausgeblendet ist.

Alternative Methoden

Falls du keine Makros verwenden möchtest, kannst du die Größe und Position der Diagramme manuell anpassen:

  1. Größe ändern:

    • Klicke auf das Diagramm, ziehe an den Ecken, um die Größe zu verändern, oder gehe zu "Diagrammtools" > "Format" und stelle die Breite und Höhe ein.

  2. Position anpassen:

    • Ziehe das Diagramm an die gewünschte Position oder ändere die Werte in den Eigenschaften unter "Diagrammtools".

Praktische Beispiele

  • Kreisdiagramm:

    • Stelle sicher, dass die Größe des Kreises auf die gewünschte Breite von 4 cm und Höhe von 4 cm gesetzt ist, indem du den Code anpasst.

  • Balkendiagramm:

    • Ändere die Breite auf 4 cm und die Höhe auf 8 cm, um die Darstellung zu optimieren.
Case xlPie
    chrDiagramm.Width = 40 ' 4 cm in Punkten
    chrDiagramm.Height = 40
Case xlColumnClustered
    chrDiagramm.Width = 40 ' 4 cm in Punkten
    chrDiagramm.Height = 80 ' 8 cm in Punkten

Tipps für Profis

  • Nutze die VBA-Hilfe für weitere Diagrammtypen und deren Eigenschaften.
  • Experimentiere mit der Excel vba chart position für komplexe Layouts.
  • Wenn du Excel Diagramme in Word einfügen möchtest, teste verschiedene Einfügeoptionen, um die beste Darstellung zu finden.

FAQ: Häufige Fragen

1. Wie kann ich alle Diagramme auf die gleiche Größe bringen? Um alle Diagramme auf die gleiche Größe zu bringen, verwende den oben genannten VBA-Code und passe die Werte in der Select Case-Anweisung entsprechend an.

2. Was mache ich, wenn die Diagramme nicht an die gewünschte Position verschoben werden? Überprüfe, ob die Zelle, auf die du das Diagramm verschieben möchtest, sichtbar und nicht ausgeblendet ist. Stelle außerdem sicher, dass du die richtige Diagrammnummer im Code verwendest.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige