Hallo zusammen,

ich würde dringend Hilfe benötigen bei einem VBA prozess. Der Sachverhatl ist wie folgt:

a) Es liegen zwei Daten vor eine Excel Datei die alle benötigen Informationen enthält und eine Word datei die als "Vorlage" fungieren soll

b) Im ersten Step hab ich zsm. mit den Bookmarks besagtes Modul angelegt:

Sub NachWordUebertragen()

    Dim appWord As Object
    Dim Report As Object
    
    Set appWord = CreateObject("Word.Application")
    Set Report = appWord.Documents.Add("C:\Users\Graul\Desktop\EUASIA\Arbeit\Report.docx")
    
    appWord.Visible = True
    
   Report.Activate
    Report.Bookmarks("Vorname").Range.Text = Range("Vorname")
    Report.Bookmarks("Nachname").Range.Text = Range("Nachname")
    Report.Bookmarks("Abteilung").Range.Text = Range("Abteilung")
    Report.Bookmarks("ALTTELEFON").Range.Text = Range("ALTTELEFON")
    Report.Bookmarks("KWALT").Range.Text = Range("KWALT")
    Report.Bookmarks("ALTBEDARF").Range.Text = Range("ALTBEDARF")
    Report.Bookmarks("ALTNEGA").Range.Text = Range("ALTNEGA")
    Report.Bookmarks("ALTPOSITIVE").Range.Text = Range("ALTPOSITIVE")
    Report.Bookmarks("ALTLEAD").Range.Text = Range("ALTLEAD")
    Report.Bookmarks("ALTOFTELEFON").Range.Text = Range("ALTOFTELEFON")
    Report.Bookmarks("ALTTASK").Range.Text = Range("ALTTASK")
    Report.Bookmarks("KWNEU").Range.Text = Range("KWNEU")
    Report.Bookmarks("Neutelefon").Range.Text = Range("Neutelefon")
    Report.Bookmarks("NEUBEDARF").Range.Text = Range("NEUBEDARF")
    Report.Bookmarks("NEUNEGATIVE").Range.Text = Range("NEUNEGATIVE")
    Report.Bookmarks("NEUPOSITIVE").Range.Text = Range("NEUPOSITIVE")
    Report.Bookmarks("NEULEAD").Range.Text = Range("NEULEAD")
    Report.Bookmarks("NEUOFTELEFON").Range.Text = Range("NEUOFTELEFON")
    Report.Bookmarks("NEUTASK").Range.Text = Range("NEUTASK")
    
    
    
    
          
    Set Report = Nothing
    Set appWord = Nothing
    
    
End Sub

c) Hier sollen aber nun auch noch die Diagramme aus Excel gezogen werden per Bookmarks ist das leider nicht möglich, kann mir jeamnd hierbei bittee weiterhelfen?

Vielen Dank im Voraus