Wrap text code not working

Bluebell · #1 03-24-2018, 04:45 AM

I have writing a manual and need to insert a lot of screen prints. I have go the following code to fix the aspect ratio and add the required border which works fine.

I find that although my setting are for Top and Bottom alignment this does not always work when I drag the images in so wanted to add a line of code to change the image type to Top and Bottom alignment

I am using Word 2016 running Windows 10. My code is as follows but I get Compile error: Method or data member not found when I add the wrap format line. Can someone please point out what I am doing wrong please
Many thanks

HTML Code:

Sub AllShapes()
' Sets all selected shapes to Locked Aspect Ratio
Dim oSh As Shape
Dim oSl As InlineShape
 
   For Each oSh In ActiveDocument.Shapes
            oSh.LockAspectRatio = True
            
   Next
   For Each oSl In ActiveDocument.InlineShapes
            oSl.LockAspectRatio = True
            oSl.Line.Weight = 2
            oSl.Line.Style = msoLineSingle
            oSl.Line.ForeColor.RGB = RGB(91, 155, 213)
            
            oSl.WrapFormat.Type = wdWrapTopBottom 'Compile error with this line of code            
           
   Next

 
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Wrap text in text box around image with transparent background	pstidsen	Word	4	02-08-2016 03:30 PM
How to Wrap Text on Images in Text Boxes	mrniceguy	Word	1	02-16-2014 04:42 PM
Text wrap	chuckmg@acm.org	Word	6	10-01-2013 07:39 PM
Wrap Text function not working?	mhays	Excel	1	11-21-2012 05:03 PM
Text Won't Wrap	WRowan	Publisher	0	06-14-2012 09:27 AM