Jak změnit velikost více buněk tak, aby rychle odpovídaly obrázkům v aplikaci Excel?

Jak víme, Microsoft Excel podporuje automatickou změnu výšky řádku a šířky sloupce buňky tak, aby se vešel vyplněný obsah, například dlouhý textový řetězec. Příkaz AutoFit Výška řádku a Šířka sloupce Automatické přizpůsobení však nejsou pro obrázek platné, protože vložený obrázek není umístěn v konkrétní buňce.

Změňte velikost buněk tak, aby se vešly na obrázky pomocí VBA

Změňte velikost obrázků tak, aby se vešly do buněk, pomocí aplikace Kutools pro Excel

Změňte velikost buněk tak, aby se vešly na obrázky pomocí VBA

Předpokládejme, že v listu jsou dva velké obrázky, viz následující snímek obrazovky. Někdo možná bude chtít změnit velikost buňky tak, aby se vešla na obrázek nad buňkou. Ale jak si to uvědomit?

Samozřejmě můžete změnit velikost každé buňky automaticky, aby se vešly obrázky nad nimi. U řady obrázků to však může být zdlouhavé a časově náročné. Ve skutečnosti můžeme použít makro VB pro změnu velikosti všech buněk tak, aby se vešly obrázky nad nimi. Můžete to udělat pomocí následujících kroků:

Krok 1: Podržte stisknuté tlačítko ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

Krok 2: Klepněte na tlačítko Vložit > Modula vložte následující makro do okna modulu.

VBA: Změňte velikost více buněk tak, aby odpovídaly jejich obrázkům.

Sub ResizePictureCells()
For Each Picture In ActiveSheet.DrawingObjects
PictureTop = Picture.Top
PictureLeft = Picture.Left
PictureHeight = Picture.Height
PictureWidth = Picture.Width
For N = 2 To 256
If Columns(N).Left > PictureLeft Then
PictureColumn = N - 1
Exit For
End If
Next N
For N = 2 To 65536
If Rows(N).Top > PictureTop Then
PictureRow = N - 1
Exit For
End If
Next N
Rows(PictureRow).RowHeight = PictureHeight
Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288)
Picture.Top = Cells(PictureRow, PictureColumn).Top
Picture.Left = Cells(PictureRow, PictureColumn).Left
Next Picture
End Sub

Krok 3: Stiskněte tlačítko F5 klíč ke spuštění tohoto makra.

Nyní v aktuálním listu, pokud existují obrázky, bude buňka pod obrázkem změněna tak, aby odpovídala obrázku nad ním. Viz následující snímek obrazovky:

Změňte velikost obrázků tak, aby se vešly do buněk, pomocí aplikace Kutools pro Excel

Pokud jste upravili velikost buněk, jak je uvedeno níže, a poté chcete importovat a změnit velikost obrázků tak, aby odpovídaly velikostem buněk, jak to můžete rychle udělat? V tomto případě, Kutools pro Excel's Importovat obrázky nástroj vám pomůže snadno zvládnout tuto práci.

Po instalaci Kutools pro Excel, prosím, postupujte takto:

1. cvaknutí Kutools Plus > Import / Export > Importovat obrázky. Viz snímek obrazovky:

2. V praskání Importovat obrázky V dialogovém okně můžete nejprve určit pořadí importu Importovat objednávku části a potom klikněte na přidat Tlačítko pro přidání obrázků ze složky nebo jako soubory jeden po druhém, pak můžete vidět seznam obrázků v seznamu Obrázek sekce. Viz screenshot:

3. Pak klikněte na tlačítko import tlačítko pro zobrazení Importovat velikost obrázku dialogové okno, pak zkontrolujte Odpovídající velikost buňky volba. Viz screenshot:

4. cvaknutí OK > import pro zobrazení dialogu pro výběr buněk, které chcete importovat obrázky. Viz screenshot:

5. cvaknutí OKa nyní jsou všechny obrázky importovány do buněk a jejich velikost se přizpůsobí buňkám.

Související článek:
Jak vložit více obrázků do buňky v aplikaci Excel?