PICTURES

[DarnTootn]

I am using this formula in a cell "=INDEX(Crew!$A$1:$G$25,
MATCH(G12,Crew!$A$1:$A$25,), MATCH("LOGO",Crew!$A$1:$G$1,))" where as the
last match refers to a column range and posts the contents of that cell in my
worksheet, But I can not get the picture in ANY format to paste into a
cell... How do I do this type of operation??

 

[JE McGimpsey]

That's because cells can't contain pictures. Pictures exist on the
drawing layer above the cells. Cells contain formulae or values.

You might be able to use something like the technique here:

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

 

[DarnTootn]

ok so I used your recommendations and it works perfectly... BUT... there is
one picture I want to show all the time ... how do I do that??

 

[JE McGimpsey]

One way would be to put this line after the

End With

line.

Me.Pictures("MyVisiblePic").Visible = True

 

[DarnTootn]

Ok so I put this after the end with line and I get a run time error
"Me.Pictures(Picture6).Visible = True" the complete code is this and I need
to have picture6 visible all the time.

 

[DarnTootn]

Opps forgot the code....Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("H1")
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
Me.Pictures(Picture6).Visible = True
End Sub

 

[Dave Peterson]

Picture6 is the name of the picture?

Me.Pictures("Picture6").Visible = True

 

[DarnTootn]

THANK YOU THANK YOU.... I had forgotten the "" marks... THANKS AGAIN DAVE