Hogyan központosítson képet egy Excel cellába?

Ez a cikk bemutatja a képek áthelyezésének módszerét az Excel munkalap celláinak közepére, az alábbi képernyőképen.

Kép áthelyezése a cella közepére VBA kóddal

Kép áthelyezése a cella közepére VBA kóddal.

Kérjük, tegye a következőket, hogy a képeket az Excel munkalapján a cellák közepére helyezze.

1. Nyissa meg a cellákat középre állítani kívánt képeket tartalmazó munkalapot, majd nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakot, kérjük kattintson betétlap > Modulok. Ezután másolja és illessze be a VBA kódot a Kód ablakba.

VBA kód: Képek áthelyezése a munkalap celláinak közepére

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

Megjegyzések:

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. megnyomni a F5 gombot a kód futtatásához.

Ezután az összes megadott kép azonnal átkerül bizonyos cellák közepére, az alábbi képernyőképen.

Kapcsolódó cikkek:

• Hogyan lehet az összes képet automatikusan mozgatni és méretezni az Excel celláival?
• Hogyan ellenőrizhető, hogy egy cella tartalmaz-e képet az Excelben?
• Hogyan illesszünk be képet vagy képet dinamikusan a cellába az Excel cellája alapján?
• Hogyan lehet nagyítani a képet, amikor rákattint az Excel-ben?