excel如何识别带有图片的单元格？
发布时间：2023-04-21 00:16:33
标签：excel常用函数,excel常见问题,excel技巧,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属性来获取图片所在单元格的地址，然后与单元格相比较，以判断单元格中是否含有图片。
0
投稿猜你喜欢
PPT文件太大怎么压缩？有时候我们将制作好的PPT传输给他人时，如果文件过大传输时间会很长，而且还会出现传输失败的情况，为此我们可以自行根据- 搜狗拼音、QQ拼音、谷歌拼音的名气不分上下，究竟谁在综合能力上更强一些?接下来我们将通过“智能组句”、“流行词支持”、“生僻字输入”、“智能
- 频繁重装系统会对电脑造成损害吗？个人比较喜欢下载一些软件，经常导致电脑出问题，所以经常重装系统，后来觉得电脑重装系统之后越来越卡，频繁重装系
- 你经常备份你的iPhone设备吗?如果是，那么你又是多久备份一次呢?但是随着时间的累积，备份文件将会对系统盘造成很大的压力，而且你恢复设备的
- 不同的颜色给我们不同的感官。在制作表格时要突出某些数据或者要给予人极大的反差的感觉，可以使用不同颜色来表示不同颜色。下面小编就教你怎么在WP
- 在Win10系统上使用鼠标拖动Office2016/Office2019中的excle/world窗口时，经常会出现卡顿、窗口不能及时跟随鼠
- 图片中有背景色是为了突出和烘托图片中的主体内容而设置的，但是我们在编辑文档过程中，图片的背景色往往很多余，造成跟文档背景格格不入，显得不那么
- 系统服务对于电脑非常重要，很多的电脑问题都是可以通过系统服务进行查看问题的具体原因，但有不少小伙伴还不知道要如何打开系统服务，下面就和小编一
- WPS怎么画出类似于相框的图文框图形？wps中想要绘制一个相框，正好相框和图文框很想，我们可以直接插入图文框，下面我们就来看看详细的教程，需
- Excel中经常需要使用到自动更新公式的功能，自动更新公式如果不能自动更新具体该如何解决呢?今天，小编就教大家在Excel公式不能自动更新的
- 现在使用Word和Excel的人越来越多，但其中的使用方法和诀窍需要在实践中慢慢体会和总结，有时一项很简单、快捷的操作却能给办公人员带来工作
- MAC用户可以使用很多种方法批量修改文件名，使用Automator批量修改文件名便是其中的一种，那么怎么使用Automator批量修改文件名
- Win10最新KB5001337离线更新补丁包是微软官方为广大Win10 1909用户专门推出的一款更新离线包，主要是针对用户电脑系统修复安
- 最近，随着Windows11操作系统的发布，不少用户都安装升级了Windows11操作系统。但是不少用户都无法安装，因为自己的电脑TPM不知
- 如何使用U盘重装Win11？当电脑出现系统故障的时候如果进行检查不是设备问题的话，那很可能是系统所导致的问题，这个时候可以通过重装系统的方法
- 今天系统部落小编就带大家深度解密一下的Windows 8操作系统的13大特色功能。1、快速启动Windows 8采用了全新的快速启动模式，使
- 此文不对 Windows 10 与 Windows 7 孰优孰劣作任何评价，但有些古董电脑、古董软件，依旧需要 Windows XP、Win
- 问：工作表同一行中每三个单元格同时只能有一个单元格显示数据。如下图 1所示，在单元格区域 B6：D6中，如果在单元格 B6中输入了数据，那么
- 如果不希望单元格中出现不必要的小数位数（因为它们会导致出现######符号），或者您不需要极高的精确性，则将单元格格式更改为获得所需的小数位
- 首先我们键盘上按下“Win+R”键打开运行，在运行中输入“regedit”，打开注册表编辑器，如下图所示。在注册表编辑器界面中，依次展开至以
