Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1504to1508
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
Bild in Word Dokument
13.07.2016 10:30:16
Fatih
Hallo Profis,
stehe mal wieder aufm Schlauch.
Ich möchte ein Bild, das vorher abgespeichert wurde, in ein Word Formular einfügen. Das Word Formular übernimmt vorher die Daten von der UserForm.
Ich bekomme bei der Shapes.AddPicture Anchor:=Selection.Range, Filename:=Bilddatei, LinkToFile:=False, SaveWithDocument:=True immer eine Fehlermeldung.
Kann es sein, dass die Funktion bei Word 2010 nicht mehr funktioniert?
Set appWD = CreateObject("Word.Application")
appWD.Visible = True
'Vorlage als Dokument in Word öffnen
appWD.Documents.Add Template:="X:\Ek32\EINKAUF\BACHELORS\Fatih Sancak\Prototyp\Ä _
nderungsbegleitschein.docx"
'Nach Word "umschalten"
'AppActivate appWD
With appWD.ActiveDocument
.FormFields("IDW").Result = ID
.FormFields("MaschinennummerW").Result = Maschinennummer.value
.FormFields("KundeW").Result = Kunde.value
.FormFields("VerbauungsortW").Result = Verbauungsort.value
.FormFields("AusstellerW").Result = Aussteller.value
.FormFields("WunschterminW").Result = Wunschtermin.value
If BAF.value = True Then
.FormFields("BAFW").Result = "BAF"
End If
If KAF.value = True Then
.FormFields("KAFW").Result = "KAF"
End If
.FormFields("AbteilungW").Result = Abteilung.value
.FormFields("DatumW").Result = Datum.value
.FormFields("SchlüsselW").Result = Schlüssel.value
.FormFields("BAFPosition1W").Result = BAFPosition1.value
.FormFields("TeilenummerALT1W").Result = TeilenummerALT1.value
.FormFields("TeilenummerNEU1W").Result = TeilenummerNEU1.value
.FormFields("Menge1W").Result = Menge1.value
.FormFields("Beschreibung1W").Result = Beschreibung1.value
.FormFields("InfoW").Result = Info.value
.FormFields("BAFPosition2W").Result = BAFPosition2.value
.FormFields("TeilenummerALT2W").Result = TeilenummerALT2.value
.FormFields("TeilenummerNEU2W").Result = TeilenummerNEU2.value
.FormFields("Menge2W").Result = Menge2.value
.FormFields("Beschreibung2W").Result = Beschreibung2.value
.FormFields("BAFPosition3W").Result = BAFPosition3.value
.FormFields("TeilenummerALT3W").Result = TeilenummerALT3.value
.FormFields("TeilenummerNEU3W").Result = TeilenummerNEU3.value
.FormFields("Menge3W").Result = Menge3.value
.FormFields("Beschreibung3W").Result = Beschreibung3.value
.FormFields("BAFPosition4W").Result = BAFPosition4.value
.FormFields("TeilenummerALT4W").Result = TeilenummerALT4.value
.FormFields("TeilenummerNEU4W").Result = TeilenummerNEU4.value
.FormFields("Menge4W").Result = Menge4.value
.FormFields("Beschreibung4W").Result = Beschreibung4.value
.FormFields("BAFPosition5W").Result = BAFPosition5.value
.FormFields("TeilenummerALT5W").Result = TeilenummerALT5.value
.FormFields("TeilenummerNEU5W").Result = TeilenummerNEU5.value
.FormFields("Menge5W").Result = Menge5.value
.FormFields("Beschreibung5W").Result = Beschreibung5.value
'Bild in Änderungsbegleitschein
Dim Bilddatei
Dim dateiname As String
dateiname = Bearbeiten.Maschinennummer.value
Bilddatei = "E:\" & dateiname & ".jpg"
appWD.Shapes.AddPicture Anchor:=Selection.Range, Filename:=Bilddatei, LinkToFile:=False, SaveWithDocument:=True

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild in Word Dokument
13.07.2016 10:55:27
JoWE
Hallo Fatih,
versuchs mal mit Klammern:
appWD.Shapes.AddPicture(Anchor:=Selection.Range, Filename:=Bilddatei, LinkToFile:=False, SaveWithDocument:=True)
Gruß
Jochen

AW: Bild in Word Dokument
13.07.2016 11:08:07
Fatih
Hallo Jochen
bekomme eine Fehlermeldung
Fehler beim Kompilieren
Erwartet: =
Gruß
Fatih

AW: Bild in Word Dokument
13.07.2016 12:31:01
JoWE
Hallo nochmal,
ja, klappt bei mir so auch nichjt.
Aber so:
appwd.Selection.MoveEnd
appwd.activedocument.InlineShapes.AddPicture _
Filename:=Bilddatei, LinkToFile:=False, SaveWithDocument:=True
Gruß
Jochen

Anzeige
AW: Bild in Word Dokument
13.07.2016 12:55:43
Fatih
Danke dir Jochen
eine bitte hätte ich noch.
Könntest du mir verraten wie ich es hin bekomme, dass das Bild nicht oben sondern unter den importierten Text Daten einfügen kann.
Gruß
Fatih

AW: Bild in Word Dokument
13.07.2016 14:16:08
JoWE
Hi,
so (wenn Du den Verweis auf die "Microsoft Word 15.0 Object Library" aktiviert hast):
appwd.Selection.EndKey Unit:=wdStory
appwd.activedocument.InlineShapes.AddPicture _
Filename:=Bilddatei, LinkToFile:=False, SaveWithDocument:=True
Gruß
Jochen

AW: Bild in Word Dokument
13.07.2016 14:23:06
JoWE
...ohne das Setzen des Verweises könnte auch das hier klappen:
appWD.Selection.EndKey 6
Gruß
Jochen

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige