Anzeige
Archiv - Navigation
1736to1740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige