I want to insert an image from a specific folder in the excel cell by the name.
Explanation:
In cell A1 I have name of picture I want to insert e.g. 1234
In C:\Users\Me\Desktop I have picture with name 1234
When in A1 I wrote 1234 I want to insert picture from specific folder in cell B1
I should be able to work with different data of cell A1 (range A1:A1000)
Can someone help me.
Last edited by ArH; 01-07-2016 at 03:25 PM.
To actually insert a picture in B1 from a file location, I think, will require VBA to insert the object.
To just open the file for viewing something like this in B1 will take the file name from A1 and open it
Formula:
Please Login or Register to view this content.
<---------If you like someone's answer, click the star to the left of one of their posts to give them a reputation point for that answer.Ron W
The below code
• loops through each cell in the selected range
• reads the filename from that cell
Note: if the file name does not include the file extension you'll need to append it within the code
• inserts the referenced picture in the cell, at the location you set as FilePath, to the right of the cell:
• resizes the height and width of the picture to the cell's height
Is that something you can work with?
Please Login or Register to view this content.
Thanks Ron it work
I have problem to put picture with center align
And I don't know how to append code because I whant that cell A1 have only file name without exstension
See the edit I made, below. Change the ".jpg" extension to whatever you need.
I hope that helps.Please Login or Register to view this content.
Thanks work perfect
Can I automate whole proces
e.g. if cell range(a1,a10) have value run InsertPicFromFile() for cell with value
Here is whole CODE
Sub InsertPicFromFile(ByVal Target As Range)
Dim cCell As Range
Dim FilePath As String
FilePath = "your directory address"
For Each cCell In Target
If cCell.Value <> "" Then
On Error Resume Next
ActiveSheet.Shapes.AddPicture _
Filename:=FilePath & cCell.Value & ".jpg", LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=cCell.Offset(ColumnOffset:=2).Left, Top:=cCell.Top, _
Width:=79.65, Height:=106.2
End If
Next cCell
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Value <> Empty Then
Application.EnableEvents = False
Call InsertPicFromFile(Target)
Application.EnableEvents = True
End If
End Sub
Hi Guys,
it is an old threat, but lets hope someone can help me.
MY excel doesnt execute the macro, and if it does I get an runtime Error 424.
Could somebody help me?
Im using Office 2013
Thank You!
Administrative Note:
Welcome to the forum.
We are happy to help, however whilst you feel your request is similar to this thread, experience has shown that things soon get confusing when answers refer to particular cells/ranges/sheets which are unique to your post and not relevant to the original.
Please see Forum Rule #4 about hijacking and start a new thread for your query.
If you are not familiar with how to start a new thread see the FAQ: How to start a new thread
Ali
Enthusiastic self-taught user of MS Excel who's always learning!
Don't forget to say "thank you" in your thread to anyone who has offered you help. It's a universal courtesy.
You can reward them by clicking on * Add Reputation below their user name on the left, if you wish.
NB: as a Moderator, I never accept friendship requests.
Forum Rules (updated August 2023): please read them here.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks