Hi this piece of macro works:
Please Login or Register to view this content.
this non work .ActiveSheet.Shapes.Delete ????????? to delete shape in the sheet
and this:
ActiveWindow.FreezePanes = False (deletr freesepanes)
ActiveSheet.OLEObjects.Delete (delete commandbutton)
a help?
max
Last edited by max_max; 06-07-2018 at 02:16 PM.
You need to loop through each shape to see if it is in that range.
Just search for delete shapes in a range
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.
Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.
Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here
(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)
Alan עַם יִשְׂרָאֵל חַי
Change an Ugly Report with Power Query
Database Normalization
Complete Guide to Power Query
Man's Mind Stretched to New Dimensions Never Returns to Its Original Form
Hello max_max,
Try;
Regards.Please Login or Register to view this content.
Please consider:
Be polite. Thank those who have helped you. Then Click on the star icon in the lower left part of the contributor's post and add Reputation. Cleaning up when you're done. If you are satisfied with the help you have received, then Please do Mark your thread [SOLVED] .
hi
we must eliminate shape "rounded rectangle 1-2-3-4-5-6-7-8-9-10-11-12"
and not shape "image 1"
it's possible?
max
Attaching a sample workbook enables others to work on your problem:
To attach a sample workbook. Make sure there is just enough data to make it clear what is needed. Include BEFORE/AFTER sheets if needed to show the process you're trying to complete or automate. Remember to desensitize the data.
Click on GO ADVANCED and click "manage attachments" to open the upload window.
To add a file to a post
Attaching example.
max
Hi ! Try this ‼
Easy with shape type :
PHP Code:Sub DeleteAllShapes()
Dim oSh As Shape
For Each oSh In Foglio6.Shapes
If oSh.Type = msoAutoShape Then oSh.Delete
Next
End Sub
Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !
Hello max_max,
Try;
Please Login or Register to view this content.
Last edited by Winon; 06-08-2018 at 11:01 PM.
Maybe this.
Please Login or Register to view this content.
Avoid using Select, Selection and Activate in your code. Use With ... End With instead.
You can show your appreciation for those that have helped you by clicking the * at the bottom left of any of their posts.
@ bakerman2,
Hi Rudi,
Jy is reg! I read the requirement wrong way round. So I have changed my Code to;
B.T.W. your Code errs on my system?Please Login or Register to view this content.
Groete
Last edited by Winon; 06-08-2018 at 10:59 PM.
Please Login or Register to view this content.
Thanks to everyone for the interventions but I have to try the most exact solution on Monday.
Thank you all.
max_max
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
,
Bookmarks