Excel ActiveX TextBox by VB-Coding

T

TKT-Tang

The intention is to construct an ActiveX Control TextBox on an Excel
worksheet ; and so, the following code is generated by deploying the
Control ToolBox and Macro Recorder simultaneously.

Sub ActiveXTextBox()
'
' ActiveXTextBox Macro
' Macro recorded 2004-11-26 by SynthesisUserNameDotAuthor
'
' Keyboard Shortcut: Ctrl+e
'
ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1",
Link:=False, _
DisplayAsIcon:=False, Left:=178.2, Top:=1326.6, Width:=72,
Height:=18 _
).Select
End Sub

And then, the result shows that the TextBox thus added could indeed be
bred by the Forms (Control) toolbar.

The question remains that, how to deploy an ActiveX TextBox by
VB-Coding ?

Regards
 
Top