Jak zkontrolovat, zda buňka obsahuje obrázek v aplikaci Excel?
Je snadné najít a vybrat všechny obrázky v aktivním listu v aplikaci Excel. Ale víte, jak zkontrolovat, zda buňka obsahuje obrázek v aplikaci Excel? Metoda v tomto článku vám může pomoci.
Zkontrolujte, zda buňka obsahuje obrázek s kódem VBA
Zkontrolujte, zda buňka obsahuje obrázek s kódem VBA
Níže uvedený kód VBA vám pomůže zkontrolovat, zda buňka obsahuje obrázek. Postupujte prosím následovně.
1. Otevřete list, který potřebujete zkontrolovat, zda obrázek existuje v určité buňce, a stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte kód VBA do okna Kód.
Kód VBA: Zkontrolujte, zda buňka obsahuje obrázek v aplikaci Excel
Sub CellHasPicture()
Dim xRg As Range
Dim xShape As Shape
Dim xFlag As Boolean
On Error Resume Next
Set xRg = Application.InputBox("Please enter the cell address:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xFlag = False
For Each xShape In ActiveSheet.Shapes
If xShape.TopLeftCell.Address = xRg.Address Then
xFlag = True
End If
Next
If xFlag Then
MsgBox "Image exists!"
Else
MsgBox "Image does not exist"
End If
End Sub
3. zmáčkni F5 klíč ke spuštění kódu. Ve vyskakovacím okně Kutools pro Excel V dialogovém okně zadejte buňku, u které chcete zkontrolovat, zda obsahuje obrázek, a klikněte na OK knoflík. Viz screenshot:
4. Poté se objeví dialogové okno, jak je znázorněno na níže uvedeném snímku obrazovky, pokud v zadané buňce existuje obrázek nebo nikoli.
Související články:
- Jak automaticky změnit všechny obrázky pro přesun a velikost s buňkami v aplikaci Excel?
- Jak vycentrovat obrázek v buňce aplikace 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!