Too Simple

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



"Danny" wrote:

Hi All

I am trying to manipulate some images in an Excel spreasheet using the
following code:

Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("D3")
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

From the following web page:

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

My problem is this code has all images set to visible = False.... I need 1
image visible all the time.

Any ideas on how I can make 1 picture visible all the time

I have 7 Pictures (Picture 1 to 7) that are run by the above code, picture 8
needs to be visible all the time.

Any help appreciated

Regards

Danny