Hallo zusammen,

ich habe ein Problem bzw. Phänomen mit dem Einfügen von Grafiken in Word-Dokumenten.

Wir verwenden Vorlagen, die allen Anwendern von einem zentralen Server zur Verfügung gestellt werden. Wenn der Anwender ein neues Dokument auf Basis einer dieser Vorlagen erstellt, soll automatisch eine Grafik an einer bestimmten Position der ersten Seite eingefügt werden.

Dazu verwende ich per OLE/ActiveX folgendes Skript (von mir auf VBA Syntax umgeschrieben):
Ich übergebe das Dokument "doc", die Textmarke als Ziel "bkm", Name und Pfad der Grafik "pic sowie die Postions- und Größenangaben "t", "l", "h" und "w" für top, left, height und width.

Sub ImportLogo(doc As Document, bkm As String, Pic As String, t As Single, l As Single, h As Single, w As Single)

  Dim ils As InlineShape
  Dim sh As Shape
    
  Set ils = doc.Bookmarks(bkm).Range.InlineShapes.AddPicture(FileName:=Pic, LinkToFile:=False, SaveWithDocument:=True)
  Set sh = ils.ConvertToShape
  
  sh.Name = bkm
  sh.Anchor.Paragraphs.First.Range.GoTo What:=-1, Name:=bkm
  sh.RelativeVerticalPosition = 1
  sh.RelativeHorizontalPosition = 1
  sh.LayoutInCell = False

  sh.Top = t
  sh.Left = l
  sh.Height = h
  sh.Width = w

  sh.LockAnchor

  doc.Bookmarks(bkm).Delete

End Sub

Mein Phänomen ist nun:

1. Auf ca. 90 % der Rechnern verhält sich alles OK und die Grafik ist korrekt eingefügt.
2. Auf ca. 7 % der Rechnern erscheint die Grafik verschoben und wird beim Speichern des Dokumentes wie von Geisterhand an die richtige Postion geschoben.
3. bei den restlichen ca. 3 % bleibt die Grafik an der falschen Position (identisch mit 2) und wird nicht beim Speichern verschoben.

Alle Rechner haben dieselbe Windows- und Word-Versionen. Vorlage und Grafik sind immer dieselben, da sich auf dem Server liegen und von dort geöffnet werden. Schaut man sich die Optionen der Grafiken an, so ist kein Unterschied zu erkennen.
 

Hat jemand eine Idee?

Gruß und Dank
Thomas