En un formulario macro para crear varios controles activex imagen y poder modificar las propiedades de la imagen
En un formulario con una macro necesito crear varios controles activex imag (Image1, Image2, etc), y una vez creados poder modificar sus propiedades para ponerlo en un lugar concreto del formulario y dimensionarlo; he intentado hacerlo, pero se queda la imagen en la esquina superior izquierda y no puedo acceder a sus propiedades, también quisiera que al salir de la macro se guardara el formulario con las imágenes creadas. POngo la macro que hice:
Private Sub UserForm_Initialize()
' CREAR UN CONTROL ACTIVEX IMAGE
Dim Image1 As MSForms.Image
Set Image1 = Me.Controls.Add("FORMS.Image.1", "Image1")
ARTNUEVO.Image1.Top = 126 'EMPIEZA ARRIBA
ARTNUEVO.Image1.Left = 30 'IZQUIERDA
ARTNUEVO.Image1.Height = 126 'alto
ARTNUEVO.Image1.Width = 90 'ancho
' PONER UNA IMAGEN EN IMAGE1 BUSCANDO LA IMAGEN CON EL EXPLORADOR DE WINDOWS
Dim Ruta As String
Ruta = Application.GetOpenFilename
Image1.Picture = LoadPicture(Ruta)
Image21PictureSizeMode = 3
End Sub
1 Respuesta
Así debiera quedar tu macro. Tenía algunos errores de sintaxis.
Private Sub UserForm_Initialize()
' CREAR UN CONTROL ACTIVEX IMAGE
Dim Image1 As MSForms.Image
Set Image1 = Me.Controls.Add("FORMS.Image.1", "Image1")
Image1.Top = 126 'EMPIEZA ARRIBA
Image1.Left = 30 'IZQUIERDA
Image1.Height = 126 'alto
Image1.Width = 90 'ancho
' PONER UNA IMAGEN EN IMAGE1 BUSCANDO LA IMAGEN CON EL EXPLORADOR DE WINDOWS
Dim Ruta As String
Ruta = Application.GetOpenFilename
Image1.Picture = LoadPicture(Ruta)
Image1.PictureSizeMode = 3
End SubCon la propiedad PictureSizeMode = 3 te queda como la imagen de la izquierda. La imagen a derecha tiene valor en 1.
Ignoro que hago mal, pero algo hay en la primera línea:
Dim Image1 As MSForms.Image
Porque me da el error: error de compilación : No se ha definido el tipo definido por el usuario.
¿A qué se refiere?
Gracias anticipadas por la ayuda.
Quitá esa línea y volvelo a probar. Si nuevamente te salta algún error indicame tu versión Excel.
Sdos!
