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.

Deblocați Excel Magic cu Kutools AI

• Execuție inteligentă: Efectuați operații cu celule, analizați date și creați diagrame, toate conduse de comenzi simple.
• Formule personalizate: generați formule personalizate pentru a vă simplifica fluxurile de lucru.
• Codare VBA: Scrieți și implementați codul VBA fără efort.
• Interpretarea formulei: Înțelegeți cu ușurință formulele complexe.
• Traducere text: spargeți barierele lingvistice din foile de calcul.

Îmbunătățiți-vă capabilitățile Excel cu instrumente bazate pe inteligență artificială. Descarcă acum și experimentați eficiența ca niciodată!

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?