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

Guessed · #2 03-24-2018, 11:24 PM

You can't wrap text around an inline shape. So you need to convert it to a shape first

Code:

Sub AllShapes()
  ' Sets all selected shapes to Locked Aspect Ratio
  Dim oSh As Shape, 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)
      Set oSh = oSl.ConvertToShape
      oSh.WrapFormat.Type = wdWrapTopBottom
   Next
End Sub

Note that converting the inlineshape to a shape might result in the loop going to every second inline shape. If that is the case, you will need to step backwards through the inline shapes.

Bluebell · #3 03-25-2018, 02:46 AM

Thank you for this, I will see if it is worth my while - not too hard to click on the position button if it comes in incorrectly.
Thank you

Bluebell · #4 03-25-2018, 03:44 AM

I now have a macro which I think converts to a shape, but when I then try and align the shape it still does not recognise the "shapes". I get an unqualified error. Any clues gratefully received. Also how do I know whether a shape is a shape or an inline shape? or an inline shape just that selection on the wrap text button?

HTML Code:

Sub AllShapes()
'add a blue thin border and locks aspect ratio
Dim oSh As Shape
Dim oSl As InlineShape
 
  
   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)
         
      Next
      
 Call ConvertToShape
 Call TopBottomAlign
 
End Sub

Sub ConvertToShape()
Dim i As Integer, oShp As InlineShape

For i = ActiveDocument.InlineShapes.Count To 1 Step -1
    Set oShp = ActiveDocument.InlineShapes(i)
    oShp.Select

    With Selection
    
                If oShp.Type = wdSelectionInlineShape Then
            .InlineShapes(1).ConvertToShape
            
        End If
    
    End With
    Next i
End Sub

Sub TopBottomAlign()
Dim shp As Shape
For Each shp In ActiveDocument.Shapes
           .WrapFormat.Type = wdWrapTopBottom ' unqualified error occurs here
        Next
End Sub

Bluebell · #5 03-25-2018, 04:15 AM

I am sorry but I did not see your solution in the window - am trying that now

Bluebell · #6 03-25-2018, 04:26 AM

Thank you very much, this is my final code which covers both shapes and inline shapes
You are a star

HTML Code:

Sub AllShapes()
'add a blue thin border and locks aspect ratio
'if the image is already a shape uses this macro

Dim oSh As Shape
Dim Osl As InlineShape
For Each oSh In ActiveDocument.Shapes
            oSh.LockAspectRatio = True
            oSh.Line.Weight = 2
            oSh.Line.Style = msoLineSingle
            oSh.Line.ForeColor.RGB = RGB(91, 155, 213)
            oSh.WrapFormat.Type = wdWrapTopBottom
            Next
'formats the shapes and if an inline shapes converts to shapes and aligns top and bottom
 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)
          Set oSh = Osl.ConvertToShape
      oSh.WrapFormat.Type = wdWrapTopBottom

      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