Shape affiché toujours au premier plan [Résolu]

[Didier B.]

Bonjour,

je découvre VBA depuis peu. Sur une présentation, je dois afficher plusieurs shapes à la suite. J'aimerai que le shape afficher soit toujours au premier plan suite à quelques problèmes de transparence. J'utilise les lignes de code suivante:

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
27
Public Sub Affichephotozsec02()
 
    If Slide18.Shapes("zsec02").Visible Then
        Effacementphotos
    Else
        Effacementphotos
        Slide18.Shapes("zsec02").Visible = msoTrue
    End If
 
End Sub
Public Sub Affichephotozsec03()
 
    If Slide18.Shapes("zsec03").Visible Then
        Effacementphotos
    Else
        Effacementphotos
        Slide18.Shapes("zsec03").Visible = msoTrue
    End If
 
End Sub
 
Public Sub Effacementphotos()
 
    Slide18.Shapes("zsec02").Visible = msoFalse
    Slide18.Shapes("zsec03").Visible = msoFalse
 
End Sub

J'espère que j'ai été assez clair dans ma question.

Cordialement

[Philippe JOCHMANS]

Bonjour

Dans un premier temps regarde du coté de la méthode ZOrder de l'objet Shape pour mettre un élément au premier plan.

Starec

[Didier B.]

Bonjour,

merci pour la réponse.

[Philippe JOCHMANS]

Envoyé par Didier B.

Bonjour,

merci pour la réponse.

Est-ce que cela résout ta demande ? Si oui, un petit clique sur le en bas de la discussion.

Starec

[Didier B.]

Bonsoir,

problème résolu.

Merci bonne soirée