Changing the size of all my .png pictures

bblelli · #1 03-01-2023, 05:22 PM

Dears,

How can I loop through all my .png pictures and change the size and location of each .png picture?

I'm trying to use the InlineShapes but it's not working.

Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes

This for session does not find any .png file.

How can I do that?

Thanks

Guessed · #2 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

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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