lancer diaporama à partir d'un userform??

J

jojo

Guest
bonjour à tous,

en fait à partir d'un userform et d'un répertoire où sont présentes des photo
j'aimerai savoir si c'est possible de lancer le diaporama de windows (à partir du userform)

merci à tous pour votre aide
 

MichelXld

XLDnaute Barbatruc
bonjour

su tu utilises Windows XP , cet exemple permet d'afficher l'apercu des images et telecopies de Windows


Declare Function ShellExecute Lib 'shell32.dll' Alias 'ShellExecuteA' _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub afficherImage_ApercuWindows()
'testé avec Excel2002 et WinXP
'michelxld le 05.01.2005
'force l'affichage de l'image avec 'L'aperçu des images et des télécopies windows'.
Dim Img As String

Img = 'C:\\\\\\\\Documents and Settings\\\\\\\\michel\\\\\\\\dossier'
ShellExecute 0, 'open', 'rundll32.exe', 'C:\\\\\\\\WINDOWS\\\\\\\\System32\\\\\\\\shimgvw.dll,ImageView_Fullscreen ' & Img, 0, 1
End Sub



bon week end
MichelXld
 

Discussions similaires

Réponses
16
Affichages
348
Réponses
1
Affichages
130

Statistiques des forums

Discussions
312 435
Messages
2 088 398
Membres
103 839
dernier inscrit
Patounet66