Hi,
I have around 100 images in each folder & around 50 folders. I wanted to import all of them on one Excel sheet with the help of a macro.
Can someone help me with the code?
Regards,
Karan
Hi,
I have around 100 images in each folder & around 50 folders. I wanted to import all of them on one Excel sheet with the help of a macro.
Can someone help me with the code?
Regards,
Karan
hello karan
Its quite complex to insert all images form folders and or sub/folders into a excel spread sheet using VBA.
Have a look http://excel-insert-multiple-picture....qarchive.org/at it may do what you want. I have not tryed it so i could not tell you if its any good or not, though defently worth a shot.
hope it works for you.
Thanks D_Rennie.
I will take a look at it later today & let you know how it worked out.
--Karan--
Well i am little late to reply this post , but may be useful for other who are looking same, i was also working around this and got help from this forum and hence edited the code as per my usage
what this code does is:
1. import all files from a particular foldera
2. resize them to Active cell.
But what i wanted is ....to put each next picture in below cell
like
first picture in A1
Second picture in A2
and additionally if possible.... B1- name of picture .......?
Sub InsertAllPictures()
Dim strPath As String
Dim strFileName As String
Dim myPict As Picture
With ActiveCell.Range("A1:B19")
strPath = "C:\Users\KRISHNA\Desktop\" ' change folder to suit
strFileName = Dir(strPath & "*.jpg") ' change file type to suit
Do While Len(strFileName) > 0
Set myPict = ActiveSheet.Pictures.Insert(strPath & strFileName)
With myPict
myPict.Top = ActiveCell.Top
myPict.Width = ActiveCell.Width
myPict.Height = ActiveCell.Height
myPict.Left = ActiveCell.Left
myPict.Placement = xlMoveAndSize
End With
strFileName = Dir
Loop
End With
End Sub
What i want is :
1. import all files from a particular folder (done)
2. resizing them to Active cell. (done)
3. place each picture to the very next below cell
4. and name of the picture next to the cell.
like
first picture in A1 picture name in B1
Second picture in A2 picture name in B2
I am only beginner in these type of coding. The below code is copied from this forum only but edited by me as per my requirement.
Sub InsertAllPictures()
Dim strPath As String
Dim strFileName As String
Dim PicSize As Picture
With ActiveCell.Range("A1:B19")
strPath = "C:\Users\KRISHNA\Desktop" ' change folder to suit
strFileName = Dir(strPath & "*.jpg") ' change file type to suit
Do While Len(strFileName) > 0
Set PicSize = ActiveSheet.Pictures.Insert(strPath & strFileName)
With PicSize
PicSize.Top = ActiveCell.Top
PicSize.Width = ActiveCell.Width
PicSize.Height = ActiveCell.Height
PicSize.Left = ActiveCell.Left
PicSize.Placement = xlMoveAndSize
End With
strFileName = Dir
Loop
End With
End Sub
Thanks in advance
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks