Das Archiv des Excel-Forums

Diagramm an Zelle ausrichten?

Bild

Betrifft: Diagramm an Zelle ausrichten?
von: TomTom

Geschrieben am: 15.10.2003 11:16:01

Hallo Forum,

ich mal wieder...
Meine Diagramme machen was sie sollen, ... fast ...

Ich erstelle einige Diagramme und zwar als Objekte in einem bestimmten Datenblatt. Kann ich irgendwie festlegen, dass die linke obere Ecke des Diagramm1 an Zelle A1 und alle fogenden Diagramme darunter angeordnet werden?

Momentan werden zwar alle auf dem Blatt erstellt, aber leider übereinander, so dass nur das zuletzt erstellt sichtbar ist...

Tipps?
Danke sagt TomTom
Bild


Betrifft: AW: Diagramm an Zelle ausrichten?
von: Galenzo
Geschrieben am: 15.10.2003 11:44:47

Hallo TomTom,
hier eine Prozedur, die deinen Diagrammen mal etwas Ordnung beibringt:


Private Sub OrdnungSchaffen()
Dim i%
    ChartObjects(1).Left = Range("A1").Width
    ChartObjects(1).Top = Range("A1").Height
    For i = 2 To Worksheets("Tabelle1").ChartObjects.Count
        ChartObjects(i).Left = ChartObjects(1).Left
        ChartObjects(i).Top = ChartObjects(i - 1).Top + ChartObjects(i - 1).Height
    Next
End Sub

Viel Erfolg!


Bild


Betrifft: Fehler beim Kompilieren...
von: TomTom
Geschrieben am: 15.10.2003 12:04:13

Hey Galenzo,

klingt logisch, hab's eingebaut, aber ich krieg die Meldung "Fehler beim Kompilieren.

Sub oder Funktion nicht definiert"?
Tomtom
und so sieht's aus:

Sub test()
diagramme_anordnen
End Sub



Sub diagramme_anordnen()
Dim i%
ChartObjects(1).Left = Range("A1").Width
ChartObjects(1).Top = Range("A1").Height
For i = 2 To Worksheets("Termin Graphik").ChartObjects.Count
ChartObjects(i).Left = ChartObjects(1).Left
ChartObjects(i).Top = ChartObjects(i - 1).Top + ChartObjects(i - 1).Height
Next
End Sub



Bild


Betrifft: AW: Fehler beim Kompilieren...
von: Galenzo
Geschrieben am: 15.10.2003 12:48:14

Wenn du die Prozedur in einem Standardmodul schreibst, dann sollte die so aussehen:


Sub Makro2()
   diagramme_anordnen
End Sub

---------

Sub diagramme_anordnen()
Dim i%
With Worksheets("Termin Graphik")
    .ChartObjects(1).Left = Range("A1").Width
    .ChartObjects(1).Top = Range("A1").Height
    For i = 2 To .ChartObjects.Count
        .ChartObjects(i).Left = .ChartObjects(1).Left
        .ChartObjects(i).Top = .ChartObjects(i - 1).Top + .ChartObjects(i - 1).Height
    Next
End With
End Sub

Es muß also jeweils noch erklärt werden, daß die ChartObjects im Tabellenblatt ("Termin Graphik" gemeint sind.
(Ich hatte die Prozedur hier zum Testen direkt im Modul des Tabellenblattes geschrieben, wodurch dieser Fehler natürlich nicht gleich bemerkbar ist)

Ich hoffe jetzt hast du mehr Erfolg!


 Bild

Excel-Beispiele zum Thema " Diagramm an Zelle ausrichten?"

Diagramm in Userform download Export von Diagrammen im Grafikformat download
Diagramm aus Arbeitsblatt in Diagrammblatt übertragen download Balkendiagramm simulieren download
Diagramm aus Daten einer Bandbreite bilden download Diagramm-Datenreihen blinken lassen und Linie langsam zeichnen download
Diagramm exportieren und in Tabellenblatt importieren download Eine Serie von Diagrammen erstellen und Druckansicht zeigen download
Diagramm-Datenbereich über Schaltfläche festlegen download Mit einer Diagramm-Bildlaufleiste durch Tabelle bewegen download
Gleiche Zufallszahlen zählen und in Diagramm anzeigen download Diagrammdatenreihe mit VBA ändern download
Diagramm erstellen, in UserForm anzeigen und drucken download Dynamisches Diagramm download
Diagramm dynamisch erstellen download Hyperlink zu einem Diagrammblatt. download
Diagramm zu PowerPoint-Präsentation konvertieren und aufrufen download Bei Rechtsklick auf Diagramm MessageBox-Aufruf download
Zellen verbinden und senkrecht ausrichten download