![]() |
|
#8
|
||||
|
||||
|
ImageRemover has no code in it so I'm not surprised nothing happens with that macro.
The other macro is testing each floating shape to see what it's type is and only deleting them if they are an msoPicture. Apparently the shapes you want to get rid of are not msoPicture types so maybe you don't want to restrict the macro to only msoPicture. You could ask the macro to tell you what types of shapes are in the document by changing this line Code:
If oShape.Type = msoPicture Then oShape.Delete Code:
If oShape.Type = msoPicture Then oShape.Delete Else Debug.Print oShape.Type End If
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
| Tags |
| deleting, graphics, photos |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Create Word macro to delete text throughout the entire document | JTell | Word VBA | 8 | 07-06-2022 12:19 PM |
Delete entire paragraph after key word
|
jeffreybrown | Word | 2 | 07-27-2018 02:29 PM |
| Single step Word Styles from Source Document through entire Destination document? | xbliss | Word | 6 | 08-27-2016 09:36 PM |
| MS Word auto formats entire document with EVERY change | rooter | Word | 2 | 02-22-2015 10:05 AM |
| New here: How do i delete an entire notebook? | DixieSister | OneNote | 2 | 02-20-2015 12:45 PM |