Office: (Office 2016) Bild mit VBA von Access in Word Formular einfügen

Hallo an alle, dies ist mein erster Eintrag. Ich habe schon einiges an Erfahrung in VBA komme aber hier siet 2 TAgen trotz üblicher Recherche in Google und einigen Foren nicht weiter.

Ich nutze folgenden Code in Word und das klappt wunderbar. Ich würde nun gerne aus Access mit diesem Code Bilder in ein Formular einfügen.

CODE in Word - Läuft ohne Probleme

Dim s As InlineShape
Dim cs As Shape

Set s = Selection.InlineShapes.AddPicture(FileName:= _
"C:Usersm.fellDownloads131802545.jpg", LinkToFile:=False, SaveWithDocument:=True)
Set cs = s.ConvertToShape

With cs
cs.WrapFormat.Type = wdWrapFront
cs.Top = 100
cs.Left = 10
cs.LockAspectRatio = msoFalse
cs.Height = 10
cs.Width = 20
'End With




CODE in Access - Bis --Dim s As InlineShape-- ist alles soweit OK. Erst ab dem Thema Bild funktioniert es nicht. Ich habe dort schon einiges probiert udn habe euch hier nochmal den Code von Anfang meiner Versuche aufgeführt.

Dim objWord As Word.Application

Set objWord = CreateObject("Word.Application")
With objWord
.Visible = True
.Documents.Open ("S0580glomi001BackendPersoFormulareTeilnehmerliste Schulung.doc")
.ActiveDocument.Bookmarks("Datum").Select
.Selection.Text = Me.Datum

Dim s As InlineShape
Dim cs As Shape

Set s = .Selection.InlineShapes.AddPicture(FileName:= _
"C:UsersUserDownloads131802545.jpg", LinkToFile:=False, SaveWithDocument:=True)
Set cs = s.ConvertToShape

With cs
cs.WrapFormat.Type = wdWrapFront
cs.Top = 100
cs.Left = 10
cs.LockAspectRatio = msoFalse
cs.Height = 10
cs.Width = 20
End With

End With




Ich danke euch im Vorfeld für jede Hilfe. Bitte entschudligt, wenn ich mich in der Art der Darstellung nicht richtig verhalten habe.

:)

 

Hallo,

ich habe das mal mit diesem Code getestet und keine Probleme bekommen:
Code:

 

Hallo Knobbi38, Danke Dir für diesen Ansatz. Sieht echt gut aus. Der Code läuft schon mal und hängt sich nicht mehr auf.

Allerdings gibt es nun ein neues Problem, was ich persönlich noch nie gesehen habe.

Das Dokument wird geöffnet, das Dokument wird entsprechend ausgefüllt, aber wenn das Bild eingefügt werden soll kommt folgende Fehlermeldung :

Der Grafikfilter konnte diese Datei nicht konvertieren.

Ich habe es auch mit anderen Bildern versucht. Immer das gleiche Bild. Wenn ich meinen alten Code in Word mit den gleichen Bildern nutze, bekomme ich diesen Fehler nicht. Es sieht für mich somit aus als ob der Fehler nur entsteht, weill die Anweisung von Access ausgelöst wird.

Habt Ihr eine Idee?

 

Hi, es hat sich erledigt. Oh Mann, ich habe das Word Dokument als .Doc statt .Docx abgespeichert. Das konnte nicht funktionieren.

Danke Knobbi38. Du hast mir schnell uns super geholfen. Schaue mir auch Deinen Code nochmal genau an um herauszufinden was ich bei meinen Lösungewegen falsch gemacht habe. Einiges hatte ich in gleiche rArt schon versucht.

Super Leute und super Forum.... Danke.......