excel怎么识别带图片的单元格
发布时间：2022-05-12 22:21:33
标签：WPS
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
投稿猜你喜欢
oCam是一款设计简单、功能强大的屏幕录像软件，它还可以录制你的桌面屏幕，你可以选择全屏模式截图，也可以选择自定义区域截图，该软件还可以捕捉- win10系统自带的防火墙能够阻止众多第三方软件的运行，如果用户在设置win10防火墙的时候提示防火墙无法更改某些设置，错误代码0x8007
- 小娜文字不能搜索怎么办？最近使用win10系统的用户反应小娜无法使用文字搜索的现象，但是使用语音进行搜索确是可以进行搜索的，针对这样的问题，
- 许多用户在使用电脑玩游戏基本都会选择使用全屏显示，但是不少用户在使用的时候却发现电脑屏幕显示有黑边，遇到这种情况我们应该在呢么解决呢？下面小
- 我们平时使用最多的是给Excel工作表进行加密，实际上Excel中的单元格也可以进行加密，通过单元格加密，就算别人复制走数据，能打开Exce
- 经常会有朋友想要复制excel和word文档里的图片，但是你知道怎么复制这些图片吗，金泰你教给大家一个小妙招，利用Shift键在Word下有
- 我们有时在清理电脑时，会将一些有用的文件误删掉，那么，怎么才能找到这些误删文件的下载地址呢？今天小编就告诉大家这个问题的解决方法。解决方法：
- 有用户反映电脑摄像头无法使用，这是怎么回事呢？电脑摄像头不能使用该如何解决？下面给大家介绍电脑摄像头无法使用的原因及其解决方法。解决方法：●
- 玩电脑的小伙伴应该很多都听说过GPU，很多的玩家都经常认为它就是显卡，实际上它是一款独特的处理器，下面就给大家带来他的详细介绍，一起看看吧。
- Word 2003每次启动时都会自动切换到微软拼音输入法2003，若你常用不是拼音输入法，那就得重新切换一次，这就有点烦人了。能不能让Wor
- 虾米音乐是一款非常好用的音乐播放软件，它可以分享音乐、发现音乐、音质也非常高，那么在虾米音乐里怎么播放歌单呢？下面就是在虾米音乐里播放歌单的
- PPT散点图怎么制作并修改数据？ppt中想要使用散点图，该怎么制作散点图呢？下面我们就来看看ppt散点图的制作和修改数据的方法，需要的朋友可
- 全新的iPhone6s/6s Plus采用的是第二代Touch ID，用户只要轻轻触碰一下即可，指纹识别过程已经变成了一触即发。Touch
- 在升级到 iOS 14 以及更新版本之后，很多用户发现 iPhone 控制中心出现了“家庭”功能，提示“在家庭 App 中添加的配件和场景将
- xlsx是微软2007版以上的Excel的后缀名，它取代了之前版本生成的xls格式，是基于XML的压缩文件，和xls格式的文件相比，占用空间
- Win10默认设置里有两个edge怎么解决？如何删掉其中的一个，空白图标应该是旧版的Edge，因为升级时没有被系统清理干净所致，只需要将旧版
- 通常我们是单击工具栏上的打印按钮来进行打印的，默认状态下Excel仅仅打印当前工作表，如果要打印整个工作簿，无需收到逐一选择每个
- u盘启动盘做好了怎么装系统？u盘启动盘可以帮助用户进行电脑系统的快速重装或者更换安装新系统，但是很多新手并不清楚做好了u盘启动盘要怎么安装系
- 滴滴打车怎么发送私密订单？滴滴打车是我们常用的出行网约车软件，有时候我们遇到好的司机，该如何发送私密订单给他，让他再次接送呢？下面小编就和大
- 目前，不少用户在升级之后，都反映在安装过程中出现安装中断或是无法安装的情况，这是怎么回事呢?该如何解决呢?小编认为解决此问题前需要确定是否有
