Jak vycentrovat obrázek v buňce aplikace Excel?

Tento článek vám ukáže metodu přesunu obrázků do středu buněk v listu aplikace Excel, jak je uvedeno níže.

Přesuňte obrázek do středu buňky pomocí kódu VBA

Přesuňte obrázek do středu buňky pomocí kódu VBA.

Chcete-li přesunout obrázky do středu buněk v listu v aplikaci Excel, postupujte takto.

1. Otevřete list obsahující obrázky, které potřebujete vycentrovat do buněk, a stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klikněte prosím Vložit > Modul. Poté zkopírujte a vložte kód VBA do okna Kód.

Kód VBA: Přesuňte obrázky do středu buněk v listu

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

Poznámky:

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. zmáčkni F5 klíč ke spuštění kódu.

Poté budou všechny zadané obrázky okamžitě přesunuty do středu určitých buněk, jak je uvedeno níže.

Odemkněte Excel Magic pomocí Kutools AI

• Chytré provedení: Provádějte operace s buňkami, analyzujte data a vytvářejte grafy – to vše pomocí jednoduchých příkazů.
• Vlastní vzorce: Vytvářejte přizpůsobené vzorce pro zefektivnění vašich pracovních postupů.
• Kódování VBA: Napište a implementujte kód VBA bez námahy.
• Výklad vzorce: Snadno porozumíte složitým vzorcům.
• Překlad textu: Prolomte jazykové bariéry ve svých tabulkách.

Vylepšete své možnosti aplikace Excel pomocí nástrojů založených na umělé inteligenci. Stáhnout nyní a zažijte efektivitu jako nikdy předtím!

Související články:

• Jak automaticky změnit všechny obrázky pro přesun a velikost s buňkami v aplikaci Excel?
• Jak zkontrolovat, zda buňka obsahuje obrázek v aplikaci Excel?
• Jak vložit obrázek nebo obrázek dynamicky do buňky na základě hodnoty buňky v aplikaci Excel?
• Jak zvětšit obrázek, když na něj kliknete v aplikaci Excel?