Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Bild von Excel nach Word kopieren

Bild von Excel nach Word kopieren
05.02.2020 08:22:44
Excel
Hallo zusammen,
ich möchte ein Bild aus einer Excel-Tabelle (Grafik 1) nach Word kopieren.
Mit Texten funktioniert dies prima, indem ich in Word ein RichText Feld einfüge und den Text aus Excel dann dem Feld übergebe. Dazu verwende ich folgenden Code:
If ojcc.Tag = "Richtext1" Then
ojcc.Range.Text = sheets(1).Range("A1").Value
End If

Ich benenne dazu das Richttext-Textelement mit "Richtext1" und übertrage dann den Inhalt aus Zelle A1 in nach Word in dieses Feld.
Nun suche ich eigentlich nach der gleichen Methode um eine Grafik z. B. mit der Bezeichnung "Grafik 1" in ein Steuerelement nach Word zu übergeben. Können Bilder in Richtext-Elemente übergeben werden oder wäre hier ein Bildsteuerelement in Word sinnvoller?
Wäre super, wenn hier jemand einen passenden VBA-Ansatz hätte.
Viele Grüße und vielen Dank im Voraus
Mike
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachfolgend mal ein...
05.02.2020 10:49:19
Case
Hallo Mike, :-)
... Beispielcode, wie du ein Bild von Excel nach Word kopieren kannst: ;-)
Option Explicit
Public Sub Main()
Dim objWord As Object
Dim objDoc As Object
Set objWord = CreateObject("Word.Application")
With objWord
' Pfad- und Dateiname anpassen
Set objDoc = .Documents.Open("C:\Temp\Bild.docx")
.Visible = True
' Tabellenblattname und Bildname anpassen
ThisWorkbook.Worksheets("Tabelle1").Shapes("EinBild").Copy
' Textmarke in Worddatei anpassen
objDoc.Bookmarks("Bild").Range.Paste
End With
Set objDoc = Nothing
Set objWord = Nothing
End Sub
Anpassungen nicht vergessen.
Servus
Case

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Bild von Excel nach Word kopieren


Schritt-für-Schritt-Anleitung

Um ein Bild von Excel nach Word zu kopieren, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

  1. Öffne Excel und Word: Stelle sicher, dass sowohl die Excel-Datei als auch das Word-Dokument geöffnet sind.

  2. Bild auswählen: Navigiere in Excel zu dem Bild, das du kopieren möchtest. Klicke auf das Bild, um es auszuwählen.

  3. Bild kopieren: Drücke Strg + C, um das Bild in die Zwischenablage zu kopieren.

  4. Wechsel zu Word: Gehe zu deinem geöffneten Word-Dokument.

  5. Bild einfügen: Drücke Strg + V, um das Bild in dein Word-Dokument einzufügen.

  6. Bild anpassen: Falls nötig, kannst du das Bild an die Tabelle in Word anpassen. Klicke auf das Bild und verwende die Ecken, um die Größe zu ändern.

Alternativ kannst du auch VBA verwenden, um den Prozess zu automatisieren, wie im Beispiel unten.


Häufige Fehler und Lösungen

  • Bild wird nicht eingefügt: Stelle sicher, dass du das Bild in Excel korrekt ausgewählt hast und es sich in der aktiven Arbeitsmappe befindet.

  • Formatierung geht verloren: Wenn du das Bild einfügst, kann es sein, dass die Formatierung nicht erhalten bleibt. Versuche, das Bild zuerst in Excel zu speichern (Rechtsklick -> Bild speichern) und dann in Word einzufügen.

  • Fehler beim VBA-Code: Wenn der VBA-Code nicht funktioniert, überprüfe, ob der Pfad zur Word-Datei korrekt ist und die Bildnamen übereinstimmen.


Alternative Methoden

Wenn du eine Excel-Tabelle als Bild in Word einfügen möchtest, gibt es mehrere Alternativen:

  1. Screenshot machen: Mach einen Screenshot von der Excel-Tabelle und füge diesen Screenshot in Word ein.

  2. Excel-Tabelle als Grafik speichern: Gehe zu Datei -> Speichern unter und wähle als Dateiformat PNG oder JPEG. Danach kannst du die gespeicherte Grafik in Word einfügen.

  3. Bildsteuerelement in Word verwenden: Füge ein Bildsteuerelement in dein Word-Dokument ein, um Bilder dynamisch zu verwalten.


Praktische Beispiele

Hier ist ein einfaches Beispiel für das Kopieren eines Bildes von Excel nach Word mit VBA:

Option Explicit
Public Sub Main()
    Dim objWord As Object
    Dim objDoc As Object
    Set objWord = CreateObject("Word.Application")
    With objWord
        ' Pfad- und Dateiname anpassen
        Set objDoc = .Documents.Open("C:\Temp\Bild.docx")
        .Visible = True
        ' Tabellenblattname und Bildname anpassen
        ThisWorkbook.Worksheets("Tabelle1").Shapes("EinBild").Copy
        ' Textmarke in Worddatei anpassen
        objDoc.Bookmarks("Bild").Range.Paste
    End With
    Set objDoc = Nothing
    Set objWord = Nothing
End Sub

Mit diesem Code kannst du das Bild „EinBild“ von „Tabelle1“ in das Word-Dokument „Bild.docx“ einfügen.


Tipps für Profis

  • Automatisierung: Wenn du oft Bilder von Excel nach Word kopieren musst, erstelle ein Makro, um den Prozess zu automatisieren.

  • Bildformate: Achte darauf, welche Bildformate du verwendest, da einige Formate in Word besser dargestellt werden als andere.

  • Text aus Bild kopieren: Wenn du Text aus einem Bild in Word verwenden möchtest, kannst du Tools wie OCR (Optical Character Recognition) nutzen, um den Text zu extrahieren.


FAQ: Häufige Fragen

1. Wie kann ich eine Excel-Tabelle als Bild in Word einfügen?
Du kannst die Tabelle in Excel einfach kopieren und dann in Word einfügen. Alternativ kannst du die Tabelle als Bild speichern und dann in Word einfügen.

2. Können Bilder in RichText-Elemente in Word eingefügt werden?
Nein, RichText-Elemente unterstützen keine Bilder. Du solltest stattdessen ein Bildsteuerelement in Word verwenden, um Bilder zu verwalten.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige