EXL vb选择单元格B2B4的图片

要选择单元格B2:B4的图片，您可以使用以下VBA代码：

Sub SelectPictures()
    Dim rng As Range
    Dim shp As Shape
    
    '选择工作表中的单元格B2:B4
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("B2:B4")
    
    '循环遍历选定的单元格
    For Each cell In rng
        '检查单元格是否包含图片
        If cell.HasPicture Then
            '选择图片
            Set shp = cell.ShapeRange.Item(1)
            '对图片执行操作，例如修改属性或删除
            '...
        End If
    Next cell
End Sub

请注意，此代码将在名为"Sheet1"的工作表上执行操作。如果要在其他工作表上执行，请相应地更改代码中的工作表名称。在'对图片执行操作，例如修改属性或删除的注释下，您可以添加任何您想要执行的操作，例如修改图片属性或删除图片等