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

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 Sub

3. 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?