Linked pictures to cell dropdown

  • Thread starter Thread starter Andy Roberts
  • Start date Start date
A

Andy Roberts

Hi

I am using the following code which allows me to select a person from a
dropdown and their signature (jpg) appears. It all works well but the code
hides all the other pictures on the sheet (i.e. all the other signatures).
This is what I want it to do but I also have a company logo on the sheet
which I don't want to hide. How do I exclude this one picture from the
"hiding" code?

Option Explicit

Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("K46")
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
 
You need to include the name of the logo picture in the check for making visible. Something like the below:

Option Explicit

Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("K46")
For Each oPic In Me.Pictures
If oPic.Name = .Text or oPic.Name = "name_of_logo_file" Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
elseif oPic.Name = "name_of_logo_file" then
oPic.Visible = True
end if
Exit For
End If
Next oPic
End With
End Sub
 
Back
Top