View Single Post
  #2   Report Post  
Per Erik Midtrød
 
Posts: n/a
Default

On 25 Feb 2005 16:41:11 -0800, wrote:

What I would need someone to do...is to write a statement in Excel
(like an IF Statement), that would display a specific picture if a
certain #/word/etc is typed in a cell? For example in A1 if I typed in
ball, it would automatically bring up a pic...for example
I have saved of a ball in B1, whereas if I typed dog, it would put a
dog in B1, etc..? If you know how to do this can you PLEASE email me
at
as its hard for me to check the Ngs at work...
Thanks in advance
Scott

Perhaps you could use something like this:
Sub Pictures()
Dim r As Integer
For r = 2 To Range("A65536").End(xlUp).Row
Range("b" & r).Select
ActiveSheet.Pictures.Insert("c:\" & Range("a" & r) &".jpg").Select
' Change C:\ to suite your needs
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = Range("b" & r).Height
Selection.ShapeRange.Width = Range("b" & r).Width
Next
Range("A1").Select
End Sub



Please when you respond let me know what youd charge for your help...


I guess a beer next time you are in Oslo is sufficient.

Per Erik