Cum se centrează o imagine într-o celulă Excel?
Acest articol vă va arăta o metodă de mutare a imaginilor în centrul celulelor dintr-o foaie de lucru Excel, așa cum este prezentată mai jos.
Mutați imaginea în centrul celulei cu codul VBA
Mutați imaginea în centrul celulei cu codul VBA.
Vă rugăm să procedați după cum urmează pentru a muta imaginile în centrul celulelor dintr-o foaie de lucru în Excel.
1. Deschideți foaia de lucru conține imaginile pe care trebuie să le centrați în celule, apoi 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 fereastra, faceți clic pe Insera > Module. Apoi copiați și lipiți codul VBA în fereastra Cod.
Cod VBA: Mutați imaginile în centrul celulelor din foaia de lucru
Sub CenterPictures()
With ActiveSheet.Shapes("Picture 2")
.Top = Range("A1").Top + (Range("A1").Height - .Height) / 2
.Left = Range("A1").Left + (Range("A1").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 4")
.Top = Range("A2").Top + (Range("A2").Height - .Height) / 2
.Left = Range("A2").Left + (Range("A2").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 6")
.Top = Range("A3").Top + (Range("A3").Height - .Height) / 2
.Left = Range("A3").Left + (Range("A3").Width - .Width) / 2
End With
End Sub
notițe:
With ActiveSheet.Shapes("Picture name")
.Top = Range("Cell Address").Top + (Range("Cell Address").Height - .Height) / 2
.Left = Range("Cell Address").Left + (Range("Cell Address").Width - .Width) / 2
End With
3. apasă pe F5 tasta pentru a rula codul.
Apoi, toate imaginile specificate vor fi mutate în centrul anumitor celule imediat după cum se arată în imaginea de mai jos.
Articole pe aceeaşi temă:
- Cum se schimbă automat toate imaginile pentru a le muta și a le mări cu celulele din 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!