Openfile - Sluiten

[Evitje]

Hoi Sub-ertjes,

Wanneer ik een foto toevoeg en ik klik annuleren geeft hij een foutmelding in de Vba.

Nu zou ik graag hebben, wanneer ik op annuleren druk; dat hij de reeds geschreven msgbox met de waarschuwing toont en het Openfile venster afsluit.

Iemand die mijn code kan bewerken, want ik kan het maar niet vinden.

Alvast bedankt xx

Code :

Sub Foto_toevoegen()
'
' Foto_toevoegen Macro
' De macro is opgenomen op 26/02/2007 door Evitje.
'

ScreenUpdating = False
fileToOpen = Application _
.GetOpenFilename("Foto voor SAF JPEG-Afbeelding (*.jpg), *.jpg")

If fileToOpen <> False Then ActiveSheet.Pictures.Insert(fileToOpen).Select
Selection.ShapeRange.Width = 170
Selection.ShapeRange.Height = 115


If fileToOpen <> False Then
'MsgBox ("U hebt geen foto geselecteerd"), vbOKOnly


End If
End Sub

 

[Wigi]

Sub Foto_toevoegen()
Dim fileToOpen As Variant
fileToOpen = Application.GetOpenFilename("Foto voor SAF JPEG-Afbeelding (*.jpg), *.jpg")

If fileToOpen = False Then
    MsgBox "U hebt geen foto geselecteerd", vbOKOnly
Else
    ActiveSheet.Pictures.Insert(fileToOpen).Select
    With Selection
        .ShapeRange.Width = 170
        .ShapeRange.Height = 115
    End With
End If
End Sub

Wigi

 

[Evitje]

Ja! verdorie

Dank je wigi

 

[Wigi]

Je zat in de knoop met de False en ook de opmerking stond in commentaar, dus wordt niet uitgevoerd.