Cambiar propiedades OLEobject en tiempo de ejecución

13/04/2009 - 22:40 por User | Informe spam
Buenas, resulta que tengo un código en VBA que me crear un objeto OLE
textbox, pero en tiempo de ejecución 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?

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
14/04/2009 - 02:04 | Informe spam
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.
Respuesta Responder a este mensaje
#2 User
14/04/2009 - 15:38 | Informe spam
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.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida