Word VBA: Bild an einem betimmten Ort einfügen?

Hallo zusammen

Kann man mittels VBA im Word ein Bild an einer bestimmter Position einfügen? Also nicht dort wo der Cursor sich befindet?

Ich möchte nämlich ein Bild am Rand des Blattes einfügen, wo man den Cursor nicht hinstellen kann.

Ich weiss es würde mit Textfeldern gehen, aber dann müsste man ca. 1500 Vorlagen anpassen.

Besten Dank für eure Hilfe

Answer 1

[Robinuelson]

Du machst nen Rechtsklick auf das Bild, dann klickste auf Anordnung (Reihenfolge) und hinter den Text

Comments

[rog3r]

Das ist mir bewusst, aber gibt es eine Möglichkeit mit VBA ein Bild an genau einer Stelle einzufügen, ohne das der Cursor dort sein muss?

[Robinuelson]

Das geht, du kannst irgendwo die Koordinaten der Position angeben

[rog3r]

Besten Dank hat Tip Top geklappt ;)

[Robinuelson]

gerne freut mich :)

Answer 2

[xGlumi]

Sub BildFixPos()
Dim file As String
Dim opn As FileDialog
Set opn = Application.FileDialog(msoFileDialogOpen)
With opn
   .Title = "Bild aussuchen"
   If .Show = True Then 'Öffnet ein OpenFile-Dialog, um das Bild auszusuchen
      file = (.SelectedItems.Item(1))
      With ActiveDocument.Shapes.AddPicture(file) 'Fügt die ausgesuchte Bilddatei in Word ein
         .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
         .RelativeVerticalPosition = wdRelativeVerticalPositionPage
         .Left = 0 'X-Wert
         .Top = 0 'Y-Wert
      End With
   End If
End With
End Sub

---

Mit dem Code kannst du dir ein "OpenFileDialog" öffnen lassen, um das entsprechende Bild auf dem Computer auszuwählne, und dieses wird anschließend an eine bestimmte Position (X,Y) in Word eingefügt.

Hoffe dir hat die Antwort geholfen :)

MFG xGlumi

Woher ich das weiß: eigene Erfahrung – Programmier/IT Erfahrung seit 2009 (Freizeit und Beruf)