Hello,
I Search on the forum and found vba code which similar to my need. I try to edit them.
Basically, i want to insert pictures from folder to each column ( B2, C2, D2... an so on, until the last picture).
the code below, is working, but instead to insert to each column, it just insert to each row ( B2, B3, B4 etc).
can anyone help?
also i want all picture have 1 inch size ( height and weight ).
thanks.
Please Login or Register to view this content.
Last edited by JBeaucaire; 12-11-2014 at 06:12 AM. Reason: Added missing CODE tags. Please read and follow the Forum Rules, link above in the menu bar. Thanks.
Try this then
Please Login or Register to view this content.
Regards,
Vikas Gautam
Excel-buzz.blogspot.com
Excel is not a matter of Experience, its a matter of Application.
Say Thanks, Click * Add Reputation
Thanks it works!
another question:
1. how to set all pictures size have 1 inch by weight and height?
2. all the columns have 175 pixel width, when the pictures copied to the cells, at some point some pictures not are not in center of the cell due to distance of each pictures. is it possible every picture stick to the cells ( picture 1 inside B2, picture inside C2, inside D2....)
thanks
update:
anyway i solved my problem manually by:
1. format all pictures size to 1 inch ( with locked aspect ratio checked)
2. format all picture to ( don't move or size with cell)
3. adjust the column width, and locate all pictures to the place. now it all center to every cells.
Many thanks for Vikas, you saved my day!
Last edited by qiyusi; 12-11-2014 at 05:45 AM.
Thanks for the response..
I found that the pictures is not stored as embed pictures in the file. the excel file only 200kb something.
it should be 4-5 mb.
so when i send the file to another computer, the pictures can't be displayed.
anyone can help me how to change existing picture format from link to file picture to embedded picture.
so it wont break when opening or sending to any computer.
Last edited by qiyusi; 12-16-2014 at 01:09 AM.
I try to add this code:
ActiveSheet.Shapes.AddPicture sDir & sPic, False, True, 1, 1, 100, 100
but it's keep getting error.
I guess revised code for that would be:-
Please Login or Register to view this content.
Last edited by Vikas_Gautam; 12-16-2014 at 04:53 AM.
error.JPG
not working, syntax error
So try this then
Edit:- Done some changesPlease Login or Register to view this content.
Last edited by Vikas_Gautam; 12-16-2014 at 05:28 AM.
still not work, i am googling,
found this code:
Sub TestInsertPicture()
InsertPicture "C:\FolderName\PictureFileName.gif", _
Range("D10"), True, True
End Sub
Sub InsertPicture(PictureFileName As String, TargetCell As Range, _
CenterH As Boolean, CenterV As Boolean)
so i think maybe the link:=false can add to above code? but i dont know how.
Sub qiyusipicture ()
InsertAllPix Range("B2"),"D:\New folder","*.jpg", false
End Sub
Sub InsertAllPix(r As Range, ByVal sDir As String, sFilt As String, linktofile as ?????)
Try the above code
Its working for me.
Aha!
yes, finally! don't how know to thank you.
i struggling to fix the code all day long, and you make it right in a minutes.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks