VBA – Delete All Autoshapes
Delete all Autoshapes From a Worksheet
The following is a Macro to loop through all Autoshapes on a given worksheet and delete them.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Sub DeleteAllShapes() 'Activate sheet to delete autoshapes. Sheet1.Activate Dim GetShape As Shape For Each GetShape In ActiveSheet.Shapes GetShape.Delete Next End Sub |
VBA Coding Made Easy
Stop searching for VBA code online. Learn more about AutoMacro – A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!
Did you find this VBA tutorial useful? Then share it with your friends and colleagues:
Ads