获取图片所在单元格地址

核心代码

	dim shp as Shape
	Shp.TopLeftCell.Address	

如下代码会在图片所在的左上角的首个单元格位置填写 “√”

Sub GetPicRngAddress()
	Dim shp As Shape, ad$
	For Each shp In ActiveSheet.Shapes
	    ad = shp.TopLeftCell.Address
	    If shp.Type = msoPicture Then	'判断 shp 的对象返回值是否为 图片。
	    								'关于 MsoShapeType 返回值对应类型请参考下方链接
	        shp.Delete
	        Range(ad) = "√"
	    End If
	Next
End Sub

MsoShapeType 枚举 (Office)