Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1064to1068
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
Inhaltsverzeichnis

Position eines Rechtecks auslesen

Position eines Rechtecks auslesen
29.03.2009 14:02:05
Alex
Moin,
ich mache grad die ersten Gehversuche mit VBA und bin dabei auf ein Problem gestoßen, das weder der Macrorekorder noch google lösen kann.
Ich möchte eine Funktion programmieren, mittels der ein Rechteck zufallsbasiert über die Tabelle gejagt wird. Dabei soll es sich aber nicht mehr als eine bestimmte Reichweite vom ursprünglichen Punkt entfernen.
Bis jetzt hab ich das Ganze so gelöst, dass ich mit incrementtop und left das Rechteck verschiebe und gleichzeitig Variablen verändere. Eine Variable gibt die Abweichung in der horizontalen an, die andere die Abweichung in der vertikalen.
Soweit funktioniert das auch echt toll, aber ich hatte vor einige (mehr als 100) von diesen Rechtecken zu erschaffen. Da kommt das mit den Variablen natürlich nicht so toll, auch ein Array wär unpraktisch, weil ich die Daten davon irgendwo speichern müsste.
Da kam mir die Idee, die Positionswerte des Rechtecks auszulesen. Nur leider finde ich nirgends den Befehl dazu.
Ich hoffe die Frage war nicht zu dumm, wenn doch, freut euch, dass ihr schlauer seid ;)

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Position eines Rechtecks auslesen
29.03.2009 14:15:02
Heinz
Hi,
Rechtecke, wie auch andere Objekte, haben eine Left- und eine
Top-Eigenschaft, die du auslesen kannst.
mfg Heinz
AW: Position eines Rechtecks auslesen
29.03.2009 14:31:53
Alex
Vielen Dank für die schnelle Antwort!
Also geht das mit selection.shaperange.top bzw left
Ich hatte immer irgendwas wie ".positiontop" oder ".positionx" gesucht... Danke!
selection.shaperange.top=großer Mist
29.03.2009 14:52:38
ransi
HAllo
Also geht das mit selection.shaperange.top bzw left
Neeeee !!!!
Sheets("Tabelle1").Shapes(1) .top
oder:
Sheets("Tabelle1").Shapes("Rechteck 1") .top
Du musst nicht selecten.
ransi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige