insert image

Hi Andy, your code works like a charm! thanks a lot!
Now I'm trying to create an "opposite" code which deletes all the images inserted in the document.
Here I did find this code

Please Login or Register  to view this content.

and I'm thinking about how to change it to adapt to my needs.
In this example the user wanted to retrieve all the images whose names were starting by Picture, but I don't have such standard names.
I tried to change the sub like this

Please Login or Register  to view this content.

By simply deleting the If statement the sub would delete all the images in my active worksheet which is not what I want.

Thanks again in advance for your precious help!

P.

PS: next and final step would be creating a warning when the user clicks the button for inserting the images: if the images are already inserted in the document the sub doesn't have to re-insert them again. Am I supposed to create another thread for that? thanks

Hi Andy and thanks again for your support
As soon as I go on on this project I realize how my knowledge of excel and vba is poor...
anyway, I'm here to learn, so I'll try to become a good student
I implemented your code in my file but I still have troubles: when I load the images (Insert Images button) everything works fine, but when I press the other button (Delete images) I get a 400 error. Online debug tells me it's a 1004 runtime error.

I attach my xlsm file again since I inserted a few records, formulas and images and maybe it's easier to understand what I'm apparently missing..

I changed the positioning of the *significant-values* columns but I also changed the code, in fact the images load correctly: on column 6 (F) I have all my pictures names which I get with the codes you corrected.

Thanks again for your time, my turn next time

P.

Hi Andy
I'm having hard times in figuring out what do you mean by saying

Firstly the names of the images does not match the contents of column F.
If you rename the images then this modified code will remove them.

.
Maybe my poor understanding of shapes in Excel VBA doesn't allow me to get the gist of your comment.
The images loads with the first function you corrected because they do match the name in column F plus a .jpg.
If I check the alt_text of my images still tells me the correct image name I inserted (ie scaffalature.jpg).
How do I rename my images? You mean in my Excel file or my actual jpg files? When you say shapes you are talking about shapes created in Excel and images as well? are all of them the same for Excel?

Thanks for your patience....
P

PS: I implemented your last code and now it deletes me just the 2 command buttons, the images are still in place..

Hi Andy!
Much clearer now, thanks for the explanation!
I did see the images names are not ie. scaffalature.jpg but immagine13.
Now I get it, the code won't work until I rename each of them in the Excel name box, in fact by renaming them and the two buttons the delete code works fine.
Now the only question is: since I imported the images via code, and not manually, is there a way to "rename" the images in Excel via code after importing them or have I to rename each of them manually?

I thought your code

Please Login or Register  to view this content.

would rename the images as soon as they're loaded in Excel but apparently it doesn't work as expected..

......
I did it!
I changed your code like this

Please Login or Register  to view this content.

I used the object Pictures instead of Shapes and it worked!


Last question on this topic, I promise: I would like to prevent the user to load once again the images if they're already present in the document. Is there a way to do so?
I want to exit the TestInsertPicture Sub if the images are loaded, and show a message, otherwise the sub will take place and will insert the pictures

I thought of some if statement to run before the while loop, something like this, but *obviously* it doesn't work

Please Login or Register  to view this content.

I get an error on IsNull() : non optional argument. How can I tell Excel to handle null values in this example?

Thanks again..
P

Hi Andy and sorry for the delay of my answer, I hadn't had the chance to reply to you sooner.
I changed the code as per your suggestion but I get a 400 error.
If I keep my previous code with while loop Excel crashes when I try to re-insert the images..
I'm sorry to bother with this again but this is the very last one step for getting the job done.

Thanks again for your time!
P

Thank you very very much Andy!!
Hope to have the chance to return you the favour sometimes.

Have a nice day!
P