Sub AddShapeAtBookMark()
Dim sh As Shape
Dim rng As Range
Set rng = ActiveDocument.Bookmarks("bmk1").Range
Set sh = ActiveDocument.Shapes.AddShape(msoShapeRectangle, 0, 0, 30, 10, rng)
sh.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
sh.RelativeVerticalPosition = wdRelativeVerticalPositionPage
sh.Left = rng.Information(wdHorizontalPositionRelativeToPage)
sh.Top = rng.Information(wdVerticalPositionRelativeToPage) + 12
End Sub
Open in new window