ExcelBanter - View Single Post - Will pay someone to write small Excel code for me

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