foto's in een spreadsheet

[F.Meulbroek]

beste forummers

Ik wil in een orderformulier foto's toevoegen van de bestelde artikelen. Is er iemand die mij kan vertellen hoe dit in zijn werk gaat. De foto's staan nu in een map in mijn documenten.
Groetjes en bedankt voor jullie reactie's
Frans

 

[richard1970]

Beste Frans,

Lukt je dat niet via Invoegen - illustratie - uit bestand?

Groeten,

Richard

 

[F.Meulbroek]

Thanks

hallo Richard,

Ja zo lukt het natuurlijk maar ik ben waarschijnlijk wat te vaag bij mijn vraagstelling. Het is de bedoeling dat als ik in een cel (artikelnummer) een waarde ingeef die correspondeert met de naam van de foto (b.v. 001.jpg) dat dan in een andere cel de foto wordt getoond.

Dank voor je reactie

 

[richard1970]

Heb je hier iets aan:
http://www.helpmij.nl/forum/showthread.php?t=240576
Komt van LucB

Richard

 

[Roncancio]

hallo Richard,

Ja zo lukt het natuurlijk maar ik ben waarschijnlijk wat te vaag bij mijn vraagstelling. Het is de bedoeling dat als ik in een cel (artikelnummer) een waarde ingeef die correspondeert met de naam van de foto (b.v. 001.jpg) dat dan in een andere cel de foto wordt getoond.

Dank voor je reactie

Onderstaande formule wordt gestart als een waarde in cel A1 wordt ingevoerd.
Eerst wordt gekeken of er een foto bestaat met de naam van de waarde in A1.
Zo ja, dan wordt de foto in cel B1 gezet.
Zo niet, dan verschijnt er een melding dat er geen foto is gevonden.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then

Set FotoZoeken = Application.FileSearch
With FotoZoeken
.LookIn = "C:\"
.Filename = [A1] & ".JPG"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
[B1].Activate
ActiveSheet.Pictures.Insert("C:\" & [A1] & ".JPG").Select
Next i
Else
MsgBox "Er bestand geen foto met deze naam.", vbInformation, "Foto onbekend"
End If
End With
End If
End Sub

 

[LucB]

Download het voorbeeld van deze site:

http://www,mcgimpsey,com/excel/lookuppics.html

 

[F.Meulbroek]

bedankje

Bedankt voor jullie reactie's, ik ga ermee aan de slag en hoop dat ik er uit kom.
Groetjes en fijn weekend
Frans

 

[LucB]

Frans,
Deze is iets eenvoudiger.

 

[F.Meulbroek]

tof

hallo Luc

bedankt voor de verdere info, ik zal hem proberen mee te nemen.

groetjes Frans

 

[LucHeyndrickx]

Of hier?
http://users.skynet.be/onderland/Excel.htm#Lessen
9- InsertPicture

Luc