In VBA Code behind a worksheet

Dim objFrame As OleObject
Dim objTextBox As OLEObject

Set objFrame = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Frame .1")
Set objTextBox =
ActiveSheet.OLEObjects(objFrame).Add(ClassType:="F orms.Textbox.1")

Frame is created. But Textbox statement errors out - and doesn't get
created inside of Frame

Thanks

Steve

The Forms Toolbar does not have a TextBox control on it... you will need to
use either the one from the Drawing Toolbar or from the Control Toolbox
Toolbar instead.

--
Rick (MVP - Excel)


"sarndt" wrote in message
...
In VBA Code behind a worksheet

Dim objFrame As OleObject
Dim objTextBox As OLEObject

Set objFrame = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Frame .1")
Set objTextBox =
ActiveSheet.OLEObjects(objFrame).Add(ClassType:="F orms.Textbox.1")

Frame is created. But Textbox statement errors out - and doesn't get
created inside of Frame

Thanks

Steve

Rick

Thanks for the info. Everytime I try to use the MSForms.Frame and Textbox,
I get the Cannot Install Object error. I've tried various recommendations
from the Internet to fix the problem but none have worked so far. I keep
working on it.

Steve

"sarndt" wrote:

In VBA Code behind a worksheet

Dim objFrame As OleObject
Dim objTextBox As OLEObject

Set objFrame = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Frame .1")
Set objTextBox =
ActiveSheet.OLEObjects(objFrame).Add(ClassType:="F orms.Textbox.1")

Frame is created. But Textbox statement errors out - and doesn't get
created inside of Frame

Thanks

Steve

Well - I've played with this further. I can add a control toolbox frame to
the worksheet in display mode, but I can't add it using the code below in the
Worksheet_change event where I trying to add the frame.

Set objFrame = Activesheet.OLEObjects.Add(classtype:="MSForms.Fra me")

Steve

=================

"sarndt" wrote:

In VBA Code behind a worksheet

Dim objFrame As OleObject
Dim objTextBox As OLEObject

Set objFrame = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Frame .1")
Set objTextBox =
ActiveSheet.OLEObjects(objFrame).Add(ClassType:="F orms.Textbox.1")

Frame is created. But Textbox statement errors out - and doesn't get
created inside of Frame

Thanks

Steve

Try this


Dim objFrame As Frame
Dim objTextBox As Control

Set objFrame = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Frame .1").Object
Set objTextBox = objFrame.Controls.Add("Forms.Textbox.1")




On 3/17/2010 12:50 PM, sarndt wrote:
Well - I've played with this further. I can add a control toolbox frame to
the worksheet in display mode, but I can't add it using the code below in the
Worksheet_change event where I trying to add the frame.

Set objFrame = Activesheet.OLEObjects.Add(classtype:="MSForms.Fra me")

Steve

=================

"sarndt" wrote:

In VBA Code behind a worksheet

Dim objFrame As OleObject
Dim objTextBox As OLEObject

Set objFrame = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Frame .1")
Set objTextBox =
ActiveSheet.OLEObjects(objFrame).Add(ClassType:="F orms.Textbox.1")

Frame is created. But Textbox statement errors out - and doesn't get
created inside of Frame

Thanks

Steve