Discussion :

[gdmeunier]

Bonjour,
J'ai des diapositives où il y a du texte et où je souhaite, en illustration, faire apparaître puis disparaître une image (copie d'écran) à titre d'exemple. C'est facile et ça fonctionne avec les commandes d'entrée et de sortie d'Animation mais ces images cachent le texte lorsque je veux une version imprimée.
Je souhaiterais avoir ces images en tout petit dans un angle, par exemple, et pouvoir les afficher pleine page (clic) puis les renvoyer (clic) en tout petit dans l'angle lors de la présentation. Ainsi si j'imprime la diapo, le texte de fond restera visible.
J'ai trouvé Agrandir/Rétrécir dans Accentuation mais la variation est limitée à 400% et l'image n'est pas centrée.
Il y a t il une commande existante ou peut on passer par une macro-commande en VBA (ouvrir l'image pour couvrir toute la diapo puis la renvoyer en tout petit à sa place initiale) et dans ce cas quel serait le code (je bidouille un oeu en VBA mais pas assez!)?
Merci d'avance. GDM84

[m@rina]

Bonjour

Oui, il n'y a pas d'autres solutions que de passer par du vba.
Et si tu supprimais l'affichage des images pour l'impression, ça ne conviendrait pas ?

m@rina

[gdmeunier]

Bonjour M@rina,
Supprimer les images (copies d'écran) avant l'impression m'obligerait à les remettre pour les présentations donc ce n'est pas souhaitable.
J'ai récupérer des codes avec l'IA mais ces macro fonctionnent lorsque je les appelle en mode Normal avec le Développeur mais se plantent lorsque j'essaie de les déclencher après les avoir accrochées à un bouton ActiveX

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
 Dim sld As Slide
    Dim shp As Shape
    
    ' Référence à la diapositive active Ca plante ci-dessous en mode diaporama
    Set sld = ActivePresentation.Slides(ActiveWindow.View.Slide.SlideIndex)
    
    ' Référence à l'image (nomme ton image ou modifie le numéro si tu utilises plusieurs images)
    Set shp = sld.Shapes(1) ' Si l'image est la première forme sur la diapositive
    
    ' Modifier la taille (par exemple, doubler la largeur et la hauteur)
    shp.LockAspectRatio = msoTrue ' Pour garder les proportions de l'image
    shp.Width = shp.Width * 4
    shp.Height = shp.Height * 4
End Sub

et pour le bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
 Dim sld As Slide
    Dim shp As Shape
 
    ' Référence à la diapositive active
    Set sld = ActivePresentation.Slides(ActiveWindow.View.Slide.SlideIndex)
 
    ' Référence à l'image (nomme ton image ou modifie le numéro si tu utilises plusieurs images)
    Set shp = sld.Shapes(1) ' Si l'image est la première forme sur la diapositive
 
    ' Modifier la taille (par exemple, doubler la largeur et la hauteur)
    shp.LockAspectRatio = msoTrue ' Pour garder les proportions de l'image
    shp.Width = shp.Width * 4
    shp.Height = shp.Height * 4
End Sub

J'ai essayé avec Call la macro mais cela ne marche pas mieux. Je ne comprends pas pourquoi ces macros fonctionnent en mode normal à partir de Développeur et se plantent en mode Diaporama à partir d'un bouton ActiveX. Merci

[Nain porte koi]

Hello,

m@rina parlait de supprimer l'AFFICHAGE des images, pas de supprimer les images, nuances
Voici un code à lancer avant et après l'impression

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
27
28
29
30
31
32
33
34
35
36
37
Sub MasquerToutesImages()
    Dim diapo As Slide
    Dim forme As Shape
 
    ' Parcourt chaque diapositive du diaporama
    For Each diapo In ActivePresentation.Slides
        ' Parcourt chaque forme de la diapositive
        For Each forme In diapo.Shapes
            ' Vérifie si la forme est une image
            If forme.Type = msoPicture Then
                ' Masque l'image
                forme.Visible = False
            End If
        Next forme
    Next diapo
 
    MsgBox "Toutes les images ont été masquées."
End Sub
 
Sub AfficherToutesImages()
    Dim diapo As Slide
    Dim forme As Shape
 
    ' Parcourt chaque diapositive du diaporama
    For Each diapo In ActivePresentation.Slides
        ' Parcourt chaque forme de la diapositive
        For Each forme In diapo.Shapes
            ' Vérifie si la forme est une image
            If forme.Type = msoPicture Then
                ' Affiche l'image
                forme.Visible = True
            End If
        Next forme
    Next diapo
 
    MsgBox "Toutes les images ont été affichés."
End Sub

Ca n'est pas de moi, c'est chatgpt, à voir s'il faut l'adapter à vos contraintes

[gdmeunier]

Merci nain porte koi!
Les rapports humains sont plus chaleureux mais il est vrai que l'IA nous aide beaucoup! J'ai finalement trouvé la solution sur ChatGPT, car je veux afficher et réduire les images une par une en fonction du déroulement du texte. La macro ne fonctionnait pas en mode diapo (le code que j'avais fonctionnanit en mode normal uniquement) car la référence à la diapo active ne s'écrit pas de la même façon en mode normal ou en mode diapo.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Set sld = ActivePresentation.SlideShowWindow.View.Slide

est le bon code en mode diapo.
Merci et bonne journée
GDM84

[gdmeunier]

Merci nain porte koi!
Les rapports humains sont plus chaleureux mais il est vrai que l'IA nous aide beaucoup! J'ai finalement trouvé la solution sur ChatGPT, car je veux afficher et réduire les images une par une en fonction du déroulement du texte. La macro ne fonctionnait pas en mode diapo (le code que j'avais fonctionnanit en mode normal uniquement) car la référence à la diapo active ne s'écrit pas de la même façon en mode normal ou en mode diapo.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Set sld = ActivePresentation.SlideShowWindow.View.Slide

est le bon code en mode diapo.
Merci et bonne journée
GDM84

En fait, c'est plus compliqué car les numéros des images changent lorsqu'elles se déplacent. Il faut, apparemment, passer par la propriété "tag" pour identifier l'image d'une manière fixe. Propriété que je ne maîtrise pas encore. A suivre!

[mromain]

Bonjour à tous,

Ci-joint une autre proposition qui permet de zoomer/dézoomer lorsqu'on clique sur des formes pendant un diaporama.
Cela correspond un peu à "Agrandir/Rétrécir" personnalisé.

Pour tester l'exemple, il suffit d'activer les macros, lancer le diaporama et cliquer sur les images de la slide.

Pour "adapter le zoom", il faut éditer la méthode ZoomMemShape du module de classe Cls_ShapeSizer.

Pour appliquer le zoom à d'autres images/formes, il suffit d'ajouter une action à la forme :

• sélectionner l'image/la forme ;
• dans l'onglet Insertion, cliquer sur le bouton Action ;
• dans le tab Cliquer avec la souris, sélectionner Exécuter la macro et choisir la macro ZoomShape.

A+

[gdmeunier]

Bonjour à tous,

Ci-joint une autre proposition qui permet de zoomer/dézoomer lorsqu'on clique sur des formes pendant un diaporama.
Cela correspond un peu à "Agrandir/Rétrécir" personnalisé.

Pour tester l'exemple, il suffit d'activer les macros, lancer le diaporama et cliquer sur les images de la slide.

Pour "adapter le zoom", il faut éditer la méthode ZoomMemShape du module de classe Cls_ShapeSizer.

Pour appliquer le zoom à d'autres images/formes, il suffit d'ajouter une action à la forme :

• sélectionner l'image/la forme ;
• dans l'onglet Insertion, cliquer sur le bouton Action ;
• dans le tab Cliquer avec la souris, sélectionner Exécuter la macro et choisir la macro ZoomShape.

A+

mRomain merci,
Je vais tester (et comprendre!) la proposition et je reviens vers vous. GDM84