Insert picture based on cell value (unlimited)

[djk44]

I am looking to insert a picture based on a cell value. The exact application
is to insert the picture of a person based on choosing their name from a
drop-down list. Anybody have any suggestions; VBA or other? Thank you in
advance for the help.

 

[NickHK]

Record a macro whilst you insert the picture manually.

Then edit/include that in the required event, probably:
Private Sub ComboBox1_Click()
End Sub
where ComboBox1.Text gives you selected text.

Depends how you are matching the selected name to the required graphic.

NickHK

 

[djk44]

Thanks for the input. I will be using a listbox control that returns a name
(using a vlookup function). When I select the name, the assigned name of the
image will flow into the worksheet. The macro can then lookup in the same
path, the exact image name and enter the image into a given cell range
location.

When I record the macro, this is the code.
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Dave Knight\My Documents\My
Pictures\football.jpg"). _ '"football.jpg" is the image I would like to have
chosen by the value within a cell in the worksheet (ie. soccer.jpg,
baseball.jpg, etc.)
Select
Selection.ShapeRange.ScaleWidth 0.45, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.45, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.IncrementLeft -59.25
Selection.ShapeRange.IncrementTop -273#
Selection.ShapeRange.ScaleWidth 0.75, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.75, msoFalse, msoScaleFromBottomRight

Anymore detailed help is greatly appreciated.

 

[NickHK]

Based on that macro code and however you are getting the file name from the
combobox selection (called the function "GetFileNameFromValue" here), you
can

Private Sub ComboBox1_Click()
Dim FileName as string
Dim Pic As Picture

FileName = GetFileNameFromValue(ComboBox1.Text)

Set Pic = ActiveSheet.Pictures.Insert(FileName)

With Pic
.Left = 10
.Top = 10
.Width = 100
.Height = 100
End With

End Sub

<Side note>
Pictures and the data type Picture are not visible in VBA help or the object
browser, but clear work. From the immediate window:
?typename(ActiveSheet.Pictures.Insert(Filename)
Picture

Maybe someone more knowledgable can explain why
</Side note>

An alternative, more modern way is to use the .AddPicture

Dim ss As Shape
Set ss = ActiveSheet.Shapes.AddPicture(FileName, _
msoFalse, _
msoTrue, _
10, _
10, _
100, _
100)

This creates less flicker.

NickHK

 

[djk44]

I'll try it and let you know how it goes.