Hi All, I am brand new to the forum and using macros. I have already dabbled a little with codes to insert photos in multiple cells. But the codes I have found only allow me to insert photos to one column or row at a time. Id like to select a range of cells and fill them with images from a folder. Is it possible?
It is definitely possible. I think you have not received any responses because your question has lots of possible solutions depending on what you truly want. For example, how do you want to handle the size of the pictures - do you want to shrink the photos so that they fit into the cells or do you want to resize the cells so that the photo fits to its original dimensions, or do you want to standardize on an image size? Regardless, to get you started, you should review the different methods and variables for the Shape class. You can use the Object Browser in your VB shell or search on the web. And, to go through your range, you would need to use a loop, probably something like
Please Login or Register to view this content.
Pauley
--------
If I helped with your issue, I'd appreciate a rep bump (hit the '*' icon to the bottom left of this post).
Hi Pauleyb,
Thank you for you help with my macro inquiry. I am okay with the image re sizing to the selected cell. I like the uniform look of all the images even if they are stretched a little. Here is the macro I have been using. It works great except that I am limited to inserting multiple images into one column. Id like to be able to select a range of cells and insert multiple images and have them automatically re size to the cell. Can you help me expand upon this macro?
Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
xRowIndex = Application.ActiveCell.Row
For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xRowIndex = xRowIndex + 1
Next
End If
End Sub
I would recommend you step through the code and understand what each line and variable is doing. Many of your questions are answered in the code above. For example, the line where you 'Set Rng=...' is which cell the picture is going to be placed. Using my sample above, you would just pass the 'cell' variable in place of Rng.
However, there are still other issues, such as what happens if the person selects more pictures than there are cells in your range? Your code above loops for every file selected, but you will also need to loop through your selected range, and those may not match. How would you want to handle that?
Play with the code above and step through it. This is a rough change that will step through your selection, but without any real error checking:
Please Login or Register to view this content.
Holy Cow!!!That worked perfectly! Your the best Pauleyb, I cant thank you enought!
Hi Pauleyb,
I'd like to expand upon the macro you help me create to insert photos into cells. I would like to now know if it is possible to have the photos skip and column and a row when auto filling. Id like to do this so that there is a space in between the photos. Is it possible.?
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks