Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Diagramme

Diagramme
15.03.2005 14:40:55
Frank
Servus,
ich habe mal zwei Fragen zum Thema Diagramm
Erstens - wie schaffe ich es, dass ein Diagramm in einem Excelsheet an einem bestimmten Platz mit einer festgelegten Größe aufgeht. Habe in der oberen Hälfte meines Blattes Daten und möchte gern das Diagramm darunter links plazieren. Momentan erscheint es beim autom. erstellen genau in der Mitte.
Zum zweiten - habe 5 Datenblätter und würde gern das Diagramm einmal konzipieren und dann wie die anderen Daten über eine Schleife ausführen lassen. Momentan haperts daran, das beim Fertigstellen auf das aktuelle Datenblatt bezug genommen wird und ich fünfmal das selbe auf der ersten Seite bekomme!!! schnief!!!
Hat vielleicht jemand eine klitzekleine Idee
Mfg Frank P.

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

Betreff
Datum
Anwender
Anzeige
AW: Diagramme verschieben, noch offen
15.03.2005 16:45:19
Volker
Hallo Frank,
manchmal ist es einfacher, das Blatt mit dem Diagramm zu kopieren und die dann die entsprechenden Daten reinzukopieren. Dann stimmen wenigstens die Bezüge sofort.
Wenn Du schon dabei bist, erstell Dir gleich eine Vorlage mit 5 Blättern und den Diagrammen, wie Du sie haben willst. Dann Daten reinkopieren, fertig.
Was nämlich die Position des Diagramms angeht, bin ich nicht so fit.
Wenn ich eins mit der Maus verschiebe, kommt das heraus.
ActiveSheet.Shapes("Diagramm 1").IncrementLeft -192.75
ActiveSheet.Shapes("Diagramm 1").IncrementTop -119.25
Das sind natürlich nur relative Koordinaten und helfen Dir damit wenig weiter.
Du könntest natürlich die Parameter so groß wählen, dass es mit Sicherheit oben links landet und dann um einen definierten Wert wieder nach unten verschieben.
Lasse die Frage noch offen.
ActiveSheet.Shapes("Diagramm 1").IncrementLeft -1000
ActiveSheet.Shapes("Diagramm 1").IncrementTop -1000
'von links oben 120 Pixel nach unten:
ActiveSheet.Shapes("Diagramm 1").IncrementTop 120
Gruß
Volker
Anzeige
AW: Diagramme verschieben, noch offen
15.03.2005 19:59:40
Frank
komme gerade von einem Meeting - werde es gleich ausprobieren.
Danke schonmal für Deine Mühe
Frank P.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige