Changing picture wrap text to Square

Yonatanx3 · #1 01-20-2019, 06:38 AM

Hi guys,

I have many word files with 100 or more pictures inserted inside each of them.
Right now, all of the pictures are In Line with Text layout, and I need to change them all to Square option.
Can someone please help me and write down a VBA code that will change all the pictures in a word file please?
Thanks alot, Yonatan.

macropod · #2 01-20-2019, 02:44 PM

Try:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument
  While .InlineShapes.Count > 0
    .InlineShapes(1).ConvertToShape
  Wend
End With
Application.ScreenUpdating = True
End Sub

macropod · #3 01-20-2019, 03:49 PM

Cross-posted at: http://www.vbaexpress.com/forum/show...text-to-Square
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Wrap Text Inside Picture	marconexcel	Drawing and Graphics	2	02-02-2018 05:01 PM
Wrap text in text box around image with transparent background	pstidsen	Word	4	02-08-2016 03:30 PM
Wrap TABLES around picture?	ShankedS	Word Tables	2	11-16-2015 04:27 PM
Powerpoint automatically changing picture size when adding a picture (2010)	One_Life	PowerPoint	7	01-20-2012 06:57 AM
Tiny square but no picture pasted	Seafarer	Word	3	12-28-2011 05:35 PM