Indsæt billede i Word dokument via makro.
Har en makro der indsætter et billede via følgende :-----------------------------------------------------------------
Public Sub side1()
Dim rng As Variant
Dim curpos As Integer
ActiveDocument.Bookmarks.Add Name:="cursorpos", _
Range:=Selection.Range
'Gå til start af dokument
Selection.HomeKey unit:=wdStory, Extend:=wdMove
ActiveDocument.Shapes.AddPicture LOGODIR & "Adr2ny.jpg", False, True, 416, 0
For iPgNum = 2 To Selection.Information(wdNumberOfPagesInDocument)
sPgNum = CStr(iPgNum)
' Go to next page in iteration.
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, _
Count:=sPgNum
ActiveDocument.Shapes.AddPicture LOGODIR & "side2ny.jpg", False, True, 416, 0, , , Selection.Range
Next
Selection.GoTo What:=wdGoToBookmark, Name:="cursorpos"
End Sub
-----------------------------------------------------------------
Det der sker er at jeg indsætter et logo på side 1 og et andet logo hvis der er en side 2, hvilket virker ok.
Har dog den udfordring at vi har over 1200 dokumenter hvor brugerne har forskellige margener. Kan jeg på en aller anden måde indsætte logo som et vandmærke eller lign, via min macro så jeg kan placere det som jeg vil uden at det bliver resized eller flyttet af margener
Problemet er at vi ikke kan ændre margener, da det vil betyde ændring af alle brevkskabeloner.