|
|
|
|
#1
03-01-2023, 06:47 PM
|
||||
|
||||
Graphics might be InlineShapes or Shapes depending on whether they are floating (have text wrapping turned on) or not.
Code:
Dim aShp As Shape, aInShp As InlineShape Debug.Print "Shapes: " & ActiveDocument.Shapes.Count For Each aShp In ActiveDocument.Shapes Next aShp Debug.Print "Inline Shapes: " & ActiveDocument.InlineShapes.Count For Each aInShp In ActiveDocument.InlineShapes Next aInShp
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia 
|
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Insert pictures only if cell is over a certain size | SSC | Excel Programming | 0 | 05-20-2022 04:18 AM |
| Default size of pasted pictures | Corner_Boy | Word | 4 | 08-21-2021 06:01 AM |
| Word file with a lot of pictures. Picture size small, File size HUGE | Blackcloud_9 | Drawing and Graphics | 1 | 04-10-2018 06:04 AM |
 Reduce size of all pictures in presentation
|
Jake2015 | PowerPoint | 1 | 03-05-2015 12:38 PM |
| changing font size without changing leading | carolns | Word | 1 | 09-14-2009 12:30 PM |
Windows 10 
Office 2016
Hybrid Mode