Cum se schimbă automat toate imaginile în „Mutați și măriți cu celule” în Excel?
În mod implicit, imaginile inserate într-o foaie de lucru Excel sunt setate la „Mutați, dar nu măriți cu celule”, ceea ce înseamnă că rămân la aceeași dimensiune chiar și atunci când ajustați dimensiunile celulei. Dacă aveți nevoie de imagini pentru a redimensiona și a muta împreună cu celulele lor, de obicei trebuie să modificați această setare manual pentru fiecare imagine. Cu toate acestea, există o metodă rapidă de a seta automat toate imaginile la „Mutați și măriți cu celule” folosind un cod VBA simplu. Acest articol vă va ghida prin el.
Schimbați automat toate imaginile în „Mutați și măriți cu celule” cu codul VBA
Schimbați automat toate imaginile în „Mutați și măriți cu celule” cu codul VBA
Codul VBA de mai jos vă poate ajuta să schimbați rapid proprietățile tuturor imaginilor la „Mutați și măriți cu celule” într-o foaie de lucru. Vă rugăm să faceți după cum urmează.
1. Deschideți foaia de lucru conține imaginile pe care doriți să le modificați prin mișcare și dimensionare cu celule, apoi deschideți Microsoft Visual Basic pentru aplicații fereastra apăsând tasta Alt + F11 chei.
2. În Microsoft Visual Basic pentru aplicații fereastra, faceți clic pe Insera > Module. Apoi copiați și lipiți codul VBA în fereastra Cod.
Cod VBA: schimbați toate imaginile în „Mutați și măriți cu celule”
Sub MoveAndSizeWithCells()
Dim xPic As Picture
On Error Resume Next
Application.ScreenUpdating = False
For Each xPic In ActiveSheet.Pictures
xPic.Placement = xlMoveAndSize
Next
Application.ScreenUpdating = True
End Sub
3. apasă pe F5 sau faceți clic pe butonul Executare pentru a rula codul.
Toate imaginile din foaia activă sunt acum setate automat la „Mutați și măriți cu celule”.
Articole pe aceeaşi temă:
- Cum se centrează o imagine într-o celulă Excel?
- Cum să verificați dacă o celulă conține imagini în Excel?
- Cum se introduce o imagine sau o imagine dinamic în celulă pe baza valorii celulei din Excel?
- Cum să măriți imaginea când faceți clic pe ea în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools for Excelși experimentați eficiența ca niciodată înainte. Kutools for Excel Oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Office Tab Aduce interfața cu file la Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!