Hide all pictures in the selected cell range

[Deepesh123]

Hi - Thanks in advance for your input. I need to hide all pictures for a selected range - for example - B6: P6 and then B9:P6 and unhide the same after few operations.

Also, i would like to hide a picture, text in next cell for a given cell range B3:B6 and unhide the same

 

[davesexcel]

Check out these samples

Sub HideAllPics()
    Dim pic As Picture
    Dim rng As Range
    Set rng = Range("B6:P6")
    For Each pic In ActiveSheet.Pictures

        If Not Application.Intersect(pic.TopLeftCell, Range(rng.Address)) Is Nothing Then
            pic.Visible = False
        End If
    Next
End Sub

Sub ShowAllPics()
    Dim pic As Picture
    Dim rng As Range
    Set rng = Range("B6:P6")
    For Each pic In ActiveSheet.Pictures

        If Not Application.Intersect(pic.TopLeftCell, Range(rng.Address)) Is Nothing Then
            pic.Visible = True
        End If
    Next
End Sub

Sub HideOnePics()
    Dim pic As Picture
    Dim rng As Range
    Set rng = Range("B6")
    For Each pic In ActiveSheet.Pictures

        If Not Application.Intersect(pic.TopLeftCell, Range(rng.Address)) Is Nothing Then
            pic.Visible = False
        End If
    Next
End Sub

Sub HideSomePics()
    Dim pic As Picture
    Dim rng As Range
    Set rng = Range("B6,E6,I6")
    For Each pic In ActiveSheet.Pictures

        If Not Application.Intersect(pic.TopLeftCell, Range(rng.Address)) Is Nothing Then
            pic.Visible = False
        End If
    Next
End Sub

 

[Deepesh123]

Dear Dave - Thanks for the reply. When i tried Hide All subroutine i get error-400. See attached picture. Thanks for your efforts.