Will pay someone to write small Excel code for me

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 ratedr1@aol.com as its hard for me to check the Ngs at work...
Thanks in advance
Scott
Please when you respond let me know what youd charge for your help...I
have an important show coming up in 8 days and just have WAY too many
things to do to start learning new code writing. I will send you the
sheet as I have it, and the pictures in an email.

On 25 Feb 2005 16:41:11 -0800, ratedr1@aol.com 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 ratedr1@aol.com 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

On 25 Feb 2005 16:41:11 -0800, ratedr1@aol.com 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 ratedr1@aol.com 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