Excel Höhe und Breite Text Box bestimmen

Hallo,

möchte mir eine Excel Tabelle mit Text Boxen erstellen und habe mir aus einem vorher erstellten Makro

ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
	DisplayAsIcon:=False, Left:=399.75, Top:=259.5, Width:=90.75, Height _
	:=15.75).Select

dann diesen Autoitode gemacht.

$oExcel.Range("D10").Select
With $oExcel.ActiveSheet
.OLEObjects.Add("Forms.TextBox.1")
.Left=399.75
.Top=259.5
.Width=90.75
.Height=15.75
.Link=False
.DisplayAsIcon=False
.Select
EndWith

Die Text Box wird auch so weit erstellt.
Nur kann ich halt nicht die Breite, höhe usw bestimmen. Es wird immer nur eine Text Box erstellt in der vorher " $oExcel.Range("D10").Select"
makierten Zelle und die dann auch noch zu klein oder nicht an die Zelle angepasst.

Wie bekomme ich es hin das die Text Box genauso groß ist wie die Zelle ?

Gruß
oh-ha

Ahhhhhhh,

danke dir geht so ohne Probleme.

Gruß
oh-ha

Danke,

so weit bin ich noch nicht, fange gerade erst an mit dem Skript.
Kannst gar nicht abschätzen wie du mir damit gerade geholfen hast.
Mache mir ein Kalendarium in Excel was dann später als ausfüllbares PDF Formular ausgegeben werden soll.
Das sind dann immer die Tage des Monats X 6 Einträge pro Zeile also max 186 Zellen die eine Text Box bekommen.

Gruß
oh-ha