Cambiar propiedades OLEobject en tiempo de ejecución

hola, 'anonimo/a' !

... tengo un codigo en VBA que me crear un objeto OLE textbox
pero en tiempo de ejecucion no puedo cambiarle las propiedades
por ejemplo; deseo que la propiedad "EnterKeyBehavior" sea true
pero en VBA no me expone estás propiedades. Alguna sugerencia?

siempre es "bueno" (y podria ahorrarte tiempo) si comentas/expones/... los detalles "precisos"
(p.e. el codigo que estas intentando actualmente y dos o tres detalles que ayuden a reconstruir TU entorno)

el siguiente ejemplo, incrusta un control (TextBox) en la celda [B5] y establece su propiedad (enterkeybehavior) en true:

Sub Insertar_TextBox()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
With Range("b5")
Izq = .Left
Arr = .Top
End With
Ancho = 65
Alto = 17
With ActiveSheet.OLEObjects.Add( _
ClassType:="Forms.TextBox.1", Link:=False, DisplayAsIcon:=False, _
Left:=Izq, Top:=Arr, Width:=Ancho, Height:=Alto)
.Object.EnterKeyBehavior = True
End With
End Sub

saludos,
hector.

Muchas gracias Héctor Miguel, eso es precisamente lo que necesitaba. ;-)


"Héctor Miguel" escribió en el mensaje de
noticias news:

hola, 'anonimo/a' !

... tengo un codigo en VBA que me crear un objeto OLE textbox
pero en tiempo de ejecucion no puedo cambiarle las propiedades
por ejemplo; deseo que la propiedad "EnterKeyBehavior" sea true
pero en VBA no me expone estás propiedades. Alguna sugerencia?

siempre es "bueno" (y podria ahorrarte tiempo) si comentas/expones/... los
detalles "precisos"
(p.e. el codigo que estas intentando actualmente y dos o tres detalles que
ayuden a reconstruir TU entorno)

el siguiente ejemplo, incrusta un control (TextBox) en la celda [B5] y
establece su propiedad (enterkeybehavior) en true:

Sub Insertar_TextBox()
Dim Izq As Single, Arr As Single, Ancho As Single, Alto As Single
With Range("b5")
Izq = .Left
Arr = .Top
End With
Ancho = 65
Alto = 17
With ActiveSheet.OLEObjects.Add( _
ClassType:="Forms.TextBox.1", Link:=False, DisplayAsIcon:=False,
_
Left:=Izq, Top:=Arr, Width:=Ancho, Height:=Alto)
.Object.EnterKeyBehavior = True
End With
End Sub

saludos,
hector.