Sub test(imagePath As String)
Dim kl As Shape
Dim rng As Range
Set rng = ActiveDocument.Bookmarks("bkmk1").Range
Set kl = ActiveDocument.Shapes.AddPicture(FileName:=imagePath, LinkToFile:=False, SaveWithDocument:=True, Width:=35, Height:=35)
kl.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
kl.RelativeVerticalPosition = wdRelativeVerticalPositionPage
kl.Left = rng.Information(wdHorizontalPositionRelativeToPage)
kl.Top = rng.Information(wdVerticalPositionRelativeToPage)
End Sub
Этот макрос перестал правильно размещать изображение на компьютере под управлением Windows XP с Office 2010. Как мне это исправить?