Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
ICONO 150x150, Image con VBA

Image con VBA

| 1 comentario

¿Qué es Image?

Image es uno de los controles UserForm. 

- Puede seleccionar y arrastrar Imagen en el UserForm. 
- Puede seleccionar y arrastrar Imagen en el UserForm.
- El control de imagen incluye una imagen como jpg, jpeg, gif, png, mapa de bits, etc. 

 

A. Cargar una imagen en USERFORM :

Ir a la pestaña Desarrollador y luego haga clic en Visual Basic desde el código o presione Alt + F11. 

1. Ir a Insertar menú, haga clic en UserForm. Encuentre la captura de pantalla para el mismo.

Image en VBA 1, Image con VBA

2.-Arrastre Image_control en Userform desde Toolbox.

Image en VBA 2, Image con VBA

3.- Haga clic en las propiedades image_control.

4.- En el lado izquierdo, encuentra 'Imagen' de las propiedades disponibles del control.

5.- En el lado derecho, haz clic en eso y selecciona la imagen de la fuente.

6.- En el lado izquierdo, encuentre 'PictureSizeMode' de las propiedades disponibles del control.

7.-En el lado derecho, seleccione '1 - frmPictureSiseModeStretch' de la lista disponible.

Image en VBA 3, Image con VBA

8.-Ahora, puede ver la siguiente salida como se muestra a continuación en la captura de pantalla.

Image en VBA 4, Image con VBA

B. Agregar Dynamic Image_Control en el UserForm usando VBA

1.- Agregar imagen y CommandButton en la forma de usuario desde la caja de herramientas.

2.- Haga clic con el botón derecho en CommandButton, haga clic en Propiedades

3.- Cambie el título CommandButton a 'Create_Image'

4.- Haga doble clic en CommandButton

Comandos :

   With Img    

.Picture = LoadPicture("C:\Users\mwx504579\Desktop\TAREA 19_Aug_2018\Tema opcional\VETERINARIA.bmp")       
        .PictureSizeMode = fmPictureSizeModeStretch
        .Left = 50
        .Top = 10

    End With

 

5.- Ahora, haga clic en F5 para ejecutar la macro, haga clic en el botón 'Crear_Imagen' para ver el resultado. 

Image en VBA 5, Image con VBA

6.- Puede ver el Image_control dinámico creado que se muestra en la siguiente captura de pantalla.

Image en VBA 6, Image con VBA

 

C. Agregar y borrar imagen .

1. Agregar en siguiente USERFORM1 con dos botones .

Image en VBA 7, Image con VBA

2. Respecto al botón Agregar imagen se tiene los siguientes comando :

Private Sub CommandButton1_Click()

     Set lblBtn = Me.Controls.Add("Forms.Image.1")
    With lblBtn

        .Top = 20
        .Left = 40
        .Name = "lblNew1"
        .Picture = LoadPicture("C:\Users\mwx504579\Desktop\TAREA19_Aug_2018\Tema opcional\CONEJO.BMP")

    End With
    MsgBox "Nueva Imagen agregada"

End Sub

Image en VBA 8, Image con VBA

3. Respecto al botón Eliminar  imagen se tiene los siguientes comando :

Private Sub CommandButton2_Click()

 Me.Controls.Remove ("lblNew1")

    MsgBox "Imagen borrada"

End Sub

Al ejecutar los botones se agrega o elimina una imagen en el USERFORM creado.

Image en VBA 9, Image con VBA

Agregar y borrar imagen

Crear Imagen

Insertar Imagen

 

 

Un comentario

  1. Buenas tardes, mira necesito que mediante el número de identificación de una persona, se despliegue su foto dentro del formulario.

Deja una respuesta

Los campos requeridos estan marcados con *.