Cum se schimbă automat toate imaginile pentru a le muta și a le mări cu celulele din Excel?
În mod normal, o imagine a fost inserată în foaia de lucru cu proprietățile implicite ale Mutare și nu se dimensionează cu celule. Trebuie să-i modificați manual proprietățile în funcția Mutare și dimensiune cu celule din foaia de lucru după cum aveți nevoie. De fapt, puteți schimba rapid imaginea pentru a vă deplasa și a dimensiona automat celulele cu o soluție. Și acest articol vă va arăta metoda de realizare.
Schimbați automat toate imaginile pentru a le muta și a le mări cu celule cu cod VBA
Schimbați automat toate imaginile pentru a le muta și a le mări cu celule cu cod VBA
Codul VBA de mai jos vă poate ajuta să schimbați rapid proprietățile tuturor imaginilor pentru a le muta și a le mări cu celulele dintr-o foaie de lucru. Vă rugăm să faceți următoarele.
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 pentru a vă deplasa și mărimi 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 Sub3. apasă pe F5 sau faceți clic pe butonul Executare pentru a rula codul.
Apoi, imaginile din foaia activă sunt schimbate automat în Mutare și dimensiune cu celule automat.
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 pentru Excel și experimentați eficiența ca niciodată. Kutools pentru 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...
Fila Office aduce interfața cu file în 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!
