Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau membre du Club
    Image présente sur masque de diapositive - Comment l'image peut être copiable sur diapositive
    Bonjour le forum

    Je cherche à améliorer un support powerpoint de suivi de projets où il y a 1 diapositive pour chacun des projets suivis.

    J'ai crée un masque de diapositive sur lequel je présente une échelle classique de "météo" avec soleil, nuage, pluie, ...
    Sur ce masque de diapositive, j'ai aussi inséré un espace réservé à une image pour pouvoir copier l'élément qui correspondra à la situation du projet supervisé (par exemple le soleil pour le projet 1, la pluie pour le projet 2, ...).

    Pour chaque diapositive, je voudrais pouvoir copier l'élément qui décrit la situation (le soleil ou le nuage ...) à partir de l'échelle présente la diapositive héritée de l'échelle présente sur le masque de diapositive et la coller dans l'espace réservé.

    Mais je ne peux pas copier l'élément depuis la diapositive (je ne peux le copier que dans le masque de diapositive mais ce n'est pas très pratique).
    Comment rendre une image du masque de diapositive "copiable" dans l'affichage diapositive?

    Ou comment faciliter ce copier / coller d'image par une autre méthode?

    Merci d'avance

    Alex

  2. #2
    Expert éminent sénior
    Citation Envoyé par Alexandre_P Voir le message

    Bonjour,

    Soient 4 shapes superposées représentant chacune les temps : ensoleillé, variable, nuageux, pluvieux (sur chaque diapo).
    Soient 4 boutons dans la barre d'accès rapide associées à des macros mettant au premier plan une des shapes.

    Les réglages se font hors diaporama.



    Les macros sont de ce type :
    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
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
     
     
    Sub ShapeSoleil()
     
    Dim I As Integer
     
        With ActivePresentation.Windows(1).View.Slide
             For I = 1 To .Shapes.Count
                 If InStr(1, .Shapes(I).Name, "Météo 1", vbTextCompare) > 0 Then
                    .Shapes(I).ZOrder msoBringToFront
                    Exit Sub
                 End If
             Next I
        End With
     
    End Sub
     
     
     
    Sub ShapeVariable()
     
    Dim I As Integer
     
        With ActivePresentation.Windows(1).View.Slide
             For I = 1 To .Shapes.Count
                 If InStr(1, .Shapes(I).Name, "Météo 2", vbTextCompare) > 0 Then
                    .Shapes(I).ZOrder msoBringToFront
                    Exit Sub
                 End If
             Next I
        End With
     
    End Sub
     
     
     
    Sub ShapePluvieux()
     
    Dim I As Integer
     
        With ActivePresentation.Windows(1).View.Slide
             For I = 1 To .Shapes.Count
                 If InStr(1, .Shapes(I).Name, "Météo 3", vbTextCompare) > 0 Then
                    .Shapes(I).ZOrder msoBringToFront
                    Exit Sub
                 End If
             Next I
        End With
     
    End Sub
     
     
    Sub ShapeNuageux()
     
    Dim I As Integer
     
        With ActivePresentation.Windows(1).View.Slide
             For I = 1 To .Shapes.Count
                 If InStr(1, .Shapes(I).Name, "Météo 4", vbTextCompare) > 0 Then
                    .Shapes(I).ZOrder msoBringToFront
                    Exit Sub
                 End If
             Next I
        End With
     
    End Sub



    Pour créer les boutons dans la barre d'accès rapide :

    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter