lancer diaporama à partir d'un userform??

[jojo]

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]

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