Pour l'instant j'utilise ça :
With BoiteDialogue
.Filter = "Images (bmp;gif;jpg;jpeg;png;wmf)|*.bmp;*.gif;*.jpg;*.jpeg;*.png;*.wmf"
.FileName = ""
.flags = &H1008 '&H1000 Fichier doit etre existant
.ShowOpen
If Len(.FileName) > 0 Then
Dim objImg As OLEObject
Set objImg = rtfDescription.OLEObjects.Add(, , .FileName)
objImg.DisplayType = rtfDisplayContent
End If
End With
Mais j'ai beaucoup d'erreur, et l'image s'ouvre ensuite avec le prog par défaut je crois que je vais revenir au presse papier.
-------------------------------
Réponse au message :
-------------------------------
> Je cherche un moyen d'insérer une image dans une RTB sans utiliser la fonction "Clipboard".
>
> Merci de votre réponse ...
|