Edit a VB to Vlookup a picture

[CraigFord]

i have used the VB code in the link below

http://www.mcgimpsey.com/excel/lookuppics.html

Private Sub Worksheet_Calculate()
        Dim oPic As Picture
        Me.Pictures.Visible = False
        With Range("F1")
            For Each oPic In Me.Pictures
                If oPic.Name = .Text Then
                    oPic.Visible = True
                    oPic.Top = .Top
                    oPic.Left = .Left
                    Exit For
                End If
            Next oPic
        End With
    End Sub

the problem i have is the code makes all pictures on the sheet hidden, however there are some pictures on the skeet that need to be shown all of the time, is there a way i can stop some pics being hidden?

 

[Andrew Poulsom]

That code hides all the pictures except the one whose name is in F1. What are the names of the pictures that you don't want to hide?

 

[CraigFord]

i think i can do this if i make the images a header which will work.

 

[CraigFord]

That code hides all the pictures except the one whose name is in F1. What are the names of the pictures that you don't want to hide?

picture 4 & Picture 5

 

[CraigFord]

Also
im trying to do this twice on the same sheet the lookup call for the second command is F5

 

[Andrew Poulsom]

Try:

Private Sub Worksheet_Calculate()
    Dim oPic As Picture
    Me.Pictures.Visible = False
    For Each oPic In Me.Pictures
        If oPic.Name = "Picture 4" Or oPic.Name = "Picture 5" Then
            oPic.Visible = True
        End If
    Next oPic
End Sub

Sorry, I don't know what you mean by "im trying to do this twice on the same sheet the lookup call for the second command is F5".

 

[CraigFord]

Try:

Private Sub Worksheet_Calculate()
    Dim oPic As Picture
    Me.Pictures.Visible = False
    For Each oPic In Me.Pictures
        If oPic.Name = "Picture 4" Or oPic.Name = "Picture 5" Then
            oPic.Visible = True
        End If
    Next oPic
End Sub

Sorry, I don't know what you mean by "im trying to do this twice on the same sheet the lookup call for the second command is F5".

dont worry i have sussed the second part with the code below

  Private Sub Worksheet_Calculate()
        Dim oPic As Picture
        Me.Pictures.Visible = False
        With Range("F1")
            For Each oPic In Me.Pictures
                If oPic.Name = .Text Then
                    oPic.Visible = True
                    oPic.Top = .Top
                    oPic.Left = .Left
                    Exit For
                End If
            Next oPic
        End With
        With Range("F5")
            For Each oPic In Me.Pictures
                If oPic.Name = .Text Then
                    oPic.Visible = True
                    oPic.Top = .Top
                    oPic.Left = .Left
                    Exit For
                End If
            Next oPic
        End With
    End Sub

how does the code you have written above fit into my current code? are you able to repost the entire code?

 

[Andrew Poulsom]

Your code is fine. I understand what you meant now.

 

[CraigFord]

Your code is fine. I understand what you meant now.

in my code all of the pictures are invisable, i dont know how to incorporate the code you have written to make pictures 4 & 5 visable,

sorry im new to VB

 

[CraigFord]

i got the code working perfectly in a blank workbook now i have added it to the workbook i want to use it wont work!!

am i able to upload the document for smebody to assist