Discussion :

[seb_de_quimper]

Bonjour,
Je souhaite, en mode diapo, creer une macro qui lors du pointage de la souris sur un des 6 rectangles de la diapo me passe les 5 autres rectagles en mode invisible.
J'ai commencé à faire une macro, l'affecter à un rectangle lorsque l'on execute l'action pointer, mais pour le code j'ai essayé pour rendre invisible un rectangle :

Code :

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

1
2
 
ActivePresentation.SlideRange.Shapes("Rectangle X").Visible = False

ou

Code :

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

1
2
 
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Visible = False

sans résultats
Quelqu'un a t'il une idée ?
Merci d'avance

[ouskel'n'or]

Déjà, tu peux jeter un oeil ici, SilkyRoad fournit pleins d'explication utiles...

Edit
D'après ce que j'ai lu, il "semblerait" que dois désigner la diapo (slide)

[seb_de_quimper]

En suivant tes conseils j'ai affecté la macro suivante au pontage de la souris sur rectangle 1 mais sans résultats !!!

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro6()
'
' Macro enregistrée le 13/03/2007 par sbailliet
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes("Rectangle 4").Visible = False
myDocument.Shapes("Rectangle 5").Visible = False
myDocument.Shapes("Rectangle 6").Visible = False
 
  End Sub

[maxime115]

Essaye de faire un débogage en utilisant la touche F8 dans ta macro.
As-tu un message d'erreur?
Si oui il est fort probable que ce soit les noms de tes objets qui ne soient pas bons. essaye de mettre un numéro à la place de "rectangle X" dans ton code

Ce numéro correspond a la position de ton rectangle sur la dipositive. Si il est en arrièere plan, ce sera le numéro 1. Celui-ci correspond donc au titre de ta diapo.
Pour connaitre la hierarchie sur ta diapo, tu peux aller ajouter à tes boutons
le bouton "Séléctionner plusieurs objets". De mémoire, pour l'obtenir tu dois faire dans ton logiciel PPT un clic droit sur une barre de boutons (où tu as pâr exemple, Ouvrir, Enregistrer...") puis faire personaliser, aller de le 2eme onglet et d'aller,dans la premiere listbox, dans format, et de faire glisser ce bouton de la seconde listbox jusqu'à une barre de boutons sur ton PPT.
Ensuite tu selectionne un rectangle sur ta diapositive, et tu clic sur "Séléctionner plusieurs objets",une fenetre s'affiche, et dans la liste, tu auras un objet de coché, celui-ci correspond à ton rectangle. Tu n'as plus qu'à compter sa position par rapport à la première. Et d'entrer ce nombre à la place du X dans le code ci dessous.
J'espere avoir été clair^^
(le NUM correspond au numéro de ta diapositive)

Code :

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

Activepresentation.slides(NUM).shapes(X).visible = msofalse