Salt la conținutul principal

Cum să faceți clic pentru a mări sau extinde imaginea în documentul Word?

Autor: Siluvia Ultima modificare: 2024-07-18

Inserting images into a Word document can greatly enhance its visual appeal and effectiveness. However, when dealing with detailed images or needing to save space, it can be helpful to allow readers to click and enlarge images for a closer look. Word does not have a built-in feature for click-to-enlarge images, but there are workarounds to achieve this effect.

In this tutorial, we will guide you through the steps to create clickable images that enlarge or expand when clicked, enhancing the interactivity and functionality of your Word documents.

Faceți clic pentru a mări sau extinde imaginea cu cod VBA

Resize all images at once with Kutools for Word


Faceți clic pentru a mări sau extinde imaginea cu cod VBA

Următorul cod VBA vă poate ajuta să măriți imaginile într-un document Word cu un clic. Vă rugăm să faceți următoarele.

1. În documentul conține imagini pe care le veți mări printr-un clic, apăsați pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Modulul clasei. Apoi copiați mai jos codul VBA în fereastra Class.

Cod VBA 1: Faceți clic pentru a mări imaginile

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

notițe: În cod, numărul 200 este înălțimea și lățimea specificate pentru imaginile mărite. Puteți schimba înălțimea și lățimea după cum aveți nevoie.

Microsoft Visual Basic for Applications window 1

3. clic Insera > Module, copiați codul de mai jos în fereastra Module.

Cod VBA 2: Faceți clic pentru a mări imaginile

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

Microsoft Visual Basic for Applications window 2

4. apasă pe F5 tasta pentru a rula codul și a închide Microsoft Visual Basic pentru aplicații fereastră.

Acum, când faceți clic pe o imagine din acest fișier, imaginea va fi mărită la dimensiunea specifică dorită.

Click to enlarge illustration


Resize all images at once with Kutools for Word

Redimensionați imaginile utilitatea Kutools pentru Cuvânt vă poate ajuta să redimensionați toate imaginile cu un procent specificat sau cu o imagine selectată. Vă rog să încercați.

Kutools pentru Cuvânt este ultimul program de completare Word care vă simplifică munca și vă îmbunătățește abilitățile de procesare a documentelor. Ia-l acum!

Clic Kutools Plus > Redimensionarea, select a percentage from the drop-down list. See screenshot:

Kutools for Word's resize options 1

Apoi, toate imaginile din documentul curent sunt redimensionate pe baza acestui procent specific.

Pentru redimensionarea tuturor imaginilor în funcție de dimensiunea imaginii selectate, trebuie mai întâi să selectați imaginea și apoi să faceți clic Kutools Plus > Redimensionarea > Redimensionați imaginile cu selecție. Vedeți captura de ecran:

Kutools for Word's resize options 2

Apoi, toate imaginile din documentul curent sunt redimensionate pe baza celei selectate.


Fila Office: Aduce interfețe cu file în Word, Excel, PowerPoint...
ot cuvânt mijloc ad 100
Îmbunătățiți-vă fluxul de lucru acum.      Aflați mai multe despre Office Tab       Descărcare gratuită

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

🤖 Asistent AI Kutools: Transformă-ți scrisul cu AI - Generați conținut  /  Rescrie textul  /  Rezumat documente  /  Obțineți răspunsuri rapide, toate în Cuvânt

📘 Stăpânirea documentelor: Pagini împărțite  /  Fuzionați documente  /  Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...)  /  Conversie lot în PDF  /  Exportați paginile ca imagini  /  Imprimați mai multe fișiere simultan...

Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere  /  Redimensionați toate imaginile  /  Transpuneți rânduri și coloane de tabel  /  Convertiți tabelul în text...

🧹 Curățare fără efort: Îndepărtați Spații suplimentare  /  Secțiuni pauze  /  Toate anteturile  /  Casete text  /  hiperlinkuri  / Pentru mai multe instrumente de îndepărtare, mergeți la Eliminați grupul...

Inserții creative: Inserați Mii de separatori  /  Casete de bifare  /  Butoane radio  /  QR Code  /  coduri de bare  /  Tabel cu linii diagonale  /  Legenda ecuației  /  Image Caption  /  Legenda tabelului  /  Imagini multiple  / Descoperiți mai multe în Inserați grupul...

???? Selectii de precizie: Repera cu precizie Pagini specifice  /  Mese  /  Forme  /  Paragrafe de titlu  / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...

Îmbunătățiri de stele: Navigați la orice locație  /  Inserarea automată a textului repetitiv  /  Comutați între ferestrele documentelor  /  11 Instrumente de conversie...

???? Vrei să încerci aceste funcții? Descărcați Kutools pentru Word acum! 🚀
 
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
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations