Shape affiché toujours au premier plan

Didier B. · 21/04/2008, 10h28

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 :

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 · 21/04/2008, 12h11

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. · 23/04/2008, 09h48

Bonjour,

merci pour la réponse.

Philippe JOCHMANS · 23/04/2008, 11h42

Citation:

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. · 26/04/2008, 23h05

Bonsoir,

problème résolu.

Merci bonne soirée

21/04/2008, 10h28	#1 (permalink)
Didier B. Invité de passage Date d'inscription: avril 2008 Messages: 3	Shape affiché toujours au premier plan 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 : 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 Dernière modification par Philippe JOCHMANS ; 21/04/2008 à 12h07 Motif: Ajout des balises codes (sélection du code + #), ce n'est pas facultatif

21/04/2008, 12h11	#2 (permalink)
Philippe JOCHMANS Responsable PowerPoint Date d'inscription: mai 2005 Localisation: Loir et Cher et Touraine Âge: 40 Messages: 9 965	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 __________________ En cas de questions techniques par MP ou message visiteur Office : :Les Cours, Les FAQs VB : Les Cours, Les FAQs Mes articles : ici Me connaitre

23/04/2008, 09h48	#3 (permalink)
Didier B. Invité de passage Date d'inscription: avril 2008 Messages: 3	Bonjour, merci pour la réponse.

26/04/2008, 23h05	#5 (permalink)
Didier B. Invité de passage Date d'inscription: avril 2008 Messages: 3	Bonsoir, problème résolu. Merci bonne soirée

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Powerpoint > VBA PowerPoint
Shape affiché toujours au premier plan

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email