Excel VBA如何实现P列有数据时对应R列同行隐藏图片自动显示

原有代码存在两处核心问题：

• 仅遍历Pictures集合，无法覆盖圆角矩形等属于Shape类型的内嵌对象
• 未关联判断P列对应行是否存在数据，逻辑不匹配需求

可用代码 #

Sub ShowPicByPColumnValue()
    Dim targetRng As Range
    Dim shp As Shape
    Dim picRow As Long
    
    ' 定义图片所在的R列目标区域
    Set targetRng = ActiveSheet.Range("R12:R61")
    
    ' 遍历当前工作表所有形状对象（覆盖图片、圆角矩形等所有类型）
    For Each shp In ActiveSheet.Shapes
        ' 先判断形状的左上角单元格是否在目标R列区域内
        If Not Intersect(shp.TopLeftCell, targetRng) Is Nothing Then
            ' 获取图片所在行号
            picRow = shp.TopLeftCell.Row
            ' 判断对应行P列单元格是否非空，控制可见性
            If ActiveSheet.Range("P" & picRow).Value <> "" Then
                shp.Visible = msoTrue
            Else
                shp.Visible = msoFalse
            End If
        End If
    Next
End Sub

使用说明 #

• 如果你的图片/形状跨多行，可自行调整行号判断逻辑，取形状覆盖行的对应P列判断即可
• 如需修改P列数据时自动触发显隐切换，可以把代码放到工作表的Change事件中
• 代码里的ActiveSheet可替换为实际工作表名（比如Sheets("数据页")），避免表切换时执行出错

内容的提问来源于stack exchange，提问作者Igor Majer