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

Excel Bild via vba an Word Textmarker senden

Forumthread: Excel Bild via vba an Word Textmarker senden

Excel Bild via vba an Word Textmarker senden
12.10.2018 09:18:16
Molle
Guten Morgen zusammen,
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
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ja
12.10.2018 09:33:26
Fennek
im Normalfall geht das.
AW: Ja
12.10.2018 10:19:07
Molle
Wie würde den in diesem Fall die Programmierung aussehen?
Verzweifel daran, kann mir jemand dabei helfen?
VG
Molle
AW: Ja
12.10.2018 10:19:08
Molle
Wie würde den in diesem Fall die Programmierung aussehen?
Verzweifel daran, kann mir jemand dabei helfen?
VG
Molle
Anzeige
Das geht so...
12.10.2018 10:22:14
Case
Hallo, :-)
... der Spur nach: ;-)
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.
Servus
Case
Anzeige
AW: Das geht so...
12.10.2018 11:00:50
Molle
Vielen Dank für die schnelle Hilfe.
Jetzt habe ich nur ein Problem bei der Umsetzung.
Ich habe ein Test durchgeführt und es funktioniert nicht, Word wird geöffnet aber es wird kein Bild angezeigt :( (Bin ein VBA noob)
Ich weiß nicht wie ich das Bild in Excel anspreche. Habe den Textmarker Bild genannt und das Bild EinBild
Das Bild habe ich auch unter Eigenschaften EinBild genannt.
Habe ich etwas übersehen?
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:\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

Anzeige
Schau Dir mal das...
12.10.2018 11:15:54
Case
Hallo, :-)
... Beispiel an.
Klicke auch mal das Bild in Deiner Datei an - was steht im Namenfeld?
Mit dem Beispiel sollte es jetzt eigentlich klar sein - Noob hin oder her. ;-)
Servus
Case
Anzeige

Forumthreads zu verwandten Themen

Excel Grafiken in Word kopieren
niefl

Hi,
eine Freundin schreibt gerade eine Arbeit in Word. Sie verwendet sehr viele Excel Diagramme und Tabellen. Sie verwenden "kopieren" (in Excel) und "Inhalte einfügen" / "als Bild (Erweiterte Metadatei)" um Diagramme in das Word-Dokument zu integrieren. Leider ist das Ergebnis nicht perfek...
09.11.2008 19:19:03
Thread-ID: 1023105
2 Beiträge
Grafik in Kopfzeile gelöscht; wie wieder einfügen?
abdipost

Hallo zusammen,
habe aus einem Tabellenblatt in einer Excel-Mappe die Grafik aus der Kopfzeile gelöscht.
Die Grafik habe ich nicht als Datei vorliegen.
Wie bekomme ich die wieder rein?
In den anderen Tabellenblättern ist sie noch enthalten.
Danke für Eure Hilfe
16.06.2009 15:36:17
Thread-ID: 1081936
9 Beiträge
Anzeige
VBA Code in Modul der gleichen Datei einfügen
Micha

Hallo,
ich möchte VBA Code in ein Modul der gleichen Datei einfügen. Ich finde überall nur die Möglichkeit, VBA-Code in eine andere Datei einzufügen. (s. Beispiel unten)
Sub neuertest() Open "Probe.txt" For Output As #1 Print #1, "Das ist ein Test" Close #1 End Sub Jemand eine Idee ?
02.11.2009 16:44:25
Thread-ID: 1113889
3 Beiträge
Tabelle in Word einfügen
Carle

Hallo miteinander,
ich stehe vor der an und für sich einfachen Aufgabe (sollte man jedenfalls meinen) eine Tabelle in ein Word-Dokument einzubinden. Ich gehe wie folgt vor: Tabelle wird in Excel markiert und kopiert, dann wechsele ich in das Word-Dokument und gehe auf Bearbeiten/Inhalte ein...
03.01.2011 12:26:59
Thread-ID: 1193638
4 Beiträge
Anzeige
per vba textfelder mit text einfügen
Sascha

