Textbox wird "verschoben" postioniert
01.10.2003 16:33:07
Jörg Schreiber
Ich moechte eine Textbox nach der absoluten Position (Cells.Left/Cells.Top) einer bestimmten Zelle ausrichten (linke Ecke Textbox = linke Ecke Zelle) und zwar dynamisch in der Zeile, die der User gerade anklickt (die Spalte ist bei allen identisch). Das tut er auch, allerdings richtet er die Textbox nicht an besagter Ecke aus, sondern nur "so ungefaehr". Des weiteren verschiebt er diese immer weiter nach unten, je groesser die Zeilennummer ist, also in Y bestaendig, in X eher dynamisch - fuer mich absolut unerklaerlich. Manuell im Code nachbessern widerstrebt mir und ist hier auch nicht effizient, da er ja dynamisch weiterverrutscht und irgendwann wieder aus dem Ruder laeuft. Hat hier jemand einen Rat?
Dim Zeile as Integer
Zeile = Selection.Row
ActiveSheet.OLEObjects.Add _
(ClassType:="Forms.TextBox.1", Link:=False, DisplayAsIcon:=False, _
Left:=Cells(Zeile, 33).Left, Top:=Cells(Zeile, 33).Top, Width:=239, _
Height:=27).Select
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With