Hi There,

I recently wrote a small (crude) macro to paste, resize and position a copied picture into a word document. It was working fine when I finished it late last year. Yesterday it was working fine, except that the vertical alignment switched from the top of the page to the top of the margin. This morning it crashes immediately after the paste operation, and I get the following error message: "Run-time error '4605': The RelativeVerticalPosition method or property is not available because the drawing operation cannot be applied to the current selection". My code is below. Any idea what might be going wrong?

Thanks, Aaron

Edit: I'm running Windows 7 and Office 2013.

Sub MCGTrace()

    Selection.Paste
    Selection.ShapeRange.ScaleHeight 0.9, msoTrue
    Selection.ShapeRange.ScaleWidth 0.9, msoTrue

    Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionPage
     
    Selection.Application.WordBasic.AlignCenterHorizontal
    Selection.Application.WordBasic.AlignTop
    
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
   
End Sub