+ Reply to Thread
Results 1 to 5 of 5

Copy images from a folder & paste them in Excel

  1. #1
    Forum Contributor
    Join Date
    04-18-2009
    Location
    Mumbai, India
    MS-Off Ver
    Excel 2016
    Posts
    269

    Copy images from a folder & paste them in Excel

    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

  2. #2
    Valued Forum Contributor
    Join Date
    05-14-2009
    Location
    gold coast
    MS-Off Ver
    Excel 2007
    Posts
    843

    Re: Copy images from a folder & paste them in Excel

    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.

  3. #3
    Forum Contributor
    Join Date
    04-18-2009
    Location
    Mumbai, India
    MS-Off Ver
    Excel 2016
    Posts
    269

    Smile Re: Copy images from a folder & paste them in Excel

    Thanks D_Rennie.

    I will take a look at it later today & let you know how it worked out.

    --Karan--

  4. #4
    Registered User
    Join Date
    03-19-2011
    Location
    INDIA
    MS-Off Ver
    Excel 2010
    Posts
    4

    Re: Copy images from a folder & paste them in Excel

    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

  5. #5
    Registered User
    Join Date
    03-19-2011
    Location
    INDIA
    MS-Off Ver
    Excel 2010
    Posts
    4

    Smile Import picture from Folder to Excel in next below Cells

    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

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1