Foto in word invoegen via excel lijst

[Georgyboy]

Hallo ieder,

Het is me meermaals gelukt om verzendlijsten te maken met gegevens (vb. artikel of adresgegevens) en daar via een pad of bestand een foto toe te voegen in word of publicher.

waarom het nu niet lukt is me een raadsel ?

Gelezen dat je het pad en extensie niet mag invoegen, maar lukt ook niet.

Wat zou ik verkeerd doen ?

Alle andere velden lukken behalve de fotos

Alvast bedankt,

 

[Georgyboy]

Halo ieder,

Kan dit te maken hebben met de manier hoe we een foto willen importeren van Excel naar word ?
of ligt dit aan office 2010 ? of ?

Via de hyperlink in Excel lukt het niet

Alvast bedankt

 

[Georgyboy]

Nuttige info gevonden,

Maar kom er nog niet uit

http://www.computeridee.nl/workshop/van-excel-naar-word/

 

[Bootje07828]

Hallo allemaal,

Ik heb totaal geen kennis van VBA codes schrijven, maar binnen het bedrijf waar ik werk bestaat een rapport waar ik mee werk.
In dit rapport zit een fout, bij het imnporteren van een 6e foto.
Nou heb ik al naar het script gekeken wat erachter hangt en dat vergeleken met het script van andere foto's, ik zie zo snel geen verschillen.
Het probleem is dat het document na het importeren van de foto, telkens heel erg groot wordt, van zo'n paar honderd Kb, naar 150 Mb bijv.
heeft iemand enig idee wat de oorzaak hiervan zou kunnen zijn, het rapport werkt ver naar behoren. Probleem is dat degene die dit rapport geschreven heeft, niet meer bij ons werkt...

Dit is het script van foto 5 en 6.

' image 5
'------------------------------------------------
Private Sub Image5_Click()

Dim fd As FileDialog
Dim ffs As FileDialogFilters
On Error GoTo Problem
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
Set ffs = .Filters
With ffs
.Clear
.Add "Pictures", "*.jpg"
End With
.AllowMultiSelect = False
If .Show = False Then Exit Sub
Image5.Picture = LoadPicture(.SelectedItems(1))
End With
Exit Sub
Problem:
MsgBox "That was not a valid picture"

End Sub

' image 6
'------------------------------------------------
Private Sub Image6_Click()

Dim fd As FileDialog
Dim ffs As FileDialogFilters
On Error GoTo Problem
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
Set ffs = .Filters
With ffs
.Clear
.Add "Pictures", "*.jpg"
End With
.AllowMultiSelect = False
If .Show = False Then Exit Sub
Image6.Picture = LoadPicture(.SelectedItems(1))
End With
Exit Sub
Problem:
MsgBox "That was not a valid picture"

End Sub