Linking cell value to image file

[pi]

Is it possible to link the resultant value of a cell to a particular jpeg file. What I mean is say a value of 1 to 5 will place a photographic image on a worksheet and other ranges( say 6 to 10) will reurn other images.
If this is possible how can I do this.
Please consider my lack of any VBA knowledge.

 

[ratman]

call this sub from some event sub.

I don't know if you are using a UserForm or cell enrty or...?


Sub ImportPictureAtSize()

Dim oSlide As Slide
Dim oPicture As Shape

' Change slide index position to the first slide
ActiveWindow.View.GotoSlide 1

' Set oSlide to the first slide in the presentation.
Set oSlide = ActiveWindow.Presentation.Slides(1)

' Set oPicture to the picture file on your computer. Set Link To
' File to false, Save With Document to true, and place it in the
' upper left-hand corner of the slide, sized to 1 by 1 points.
'
' NOTE: Before you run this code replace this text string:
' "Put image path here!"
' with the path to the image you want to import. For example:
' "c:\MyImage.bmp"
Set oPicture = oSlide.Shapes.AddPicture("Put image path here!", _
msoFalse, msoTrue, 1, 1, 1, 1)
' Now scale the picture to full size, with "Relative to original
' picture size" set to true for both height and width.
oPicture.ScaleHeight 1, msoTrue
oPicture.ScaleWidth 1, msoTrue

' Move the picture to the center of the slide. Select it.
With ActivePresentation.PageSetup
oPicture.Left = (.SlideWidth \ 2) - (oPicture.Width \ 2)
oPicture.Top = (.SlideHeight \ 2) - (oPicture.Height \ 2)
oPicture.Select
End With

End Sub