Use VBA to add file names, file sizes and images (if jpg or png) to cells and re-size

I have a folder with a set of files (pdf, png, jpg and ppt).

What I would like to do is use VBA to do the following:
- user browses to select target folder
- selects a button
- for each pdf, png, jpg and ppt file in the folder
- in column A displays file name (e.g. picture1.jpg or bestplaces.pdf)
- in column B displays file type (e.g. jpg, pdf)
- in column C displays image if file type = jpg or png
- and the cell that contains an image automatically resizes to fit the width/height of the image (would be great if it could set a specific cell height and resizes the image to fit accordingly and the width is variable dependent on the aspect ratio of the image)
- in column D displays the file size

I have found snippets of code from different threads that accomplish a small portion of this goal but I can't seem to combine them in a way that makes it all work. I'm hoping that someone can help me because I think this would be a nice solution that's extensible for others to use for different purposes.

Thank you!

Hello dklein11,

Welcome to the Forum!

I have constructed 2 macros One to list the files, types, size, and dimensions. The other is to provide you with a list of available file details and the index number of each. I have included this in case the information returned is not correct. When Windows changed from XP to 2007, some of these indices were changed and new ones were added.

You can change the folder path and the where the output will go in the first macro. They are marked in blue.

Macro to List JPG, PDF, PNG, and PPT Files

Please Login or Register  to view this content.

Macro to List Index Numbers and Detail Descriptions

Please Login or Register  to view this content.