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 SubPozná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 With3. 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.
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?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
