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