MS Word makro yang dikembangkan pada Windows 7 berhenti bekerja pada mesin XP [ditutup]


1
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 Office 2010. Bagaimana cara memperbaikinya?


Adakah kesalahan, atau hanya kegagalan diam?
Karan

Apakah ada perubahan dalam versi Office juga?
Gary

2
Jika Anda ingin bantuan dengan ini, harap perbarui pertanyaan ini dengan menanggapi komentar di atas dan untuk pertanyaan ini; Bagaimana cara "berhenti memposisikan gambar dengan benar"? Apakah pengaturan halaman dokumen sama persis dengan di komputer Windows 7?
CharlieRB
Dengan menggunakan situs kami, Anda mengakui telah membaca dan memahami Kebijakan Cookie dan Kebijakan Privasi kami.
Licensed under cc by-sa 3.0 with attribution required.