excel怎么识别带图片的单元格
时间:2022-05-12 22:21:33
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属性来获取图片所在单元格的地址,然后与单元格相比较,以判断单元格中是否含有图片。
标签:WPS
0
投稿
猜你喜欢
Word编号错乱问题解决
2022-01-24 03:01:41
如何在自动调整“文本框”大小
2023-12-04 11:43:10
如何在excel2019中如何对数据进行对比检查
2022-12-24 13:11:09
win7/win8.1安装KB3035583补丁出现GWX.exe无法打开怎么解决?
2022-01-15 06:55:14
Photoshop如何画箭头?三种方法供你选择
2023-10-26 06:09:15
小方法教你识破山寨U盘
2023-01-28 12:04:23
win10网络未知依赖服务如何解决
2023-11-27 19:48:05
在pe系统中怎么使用WinNTSetup安装系统?
2022-11-09 17:10:51
win7共享xp的打印机设置图文教程
2023-02-06 05:25:38
如何利用Excel 2010制作工资表的方法
2022-03-08 23:22:18
edge浏览器可以安装第三方插件吗 edge浏览器能否安装第三方插件详情
2022-10-04 21:07:08
word2010打印预览功能
2023-12-13 12:33:11
WPS 如何同时对多个excel工作簿快速编辑
2023-03-08 08:30:25
如何使用打印机打印文件?
2024-01-05 09:04:57
Win10专业版更新完后变卡了怎么解决?Win10更新完后变卡了解决方法
2023-11-17 08:23:38
mmusbkb2.exe是什么进程 有什么作用 mmusbkb2进程查询
2022-12-30 13:53:32
win10发现不了共享打印机如何解决?win10发现不了共享打印机解决教程
2023-09-30 16:25:50
想快速做出好看的PPT?来看这四个外挂级PPT插件!
2022-01-25 15:31:12
excel表格怎样设置数列竖列求和
2023-08-23 21:58:35
wps文字不能打印页眉怎么办
2023-03-09 23:21:36