VBA / MACRO for inserting picture based on the contents of a cell changes

[Jzfbkr]

Hi Im wondering if anyone can help me with something.

Im looking to insert a picture into my excel sheet based on the contents of an input cell.

so when name in the input cell changes so does the logo/picture.

any help would be much appreciated.

Im currently using the Mr.Excel Picture lookup technique but im not entirely happy with it.

Thanks

 

[puru.sve]

Hi JzFbkr

You can use shape for this and insert image in it. And code on worksheet change.

Sheets("Sheet1").Shapes("ShapeName").Fill.UserPicture Path & "NoImage.jpg"

 

[Jzfbkr]

First of all thank you for getting back to me.

Im not too familiar with VBA can you tell me which parts of that code i need to change.

Eg in the input cell?

 

[puru.sve]

Send me your file on my email id... I will do on that .. Its not easy to explain here..

 

[Jzfbkr]

The Sheet I would like the image to be displayed on is called PRINT OUT REPORT
The Shape is called 'Al Ahli' located on SHEET1
The image within the shape is call AL AHLI and is located in C:\Users\admin\Desktop\Presentation\Logos\Club
The input is cell F4 on the PRINT OUT REPORT sheet


Sheets("Sheet1").Shapes("ShapeName").Fill.UserPicture Path & "NoImage.jpg"

 

[puru.sve]

Put a shape on your PRINT OUT REPORT sheet and rename it , Give same name in code too.

and use below code and paste on the sheet code .. just press Alt + F11 then put under the sheet PRINT OUT REPORT editor

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intercept(Target, Range("F4")) Is Nothing Then
    
    If Range("F4").Value = "XXXX" Then
        Sheets("PRINT OUT REPORT").Shapes("ShapeName").Fill.UserPicture "C:\Users\admin\Desktop\Presentation\Logos\Club\" & "XXX.jpg"
    Else
        Sheets("PRINT OUT REPORT").Shapes("ShapeName").Fill.UserPicture "C:\Users\admin\Desktop\Presentation\Logos\Club\" & "YYYY.jpg"
    End If
    
End If
End Sub

 

[Jzfbkr]

Will it only work with .jpg images? Im using .png

Also I've input a shape on the the PRINT OUT REPORT sheet and named it "ShapeName" but nothing is happening?

Do I have to replicate this section for each logo?:


If Range("F4").Value = "TEAM A" Then Sheets("PRINT OUT REPORT").Shapes("ShapeName").Fill.UserPicture "C:\Users\admin\Desktop\Presentation\Logos\Club Logos\" & "TEAM A.png"
If Range("F4").Value = "TEAM B" Then Sheets("PRINT OUT REPORT").Shapes("ShapeName").Fill.UserPicture "C:\Users\admin\Desktop\Presentation\Logos\Club Logos\" & "TEAM B.png"</pre></pre>

 

[Jzfbkr]

I forgot to thank you for your help! I do massively appreciate it

 

[puru.sve]

Send me your sample file on puru.sve@gmail.com . will do for you