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
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