MS Word makro yang dikembangkan pada Windows 7 berhenti bekerja pada mesin XP [ditutup]
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 Makro ini berhenti memposisikan gambar dengan benar pada mesin Windows XP dengan …