Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Diagramm verschieben

Forumthread: Diagramm verschieben

Diagramm verschieben
18.06.2003 14:51:40
Christian Minninger
Hallo zusammen,

mit Hilfe von Charts.Add und allerlei weiteren Anweisungen lasse ich mir ein Diagramm per Makro erstellen, das von der Formatierung her genau meinen Vorstellungen entspricht.
Allerdings will ich das Diagramm nun noch automatisch an einer bestimmte Stelle (z.B. ganz oben links auf dem Tabellenblatt) positionieren lassen. Hat jemand eine Idee, wie ich das machen könnte?
Ich habe schon herausgefunden, dass ich das Diagramm in die linke obere Ecke bekomme, wenn ich das Diagramm manuell selektiere und dann Selection.Top = 0 und Selection.Left = 0 anwende. Es hapert eigentlich nur an der automatischen Selektion des zuvor mit Charts.Add erstellten Diagramms, damit das Diagramm ohne manuellen Eingriff verschoben wird.

Vielen Dank und schönen Gruß,
Christian


Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Diagramm verschieben
18.06.2003 14:54:52
Mike E.

Hallo,

hast du versucht, den Schritt des Verschiebens bzw. des Selektierens aufzuzeichenen?

selectieren:

ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select


Verschieben:

ActiveSheet.Shapes("Diagramm 1").IncrementLeft -174.75
ActiveSheet.Shapes("Diagramm 1").IncrementTop -91.5


Gruß
Mike

Anzeige
Re: Diagramm verschieben
18.06.2003 14:56:45
PeterA

Hallo Christian

Mit folgendem Code kannst du das Diagramm positionieren.

ActiveSheet.Shapes("Diagramm 1").Top = 100
ActiveSheet.Shapes("Diagramm 1").Left = 100

Ciao Peter

Re: Diagramm verschieben
18.06.2003 14:58:00
Christian MInninger

Ja, das hab ich schon probiert.

Das Problem an der Sache ist, dass ich den Diagrammnamen (also z.B. "Diagramm 1") nicht automatisch herausfinden und somit auch das Diagramm nicht selektieren kann. Excel vergibt ja anscheinend eine laufende Nummer (ich bin gerade so bei 130).

Anzeige
Re: Diagramm verschieben
18.06.2003 15:01:57
Christian Minninger

Hallo Peter,

auch Dir zunächst mal vielen Dank. Allerdings habe ich bei Deinem Vorschlag dasselbe Problem wie bei Mike's Vorschlag (ich bekomme den Namen des Diagramms nicht per VBA raus).

Re: Diagramm verschieben
18.06.2003 15:01:59
Mike E.

hallo,

da du ja anscheinend immer neue Shaps erstellst und immer auf das letzte zugraifen möchest, müsste es (ohne dass ich's getestet hab) auch so gehen:

ActiveSheet(.Shapes(Shapes.Count).Activate

Gruß
Mike

Anzeige
Re: Diagramm verschieben
18.06.2003 15:21:17
Christian Minninger

Hallo Mike,

mit ein paar kleineren Modifikationen Deines Codes hab ichs hinbekommen, vielen Dank!!!

Gruß,
Christian

;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige