OLEObject TextBox
15.09.2005 14:55:53
Daniel
Ich habe versucht über folgenden Code TextBoxen in ein Sheet einzufügen:
Sub blablabla(wb As Workbook, _
ws As Worksheet, _
Left As Single, _
Top As Single, _
Width As Single, _
Height As Single, _
Name As String)
Dim obj As Object
Set obj = Application.Workbooks(wb.Name).Sheets(ws.Name).OLEObjects.Add _
ClassType:="Forms.TextBox.1", Link:=False, DisplayAsIcon:=False, _
Left:=Left, Top:=Top, Width:=Width, Height:=Height)
obj.Name = Name
Set obj = Nothing
End Sub
Anschließend will ich die Namen der auf diese Weise erzeugten Textboxen mit einer weiteren Prozedur auslesen:
Sub tralala(wb As Workbook, ws As Worksheet)
Dim ole As OLEObject
For Each ole In Application.Workbooks(wb.Name).Sheets(ws.Name).OLEObjects
If TypeName(ole.Object) = "TextBox" Then
Debug.Print ole.Name
End If
Next ole
End Sub
Leider werden die erzeugten TextBoxen nicht als OLEObjects erkannt...
Kann mir bitte jemand einen weisen Ratschlag erteilen!!!!!