genaue Position eines Objektes bestimmen
25.09.2007 16:04:36
Benni
Ich habe ein Problem: ich möchte einen Pfeil, der bei Knopfdruck immer an dieselbe Stelle zurückgeht. Das geht leider nicht mit IncrementLeft und IncrementTop, da das zu ungenau ist (weitere Erklärung würde zu weit abschweifen), es muss eine genaue Positionsangabe sein, so wie wenn man ein Shape erstellt.
Zur Lösung dieses Problems dachte ich mir, lasse ich bei Knopfdruck jedes mal einen neuen Pfeil erstellen und lösche den alten. Das Problem ist, ich muss direkt auf den neu erstellten Pfeil zugreifen können und das kriege ich nicht hin. Ich dachte es ginge vielleicht so in der Richtung:
Dim Pfeil As Shape
Sub Pfeil_erstellen()
ActiveSheet.Shapes.AddShape(msoShapeLeftArrow, 260.25, 231#, 30.75, 9#). Select
Set Pfeil = Selection
End Sub
Sub Weiterverwendung()
Pfeil.IncrementLeft 30
End Sub
Das klappt aber leider nicht. ICh denke die Zeile Set PFeil = Selection ist das Problem. Weiß jemand Rat?
Ganz normal mit Set PFeil = ActiveSheet.Shapes("Autoform 1") geht es nicht, da ich die Nummer der Autoform nicht weiß, die ändert sich jedes mal (möchte den Knopf öfter drücken können).
Falls dieser relativ umständliche Weg nicht funktioniert steht immer noch die Frage im Raum, ob man den Pfeil nicht neu erstellen muss, sondern mit genauen Angaben (wie beim erstellen) verschieben kann. Ich finde dazu leider nichts.
Ich bin um jede Hilfe dankbar,
Gruß, Benni.