HWV
Terugkerende gebruiker
- Lid geworden
- 19 feb 2009
- Berichten
- 1.183
Beste,
Ik gebruik een VBA code om afbeeldingen te plaatsen, dat werkt goed.
Nu wil ik als de afbeelding niet gevonden wordt dat hij dan een standaard afbeelding pakt.
Ik ben tot het volgende gekomen, maar nu stopt hij met zoeken na de eerste afbeelding die hij niet kan vinden.
Wat doe ik verkeerd!
Ik hoop dat iemand mij hier mee kan helpen.
Groet HWV
Ik gebruik een VBA code om afbeeldingen te plaatsen, dat werkt goed.
Nu wil ik als de afbeelding niet gevonden wordt dat hij dan een standaard afbeelding pakt.
Ik ben tot het volgende gekomen, maar nu stopt hij met zoeken na de eerste afbeelding die hij niet kan vinden.
Wat doe ik verkeerd!
Code:
Sub InsertPictureFotobook()
Sheets("Fotoboek").Select
cntRows = Blad2.UsedRange.Rows.Count + 1
For rw = 3 To cntRows Step 5
For col = 1 To 5
With Cells(rw, col)
'On Error Resume Next
On Error GoTo error_handler
With ActiveSheet.Pictures.Insert("P:\automatisering\mijn afbeeldingen\Website afbeeldingen\472 DS_Photo\" & Cells(rw, col) & ".jpg")
.Top = Cells(rw - 1, col).Top + 4
.Left = Cells(rw - 1, col).Left + 4
.Width = 150 ''(.Heigh / .Width) * Cells(rw, col + 4).Width
.Height = 150 ''Cells(rw, col).Width
End With
error_handler:
With ActiveSheet.Pictures.Insert("P:\automatisering\mijn afbeeldingen\Website afbeeldingen\472 DS_Photo\Geen_foto.jpg")
.Top = Cells(rw - 1, col).Top + 4
.Left = Cells(rw - 1, col).Left + 4
.Width = 150 ''(.Heigh / .Width) * Cells(rw, col + 4).Width
.Height = 150 ''Cells(rw, col).Width
End With
End With
Next
Next
End
End
End Sub
Ik hoop dat iemand mij hier mee kan helpen.
Groet HWV