Excel: show different pix based on cell value

[rvmams]

Hi,

I need help with Excel on the following:

I would like to insert a picture on a specific cell based on a cell value. In other words:

if b2=1 then on top of A1 there is picture X
if b2=2 then on top of A1 there is picture Y
if b2=3 then on top of A1 there is picture Z

Have been trying for hours now and really could use the help!!!!!

Thanks,

Roger

 

[SkipVought]

Hi,

    Select Case [B2]
        Case 1
            fName = PathFile1
        Case 2
            fName = PathFile2
        Case 3
            fName = PathFile3
    End Select
    Set oPic = ActiveSheet.Pictures.Insert(fName)
    With oPic
        .Top = [A1].Top
        .Left = [A1].Left
    End With

Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[rvmams]

Hi,

Thanks for your answer but actually I was hoping to have the pix inside the workbook somewhere. Is there a way to do this?

Thnx,

Roger

 

[SkipVought]

    With Sheets("Somewhere").Shapes([B2])
        .Top = [A1].Top
        .Left = [A1].Left
    End With

Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[rvmams]

Thanks for all your help on this really appreciate it!!

Sorry to keep asking questions here but I am pretty much a novice when it comes to VBA in Excel... what would the final code look like? Am a bit confused as to where the code from your last reply fits in.

Thnx (again!!)

Roger

 

[SkipVought]

To make it a procedure (macro), paste this into a VBA Module -- alt+F11/Insert/Module...

Sub MovePic()
    With Sheets("Sheet1").Shapes([B2])
        .Copy
        ActiveSheet.Paste
        With Selection
            .Top = [A1].Top
            .Left = [A1].Left
        End With
    End With
End Sub

Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884