XL 2010 image format pdf

[MASSJIPE]

Bonjour le forum
J'ai ce code pour faire une photothèque j'ai ajouté png et pdf mais cela ne fonctionne pas
merci

Private Sub BoutCharge_Click()
Dim F, ImageP As StdPicture
  F = Application.GetOpenFilename("Images (*.gif; *.jpg; *.tif; *.png; *.pdf),*.gif;*.jpg;*.tif; *.png; *.pdf")
  If F <> False Then
    On Error Resume Next
    If Dir(F) = "" Then Exit Sub
    Set ImageP = LoadPicture(F)
    On Error GoTo 0
    If ImageP Is Nothing Then
      MsgBox "Erreur à l'ouverture de l'image", vbCritical
    Else
      Set ImgAffichee.Picture = ImageP
      AjoutImageDansListe F
    End If
  End If
End Sub

 

[Yurperqod]

Bonjour le forum

Un PDF n'est pas un format image alors que PNG oui.

 

[MASSJIPE]

Re
le code ne prend pas le format png