hallo an alle...
bei folgendem problem komm ich grad nich weiter...
in tabelle1 von A2:A16 wird eine Liste mit Namen (Maria, Anton, ...) erzeugt. (Anzahl der Namen immer Unterschiedlich)
jetzt würd ich gern in tabelle2 per vba, textfelder einfügen lassen in denen der name drinn steh...
09.05.2011 11:49:22
Thread-ID: 1213608
5 Beiträge
Anzeige
Grafik mit Bedingung Einfügen - Erstellungsdatum
Paulo

Hallo Freunde,
Mein Anliegen ist es ein Bild oder eine Grafik mit der Bedingung diese nur einzufügen wenn der bspw. Erstellungsdatum der Datei mit dem in einer Zelle vorgegeben datum zutrifft.
Wenn der Erstellungsdatum gleich ist wie in der Zelle fügt er das Bild ein Sonst nicht.
De...
26.09.2011 18:06:07
Thread-ID: 1231525
4 Beiträge
zahlen aus excel in wordtabelle farbig einfügen
preusbep

hallo ich würde gerne zahlen die ich aus excel lese in eine wordtabelle farbig einfügen. Leider werden die Zahlen nicht farbig sondern bleiben schwarz !
Danke für die Hilfe Sub farbe3() Dim Farbe(1 To 3, 1 To 1) As Single Set Word = CreateObject("word.Application") For i = 1 To 3 Farbe(i, 1...
27.09.2011 15:29:42
Thread-ID: 1231690
4 Beiträge
Markierten Bereich aus Excel in Word einfügen
Peter

Hallo liebes Forum,
ich möchte einen zusammenhängenden markierten Bereich aus Excel per Makro in ein existierendes Worddokument einfügen.
Einzelne Teile habe ich mir per Makrorekorder oder aus Archiv zusammengbastelt:
Selection.Copy
Pfad = ThisWorkbook.Path & "\Dokument1.doc...
18.11.2011 19:43:13
Thread-ID: 1238451
3 Beiträge
Tabelle in word einfügen
Carle

Ahoi!
Ich möchte eine Excel-Tabelle in ein Word-Dok einfügen. Dabei ging ich zuletzt wie folgt vor: Excel-Bereich markieren, kopieren, Wechsel in Word-Dok, Bearbeiten, Inhalte einfügen, Option Verknüpfung einfügen, MS Office Excel-Arbeitsblatt-Objekt, ok. Es erscheint jedoch nur ein grauer...
31.01.2012 14:19:35
Thread-ID: 1248650
2 Beiträge
Anzeige
HTML Tabelle als Grafik in E-Mail einfügen
steffen

Hallo!
ich habe folgendes Problem und hoffe ich finde hier helle Köpfe die mit weiterhelfen :-)
Ich erstelle autom. eine E-Mail: Dim objOutlook As New Outlook.Application Dim ObjMessage As MailItem Set ObjMessage = objOutlook.CreateItem(olMailItem) With ObjMessage .BodyFormat = 1 .HTML...
05.09.2012 13:22:36
Thread-ID: 1277492
3 Beiträge
Excel Grafiken verlinken ins Word
ste

Guten Abend
Im Excel generierte Grafiken verlinke ich mittels Einfügen - Verknüpfung einfügen - Microsoft Excel-Diagramm Objekt in ein Word Dokument. Anschliessend passe ich die Grösse der Grafiken an.
Was mir nun laufend passiert ist, dass sich die Grössen der Grafiken im Word Dokument...
13.12.2012 18:44:57
Thread-ID: 1290778
2 Beiträge
Excel Tabelle in Word einfügen, Laufzeitfehler 594
Stephan

Hallo zusammen,
ich habe via VBA in Excel eine Tabelle kopiert und versuche, diese mit der VBA-Anweisung in Word:
Selection.PasteExcelTable False, False, False
in ein Worddokument zu integrieren. Allerdings wird gar nix eingefügt. Wollte gern die Formatierungen aus Excel beibehalten...
18.01.2013 10:43:54
Thread-ID: 1294916
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige