word 2010 VBA setting a selected image to border and text wrap tight 1

[DougP]

I have this code but it does not work all the time. the top part worked once to set the text wrap. but now I get this error:
Error #5941
The requested member of the collection does not exist
I want to highlight an image in the document, then click a Quick Access Toolbar button and have it put a border of 1.5 and text wrap, "tight". and... also text wrap, top and bottom (for another macro)
TIA

Sub ImageAddFrame_TextWrapTB()
' format picture text tight
    Selection.InlineShapes(1).ConvertToShape
    Selection.ShapeRange.WrapFormat.Type = wdWrapTight
    
    'add border
    'With Selection.InlineShapes(1)
        Selection.InlineShapes(1).Borders.OutsideLineStyle = wdLineStyleSingle
        Selection.InlineShapes(1).Borders.OutsideLineWidth = wdLineWidth150pt
    'End With
End Sub

DougP

 

[PHV]

Why converting the InLineShape to Shape ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[DougP]

No clue, I just grabbed code from the google gods and pasted it in.
what should I be doing?

DougP

 

[DougP]

Ok I got this far; it makes the image text warp tight.
But need help inserting a border around the image.
Getting error on this line> Selection.Borders.OutsideLineStyle = wdLineStyleSingle

    Selection.InlineShapes(1).ConvertToShape
    Selection.ShapeRange.WrapFormat.Type = wdWrapTight

  [highlight #FCE94F]  Selection.Borders.OutsideLineStyle = wdLineStyleSingle[/highlight]
    'Selection.Borders.LineWidth = wdLineWidth150pt  ' these are "Compile error";
 Method or data memeber not found

    'Selection.Borders.Color = wdColorAutomatic

TIA

DougP

 

[PHV]

What about this ?

Sub ImageAddFrame_TextWrapTB()
With Selection.InlineShapes(1)
    .Borders.OutsideLineStyle = wdLineStyleSingle
    .Borders.OutsideLineWidth = wdLineWidth150pt
    .ConvertToShape
End With
Selection.ShapeRange.WrapFormat.Type = wdWrapTight
End Sub

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[DougP]

Works Awesome baby, Awesome !!!

[r2D2]


DougP