Hogyan ellenőrizhető, hogy egy cella tartalmaz-e képet az Excelben?
Könnyű megtalálni és kiválasztani az összes képet egy aktív munkalapon az Excel programban. De tudod, hogyan lehet ellenőrizni, hogy egy cella tartalmaz-e képet az Excelben? Ebben a cikkben szereplő módszer segíthet.
Ellenőrizze, hogy egy cella tartalmaz-e képet VBA kóddal
Ellenőrizze, hogy egy cella tartalmaz-e képet VBA kóddal
Az alábbi VBA-kód segíthet annak ellenőrzésében, hogy egy cella tartalmaz-e képet. Kérjük, tegye a következőket.
1. Nyissa meg a szükséges munkalapot, hogy ellenőrizze, van-e kép egy adott cellában, majd nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be a VBA kódot a Kód ablakba.
VBA kód: Ellenőrizze, hogy egy cella tartalmaz-e képet az Excelben
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. megnyomni a F5 gombot a kód futtatásához. A felbukkanóban Kutools az Excel számára párbeszédpanelen adja meg azt a cellát, amelyet ellenőrizni szeretne, tartalmaz-e képet, majd kattintson a gombra OK gomb. Lásd a képernyőképet:
4. Ezután megjelenik egy párbeszédpanel, az alábbi képernyőképen látható módon, ha van kép vagy nincs a megadott cellában.
Kapcsolódó cikkek:
- Hogyan lehet az összes képet automatikusan mozgatni és méretezni az Excel celláival?
- Hogyan központosítson képet egy Excel cellába?
- Hogyan illesszünk be képet vagy képet dinamikusan a cellába az Excel cellája alapján?
- Hogyan lehet nagyítani a képet, amikor rákattint az Excel-ben?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!