Thema Datum  Von Nutzer Rating
Antwort
26.02.2021 15:44:17 Mike
Solved
26.02.2021 23:27:41 xlKing
*****
Solved
27.02.2021 00:11:59 xlKing
*****
Solved
Blau Bild (jpg) aus Excel in Kopfzeile eines neuen Worddokumentes
 01.03.2021 12:42:30 Gast57618
Solved
02.03.2021 01:31:59 xlKing
*****
Solved
02.03.2021 02:11:30 Gast97923
*****
Solved
02.03.2021 18:57:01 Mike
Solved

Ansicht des Beitrags:
Von:
Gast57618		 Datum:
01.03.2021 12:42:30		 Views:
467		 Rating:
     
Antwort:
 Nein
Thema:
Bild (jpg) aus Excel in Kopfzeile eines neuen Worddokumentes

Hallo Mr. K.,

vielen Dank für Deine Hilfe, leider führt der Code zu dem Fehler: "Laufzeitfehler '-2147417851 (80010105)': Die Methode 'Paste' für das Objekt 'Range' ist fehlgeschlagen.

Sub WordStarten()
 
  Set wd = CreateObject("Word.Application")
  wd.Visible = True
   
  Set doc = wd.documents.Add
   
  With doc.Sections(1)
     ActiveSheet.Shapes("Grafik 1").Copy
    .Headers(1).Range.Paste 'Diese Zeile wird mit dem oben genannten Fehler markiert
    .Headers(1).Shapes(1).Top = 0
    .Headers(1).Shapes(1).Height = .PageSetup.HeaderDistance
    .Headers(1).Shapes(1).Left = .PageSetup.PageWidth - .PageSetup.LeftMargin - .PageSetup.RightMargin - .Headers(1).Shapes(1).Width
      
     ActiveSheet.Shapes("Grafik 2").Copy
    .Footers(1).Range.Paste
    .Footers(1).Shapes(2).Top = 0
    .Footers(1).Shapes(2).Left = 0
    .Footers(1).Shapes(2).Height = .PageSetup.FooterDistance
   
     ActiveSheet.Shapes("Grafik 3").Copy
    .Footers(1).Range.Paste
    .Footers(1).Shapes(3).Height = .PageSetup.FooterDistance
    .Footers(1).Shapes(3).Top = 0
    .Footers(1).Shapes(3).Left = .PageSetup.PageWidth - .PageSetup.LeftMargin - .PageSetup.RightMargin - .Footers(1).Shapes(3).Width
  End With
   
End Sub

Aus dem Fehler werde ich nicht wirklich schlau. Mir erscheint der Code auch plausibel. Ich habe auch darüber nachgedacht, ob man die Grafiken in das Worddokument kopiert und dann im Word dokument anspricht und in die Kopf- und Fußzeile einfügt. Wäre das eine mögliche Lösung?

Viele Grüße

Mike

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.02.2021 15:44:17 Mike
Solved
26.02.2021 23:27:41 xlKing
*****
Solved
27.02.2021 00:11:59 xlKing
*****
Solved
Blau Bild (jpg) aus Excel in Kopfzeile eines neuen Worddokumentes
 01.03.2021 12:42:30 Gast57618
Solved
02.03.2021 01:31:59 xlKing
*****
Solved
02.03.2021 02:11:30 Gast97923
*****
Solved
02.03.2021 18:57:01 Mike
Solved