Saltar al contenido principal

¿Cómo hacer clic para ampliar o expandir la imagen en un documento de Word?

Este artículo habla sobre cómo ampliar o expandir imágenes en un documento de Word con un clic del mouse.

Haga clic para agrandar o expandir la imagen con código VBA

Cambiar el tamaño de las imágenes con Kutools para Word


Haga clic para agrandar o expandir la imagen con código VBA

El siguiente código VBA puede ayudar a ampliar imágenes en un documento de Word con un clic. Haz lo siguiente.

1. En el documento contiene imágenes que ampliará con un clic, presione la otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo de clase. Luego copie el código de VBA a continuación en la ventana Clase.

Código VBA 1: Haga clic para ampliar las imágenes

Public WithEvents GApp As Word.Application
'Updated by ExtendOffice 20181129
Private Sub GApp_WindowSelectionChange(ByVal Sel As Selection)
    Dim xShape As InlineShape
    On Error Resume Next
    Set xShape = Sel.InlineShapes(1)
    xShape.Height = 200
    xShape.Width = 200
End Sub

Note: En el código, el número 200 es la altura y el ancho especificados de las imágenes ampliadas. Puede cambiar la altura y el ancho según lo necesite.

3. Hacer clic en recuadro > Módulo, copie el código siguiente en la ventana del módulo.

Código VBA 2: Haga clic para ampliar las imágenes

Dim cls As New Class1
'Updated by ExtendOffice 20181129
Sub register_Event_Handler()
    Set cls.GApp = Word.Application
End Sub

4. presione el F5 para ejecutar el código y cerrar el Microsoft Visual Basic para aplicaciones ventana.

Ahora, al hacer clic en una imagen de este archivo, la imagen se ampliará al tamaño específico que desee.


Cambiar el tamaño de las imágenes con Kutools para Word

La Cambiar el tamaño de las imágenes utilidad de Kutools for Word puede ayudarlo a cambiar el tamaño de todas las imágenes en un porcentaje específico o imagen seleccionada. Por favor inténtelo.

Kutools for Word : Con más de 100 útiles complementos de Word, libre de probar sin limitación en 60 días.

Haga Clic en Kutools Más > Cambiar el tamaño de, seleccione un porcentaje de la lista desplegable. Ver captura de pantalla:

Luego, todas las imágenes del documento actual se redimensionan en función de este porcentaje específico.

Para cambiar el tamaño de todas las imágenes según el tamaño de la imagen seleccionada, primero debe seleccionar la imagen y luego hacer clic en Kutools Más > Cambiar el tamaño de > Cambiar el tamaño de las imágenes con selección. Ver captura de pantalla:

Luego, todas las imágenes en el documento actual se redimensionan en función de la seleccionada.

Si desea tener una prueba gratuita de esta utilidad, vaya a descarga gratis el software primero, y luego vaya a aplicar la operación según los pasos anteriores.


Office Tab - Navegación, edición y administración con pestañas de múltiples documentos en Word:

Office Tab trae la interfaz con pestañas como se ve en navegadores web como Google Chrome, nuevas versiones de Internet Explorer y Firefox a Microsoft Word. Eso seguirá ser una herramienta que ahorra tiempo e insustituible en su trabajo. Vea la demostración a continuación:

¡Haga clic para obtener una prueba gratuita de Office Tab!

Las mejores herramientas de productividad de oficina

Kutools for Word - Mejore su experiencia con Word con Over 100 ¡Características notables!

🤖 Asistente de IA de Kutools: Transforma tu escritura con IA - Generar contenido  /  Reescribir texto  /  Resumir documentos  /  Solicite información basado en el documento, todo dentro de Word

📘 Dominio del documento: Dividir páginas  /  Combinar documentos  /  Exportar selección en varios formatos (PDF/TXT/DOC/HTML...)  /  Convertir por lotes a PDF  /  Exportar páginas como imágenes  /  Imprima varios archivos a la vez...

Edición de contenidos: Buscar y reemplazar por lotes en varios archivos  /  Cambiar el tamaño de todas las imágenes  /  Transponer filas y columnas de tabla  /  Convertir tabla en texto...

🧹 Limpieza sin esfuerzo: barrer Espacios extra  /  Saltos de sección  /  Todos los encabezados  /  Cuadros de texto  /  Los hipervínculos  / Para obtener más herramientas de extracción, diríjase a nuestro Quitar grupo...

Inserciones creativas: Insertar Mil Separadores  /  Casillas de verificación  /  Botones de radio  /  Código QR   /  Barcode  /  Tabla de líneas diagonales  /  Título de la ecuación  /  Captura de imagen  /  Pie de tabla  /  Varias imágenes  / Descubre más en el Insertar grupo...

🔍 Selecciones de precisión: Localizar páginas específicas  /  tablas  /  formas  /  párrafos de encabezado  / Mejorar la navegación con más, Seleccionar características...

Mejoras de estrellas: Navegue rápidamente a cualquier ubicación  /  insertar automáticamente texto repetitivo  /  alternar sin problemas entre ventanas de documentos  /  11 herramientas de conversión...

👉 ¿Quieres probar estas funciones? Kutools para Word ofrece una prueba gratuita de 60 días.¡Sin limitaciones! 🚀
 
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Yeah nice try, but it should really put the enlarged image in a temporary popup, instead of literally resizing the image!
This comment was minimized by the moderator on the site
OK...after clicking to expand, how do you get it to restore back to default size or click to default size?
This comment was minimized by the moderator on the site
It work in older world file, saved as .doc, but opened in MS 365.
This comment was minimized by the moderator on the site
Hi

The macro doesn't work as should. On MS Office 365 the resizing appear only for few mili sec.
This comment was minimized by the moderator on the site
Hi Thanks for the tip. I'm following the instructions on how to enlarge by using Macro, however I'm getting a error message "The type that was defined by user was ot defined" Any idea?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations