diaporama dans userform

[Cruz]

Hey!

J'aimerai savoir s'il est possible d'ouvrir un diaporama via excel sans ouvrir powerpoint et de préférence dans un userform.
Je ne suis pas sur de pouvoir trouver une réponse à cette question, dans ce cas pourriez vous m'expliquer comment créer un gif animé ?

merci d'avance
a+

 

[Baside]

Re : diaporama dans userform

Bonsoir,

C'est possible en plaçant "Image" dans un Userform que tu peux mettre en plein écran et choisir la temporisation entre deux photos, mais bon, cela ne vaut pas d'autres softs.

Amicalement, Hervé.

 

[Staple1600]

Re : diaporama dans userform

Bonsoir

J'ai trouvé cela ici
Applications excel - Exemples -

Mais faut sortir le porte-monnaie

 

[Staple1600]

Re : diaporama dans userform

re

Garde ton porte-monnaie dans ta poche

SOURCE:Vous aimez utiliser VBA avec Excel.

Private Sub UserForm_Activate()
chem = "C:\images\" ' Dossier qui contient vos img.
lafin = False
Do
ind = 1
Do ' Boucler sur les images
img = "image" & ind & ".jpg"
Image1.Picture = LoadPicture(chem & img)
nomfichier = img
DoEvents
attendre ' Temporisation de 2 secondes
ind = ind + 1

Loop Until ind > 3 Or lafin = True
DoEvents
Loop Until lafin = True

End Sub

Private Sub UserForm_Click()
UserForm_Activate
End Sub

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
lafin = True
End Sub

 

[jeanpierre]

Re : diaporama dans userform

Bonsoir Cruz, Baside, Stample 1600, re le forum,

Pour tenter de répondre, voici un fil parmi d'autres avec pour Recherche "USF gif animé"


https://www.excel-downloads.com/threads/gif-dans-user-form.41894/

Sinon, pour créer des gifs animés, il faut un programme. Il y a ou avait Microangelo" si ma mémoire est bonne

Bonne soirée.

Jean-Pierre

 

[Staple1600]

Re : diaporama dans userform

Bonjour

Pour les Gif animés, il existe aussi

Microsoft Gif Animator

Microsoft Gif Animator - télécharger le logiciel Microsoft Gif Animator sur ZDNet.fr

(mais c'est en anglais, je n'ai pas trouvé de version française)

C'est un freeware

 

[danaxia]

Re : diaporama dans userform

re

Garde ton porte-monnaie dans ta poche

SOURCE:Vous aimez utiliser VBA avec Excel.

Private Sub UserForm_Activate()
chem = "C:\images\" ' Dossier qui contient vos img.
lafin = False
Do
ind = 1
Do ' Boucler sur les images
img = "image" & ind & ".jpg"
Image1.Picture = LoadPicture(chem & img)
nomfichier = img
DoEvents
attendre ' Temporisation de 2 secondes
ind = ind + 1

Loop Until ind > 3 Or lafin = True
DoEvents
Loop Until lafin = True

End Sub

Private Sub UserForm_Click()
UserForm_Activate
End Sub

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
lafin = True
End Sub

Bonsoir, merci pour le code il va me servire, bonne soiré et bon dimanche
STEPle1600
Dan

 

[BOISGONTIER]

Re : diaporama dans userform

Bonjour,

Voir PJ

JB