¿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:
- ¿Cómo centrar una imagen en una celda de Excel?
- ¿Cómo verificar si una celda contiene una imagen en Excel?
- ¿Cómo insertar una imagen o una imagen dinámicamente en la celda según el valor de la celda en Excel?
- ¿Cómo agrandar la imagen al hacer clic en ella en Excel?
Las mejores herramientas de productividad de oficina
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...
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!