Ophalen foto via VBA

[Phyxsius]

Hoi,

Ik heb in een excel bestand in een cel een serverlocatie die refereert naar een .jpg file.
Nu wil ik via een macro de werkelijke foto ophalen en weergeven in dat excel bestand op een vooraf bepaalde plaats.

Hiervoor heb ik volgende code gevonden:

Private Sub Macro()

Dim lokatie As String
lokatie = Range("Sheet1!$C$3")
Range("Sheet1!C7").Select
ActiveSheet.Pictures.Insert(lokatie).Select
Selection.ShapeRange.Width = 168
Selection.ShapeRange.Height = 153

End Sub

Tot dusver werkt dit prima.
MAAR: als de serverlocatie incorrect, onvolledig of niet ingevuld is, start de VBA debugger elke keer ik de macro laat lopen.

Welke code moet ik toevoegen aan deze macro, opdat incorrecte/onvolledige serverlocatie genegeerd wordt ipv de debugger op te starten ?

Alvast bedankt !

PS: deze vraag heb ik ook gesteld op http://office.webforums.nl/viewtopic.php?p=214262#214262

 

[HSV]

Probeer dit eens.

Private Sub Macro()
On error resume next
Dim lokatie As String

 

[Superzeeuw]

OF:

On Error Goto Einde:

 Jouw Code

Einde:
End Sub

 

[Phyxsius]

werkt perfect.

Thanks !