ich habe eine Frage, kann man ein Bild welches in Excel hinterlegt ist, an einen
Word Textmarker mittels vba senden?
Meine Internetrecherche hat leider nichts zur Tage gefördert.
Viele Grüße
Molle
Option Explicit
Public Sub Main()
Dim objWordRange As Object
Dim objWord As Object
Dim objDoc As Object
Set objWord = CreateObject("Word.Application")
With objWord
Set objDoc = .Documents.Open("C:\Temp\Bild.docx")
.Visible = True
ThisWorkbook.Worksheets("Tabelle1").Shapes("EinBild").Copy
Set objWordRange = objDoc.Bookmarks("Bild").Range
objWordRange.Paste
End With
Set objWordRange = Nothing
Set objDoc = Nothing
Set objWord = Nothing
End Sub
Du musst noch Pfad- und Dateiname, Tabellenblattname, den Bildnamen und den Textmarkenname anpassen.Public Sub Main()
Dim objWordRange As Object
Dim objWord As Object
Dim objDoc As Object
Set objWord = CreateObject("Word.Application")
With objWord
Set objDoc = .Documents.Open("C:\Users\NAME\Desktop\Test.docx")
.Visible = True
ThisWorkbook.Worksheets("Tabelle1").Shapes("EinBild").Copy
Set objWordRange = objDoc.Bookmarks("Bild").Range
objWordRange.Paste
End With
Set objWordRange = Nothing
Set objDoc = Nothing
Set objWord = Nothing
End Sub