[VBA-PP] Faire un aperçu miniature d'une diapo [Résolu]

[Pikasacha]

Bonsoir,

J'aimerai mettre un aperçu miniature d'une diapositive depuis une autre diapositive, cela en mode diaporama.
Par exemple, lors d'un clic sur un bouton, une userform s'affiche où l'on peut voir les aperçus de toutes les diapos en petites images.

Merci d'avance.

[jmfmarques]

Oui ?
Et qu'as-tu commencé à faire dans ce sens ?
Montre-nous ton code et dis-nous où (sur quel point particulier) tu rencontres une difficulté, s'il te plait ...

[Pikasacha]

Exemple :
Je suis sur une diapositive A. A l'aide d'un bouton, je crée une forme dont la position est générée aléatoirement.
Je passe sur la diapositive B. J'appuie sur un bouton qui m'affiche un userform. Dans cet userform, je souhaiterais voir l'aperçu de la diapo A en plus petit.
C'est la création de cet aperçu qui me pose problème, je ne sais pas comment le "générer".

Cela devrait donner un peu comme le mode Trieuse de Diapositives, mais dans un Userform.

[jmfmarques]

Bien !
Mais qu'as-tu commencé à faire pour y parvenir ?
Si rien : une suggestion :
1) Dans l'aide en ligne (c'est pratique, facile, plein d'exemples, très enrichissant et en tout état de cause indispensable) :
S'intéresser aux contrôles image (et à ses propriétés, notamment la propriété Stretch) et PictureBox (et à ses méthodes, notamment la méthode PaintPicture)
2) fort de ce que tu n'auras ainsi pas manqué d'apprendre : reviens nous voir avec ton code et expose-nous ta difficulté ponctuelle éventuelle. Nous pourrons ainsi commencer à parler ensemble valablement de choses "partageables".

[SilkyRoad]

bonjour


1. ajoute un CommandButton dans la 2eme diapositive
(diapositive B dans ton projet)


2. rattache à ce bouton la macro de lancement du UserForm

Code :

1
2
3
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

3. Créée un UserForm dans la presentation , puis ajoute y un objet Image (nommé Image1)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Option Explicit
 
Dim nomImage As String
 
Private Sub UserForm_Initialize()
nomImage = "C:\imageTemp.jpg"
'supprime l'image si elle existe déja
If Dir(nomImage) <> "" Then Kill nomImage
 
'exporte le 1er Slide au format image
'(correspond au slide A dans ton projet )
ActivePresentation.Slides(1).Export nomImage, "jpg"
DoEvents
 
'affiche l'image dans l'USF
With Me.Image1
.Picture = LoadPicture(nomImage)
.PictureSizeMode = fmPictureSizeModeStretch
End With
End Sub
 
Private Sub UserForm_Terminate()
'supprime l'image lors de la fermeture de l'USF
If Dir(nomImage) <> "" Then Kill nomImage
End Sub

4. tu peux tester ta presentation powerPoint
lors du lancement du Userform , une image du 1er slide va etre créée puis etre affichée dans l'objet image



bonne journée
michel

[Pikasacha]

Merci beaucoup SilkyRoad, ça marche très bien
Désolé de vous avoir fait perdre un peu de temps pour une question finalement simple...

Bonne journée à vous !