Apply Image formatting to all pictures in the word using VBA

RobertDany · #1 10-28-2023, 09:01 PM

Hi,

I have many images in the document, inline shapes, and wrapped (top and bottom)
I want to apply a border to all images (1pt) and disable the already created shadow for it.
I made this VBA, but doesn't work for wrapped shapes

Code:

Dim pic As InlineShape

For Each pic In ActiveDocument.InlineShapes
  pic.Borders.OutsideLineStyle = wdLineStyleSingle
  pic.Borders.OutsideLineWidth = wdLineWidth010pt
  pic.Shadow.Visible = False
Next

Thanks

RobertDany · #2 10-28-2023, 09:46 PM

I'm sorry, I found the macro, I can't delete my post
However, I will ask for a new code,
How to change the layout for all images in the document (inlined, wrapped, drew shapes) to the top and bottom layout and apply a border to them and make them in the center of the page.
Thanks

Guessed · #3 10-29-2023, 03:23 PM

Can you explain why you want top/bottom wrapping rather than inline on their own paragraph? Keeping graphics inline is preferable for file size, pagination and manageability reasons.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Apply Bold Formatting to a long list of word Macro	luciusrdv	Word VBA	1	05-07-2021 02:05 PM
Apply Picture formatting to all pictures in the word file	si14	Drawing and Graphics	13	07-28-2018 03:31 AM
Make a macro apply only on selected pictures	Mattia	Word VBA	2	11-10-2017 12:52 AM
VBA Word Table - Select More than 1 Column at a time - Apply Formatting	jc491	Word VBA	12	09-24-2015 06:03 AM
how do i apply any change to all pictures in one document	greenil	Word	0	06-18-2013 12:56 AM