excel怎么識別帶圖片的單元格
Q：前不久有網友問我，在工作表的一列中，有些單元格放置有圖片，有些單元格為空，如何識別帶有圖片的單元格并輸入相應的文字？如所示，對工作表Sheet1的列B中含有圖片的單元格，輸入“有圖片”，而沒有圖片的單元格則輸入“無圖片”，效果如列G所示。
A：下面的代碼可以完成我們的需求：
Sub DecidePic()
Dim cell As Range
Dim lngCells As Long
Application.ScreenUpdating = False
‘設置查找列的單元格數
lngCells = 3
For Each cell In Range(“B2:B”& lngCells)
If PicIfExists(Sheet1, cell) Then
cell.Value = “有圖片”
Else
cell.Value = “無圖片”
End If
Next cell
Application.ScreenUpdating = True
End Sub
Function PicIfExists(wks As Worksheet, rng As Range) As Boolean
Dim shp As Shape
For Each shp In wks.Shapes
If shp.TopLeftCell.Address =rng.Address Then
PicIfExists = True
Exit For
End If
Next shp
End Function
在自定義函數PicIfExists中，使用Shape對象的TopLeftCell屬性來獲取圖片所在單元格的地址，然后與單元格相比較，以判斷單元格中是否含有圖片。
