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