Jak automaticky změnit všechny obrázky pro přesun a velikost s buňkami v aplikaci Excel?
Normálně byl obrázek vložen do listu s výchozími vlastnostmi Přesunout a nezměnit velikost buněk. Je třeba ručně změnit jeho vlastnosti na funkci Přesunout a velikost s buňkami v listu, jak potřebujete. Ve skutečnosti můžete rychle změnit obrázek tak, aby se buňky mohly automaticky přesouvat a měnit velikost pomocí řešení. A tento článek vám ukáže způsob, jak toho dosáhnout.
Automaticky měnit všechny obrázky tak, aby se mohly přesouvat a měnit velikost pomocí buněk s kódem VBA
Níže uvedený kód VBA vám pomůže rychle změnit vlastnosti všech obrázků tak, aby se mohly přesouvat a měnit velikost pomocí buněk v listu. Postupujte prosím následovně.
1. Otevřete list obsahující obrázky, které chcete změnit, přesunutím a změnou velikosti buněk, poté otevřete Microsoft Visual Basic pro aplikace okno stisknutím Další + F11 klíče.
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: změňte všechny obrázky tak, aby se přesouvaly a velikost buněk
Sub MoveAndSizeWithCells()
Dim xPic As Picture
On Error Resume Next
Application.ScreenUpdating = False
For Each xPic In ActiveSheet.Pictures
xPic.Placement = xlMoveAndSize
Next
Application.ScreenUpdating = True
End Sub3. zmáčkni F5 spusťte kód kliknutím na tlačítko Spustit.
Poté se všechny obrázky na aktivním listu automaticky změní na Přesunout a změnit velikost s buňkami.
Související články:
- Jak vycentrovat obrázek v buňce aplikace 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!
