Saltar al contenido principal

¿Cómo copiar la imagen de la hoja de trabajo al formulario de usuario en Excel?

Este artículo le mostrará los métodos para copiar una imagen de la hoja de trabajo activa a Userform en Excel.

Copie la imagen de la hoja de trabajo a la forma de usuario con copiar y pegar
Copie la imagen de la hoja de trabajo al formulario de usuario con código VBA


Copie la imagen de la hoja de trabajo a la forma de usuario con copiar y pegar

Haga lo siguiente para copiar una imagen de la hoja de trabajo al formulario de usuario.

1. Cambie a la hoja de trabajo que contiene la imagen que necesita copiar a Userform, y luego presione el otro + F11 llaves juntas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic en recuadro > Formulario de usuario. Ver captura de pantalla:

3. Ahora inserte un control de imagen en el formulario de usuario. Haga clic en el Imagen botón en el Herramientas cuadro de diálogo, luego dibuje un control de imagen en el Formulario de usuario a mano. Ver captura de pantalla:

4. Haga clic con el botón derecho en el control de imagen insertado y haga clic en Propiedades desde el menú contextual como se muestra a continuación:

5. Entonces puedes ver un Propiedades El panel se muestra en el lado izquierdo del Microsoft Visual Basic para aplicaciones ventana.

6. Regrese a la hoja de trabajo y seleccione la imagen que desea mostrar en el formulario de usuario, y luego copie la imagen presionando Ctrl + C llaves.

7. Entra en el Microsoft Visual Basic para aplicaciones de nuevo, desplácese hacia abajo para hacer clic en el Imagen y luego pegue el nombre de la imagen copiada en la pestaña Alfabético.

Ahora la imagen de la hoja de trabajo se copia en el formulario de usuario.


Copie la imagen de la hoja de trabajo al formulario de usuario con código VBA

Esta sección le mostrará una solución alternativa para copiar varias imágenes de la hoja de trabajo a un formulario de usuario y luego mostrar la imagen correspondiente en el formulario de usuario seleccionando el nombre de la imagen en un cuadro combinado. Haz lo siguiente.

1. Siga los pasos 1 y 2 anteriores o inserte un formulario de usuario en su hoja de trabajo.

2. Luego inserte un Control de cuadros en el UserFrom como se muestra a continuación:

3. Haga clic con el botón derecho en el marco insertado y seleccione Propiedades desde el menú contextual. En la izquierda Propiedades panel, seleccione Falso del desplegable Visible campo. Ver captura de pantalla:

4. Inserte varios controles de imagen en el marco como se muestra a continuación.

5. Regrese a la hoja de trabajo y seleccione la imagen que desea mostrar en el formulario de usuario y presione el botón Ctrl + C teclas para copiarlo.

6. Entra en el Microsoft Visual Basic para aplicaciones ventana, haga clic con el botón derecho en el primer control de imagen y seleccione Propiedades desde el menú contextual. Vea la captura de pantalla que se muestra.

7. En el Propiedades panel, haga clic en el Imagen campo, luego presione el Ctrl + V para pegar la imagen que copió en el paso 5 y luego seleccione 1 - fmPictureSizeModeStrtch del desplegable ModoTamañoImagen lista desplegable como se muestra a continuación.

8. Repita los pasos 5 - 7 para pegar otras imágenes de la hoja de trabajo en los controles de imagen de la izquierda en el formulario de usuario. Y el resultado se mostrará como se muestra a continuación.

9. Mueva el Cuadro control en la esquina del UserForm, luego inserte un nuevo Imagen control y un Caja combo control en el UserForm. Ver captura de pantalla:

10. Haga clic derecho en Formulario de usuarioY haga clic en Ver código. Luego copie y pegue el código VBA debajo para reemplazar el original en la ventana Código.

Código 1 de VBA: copiar la imagen de la hoja de trabajo al formulario de usuario

Private Sub ComboBox1_Change()
    UserForm1.Controls.Item("Image4").Picture = UserForm1.Controls.Item(UserForm1.ComboBox1.Value).Picture
End Sub
Private Sub UserForm_Initialize()
    Dim xImg As Control
    On Error Resume Next
    For Each xImg In UserForm1.Controls
        If TypeName(xImg) = "Image" And xImg.Name <> "Image4" Then
            UserForm1.ComboBox1.AddItem xImg.Name
        End If
    Next
End Sub

Note: En el código, Formulario de usuario1 es el nombre del formulario de usuario insertado, Image4 es el nombre del control Imagen en el que se mostrarán las imágenes. Y Imagen representa todos los controles de Imagen que contienen las imágenes que copió de la hoja de trabajo. ComboBox1 es el nombre del cuadro combinado que ha insertado en el formulario de usuario. Por favor cámbielos por los suyos.

11. Cierra el Microsoft Visual Basic para aplicaciones ventana.

12. Inserte un botón Comando en la hoja de trabajo haciendo clic Developer > recuadro > Botón de comando (control ActiveX).

13. Haga clic derecho en el botón de comando y seleccione Ver código desde el menú contextual. Y luego copie y pegue el siguiente código VBA en la ventana Código. Y finalmente cierra la ventana.

Código 2 de VBA: copiar la imagen de la hoja de trabajo al formulario de usuario

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

15. Hacer clic en Developer > Modo de diseño para desactivar el modo de diseño.

De ahora en adelante, al hacer clic en el botón de comando, aparecerá el formulario de usuario. Puede mostrar la imagen seleccionando el nombre de la imagen en el cuadro combinado. Ver captura de pantalla:

Seleccione diferentes nombres del cuadro combinado y se mostrarán diferentes imágenes en el formulario de usuario.


Artículos relacionados:

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I'm having difficulties, can someone explain the code for me?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations