Oups, pas l'habitude de la liste, je n'ai pas mis la question-réponse au bon
endroit !
Merci Jean-Marie,
Plutôt rapide sur le coup !
J'ai bien exécuté ton code et çà marche parfaitement en mode auteur. Mais
pas en mode diaporama (ce que je voulais !).
J'ai donc modifié ton code (je le mets car çà peut intéresser quelqu'un !)
pour le mode diaporama :
Sub Carre_Vert()
'Numéro de la diapo en cours !
A = 10
'Mon objet rectangle
B = "Rectangle 92"
'Définition de la diapositive
Set Madiapo = ActivePresentation.Slides(A)
'Définition de mon rectangle dans la diapositive
Set Carre = Madiapo.Shapes(B)
With Carre
'Changement visible
.Fill.Visible = msoTrue
.Fill.Solid
'Si mon carré est rouge, alors il devient vert
If .Fill.ForeColor.RGB = RGB(255, 0, 0) Then
.Fill.ForeColor.RGB = RGB(0, 255, 0)
'Sinon, s'il est vert, il devient rouge !
Else
.Fill.ForeColor.RGB = RGB(255, 0, 0)
End If
End With 'Carre
End Sub 'Carre_Vert()
Cà fonctionne très bien en mode diaporama : lorsque le curseur souris
survole le carré vert, il devient rouge et lorsqu'il est rouge il devient
vert !
Bon, c'est un début, MAIS ce que je voulais c'est que le carré revienne à sa
couleur primitive (rouge) lorsque la souris le quitte !
Y-a-t-il moyen de faire çà sans être obligé de créer un objet transparent
sous et autour du carré comportant le code "inverse" !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
jmv
bjr je suis loin d'etre un expert mais il me semble qu'il n'y a pas d'evenement onmouseover comme en langage flash. pose ta question sur le forum excel, il y a beaucoup de vba cordialement jm "Philmo" a écrit dans le message de news: #
Oups, pas l'habitude de la liste, je n'ai pas mis la question-réponse au bon
endroit !
Merci Jean-Marie,
Plutôt rapide sur le coup !
J'ai bien exécuté ton code et çà marche parfaitement en mode auteur. Mais pas en mode diaporama (ce que je voulais !). J'ai donc modifié ton code (je le mets car çà peut intéresser quelqu'un !) pour le mode diaporama :
Sub Carre_Vert() 'Numéro de la diapo en cours ! A = 10 'Mon objet rectangle B = "Rectangle 92" 'Définition de la diapositive Set Madiapo = ActivePresentation.Slides(A) 'Définition de mon rectangle dans la diapositive Set Carre = Madiapo.Shapes(B) With Carre 'Changement visible .Fill.Visible = msoTrue .Fill.Solid 'Si mon carré est rouge, alors il devient vert If .Fill.ForeColor.RGB = RGB(255, 0, 0) Then .Fill.ForeColor.RGB = RGB(0, 255, 0) 'Sinon, s'il est vert, il devient rouge ! Else .Fill.ForeColor.RGB = RGB(255, 0, 0) End If End With 'Carre End Sub 'Carre_Vert()
Cà fonctionne très bien en mode diaporama : lorsque le curseur souris survole le carré vert, il devient rouge et lorsqu'il est rouge il devient vert !
Bon, c'est un début, MAIS ce que je voulais c'est que le carré revienne à sa
couleur primitive (rouge) lorsque la souris le quitte ! Y-a-t-il moyen de faire çà sans être obligé de créer un objet transparent sous et autour du carré comportant le code "inverse" !
Merci et bien cordialement Philippe ^|^
bjr
je suis loin d'etre un expert mais il me semble qu'il n'y a pas d'evenement
onmouseover comme en langage flash.
pose ta question sur le forum excel, il y a beaucoup de vba
cordialement
jm
"Philmo" <phmorizet@wanadoo.fr> a écrit dans le message de news:
#oc7QTR5DHA.1804@TK2MSFTNGP12.phx.gbl...
Oups, pas l'habitude de la liste, je n'ai pas mis la question-réponse au
bon
endroit !
Merci Jean-Marie,
Plutôt rapide sur le coup !
J'ai bien exécuté ton code et çà marche parfaitement en mode auteur. Mais
pas en mode diaporama (ce que je voulais !).
J'ai donc modifié ton code (je le mets car çà peut intéresser quelqu'un !)
pour le mode diaporama :
Sub Carre_Vert()
'Numéro de la diapo en cours !
A = 10
'Mon objet rectangle
B = "Rectangle 92"
'Définition de la diapositive
Set Madiapo = ActivePresentation.Slides(A)
'Définition de mon rectangle dans la diapositive
Set Carre = Madiapo.Shapes(B)
With Carre
'Changement visible
.Fill.Visible = msoTrue
.Fill.Solid
'Si mon carré est rouge, alors il devient vert
If .Fill.ForeColor.RGB = RGB(255, 0, 0) Then
.Fill.ForeColor.RGB = RGB(0, 255, 0)
'Sinon, s'il est vert, il devient rouge !
Else
.Fill.ForeColor.RGB = RGB(255, 0, 0)
End If
End With 'Carre
End Sub 'Carre_Vert()
Cà fonctionne très bien en mode diaporama : lorsque le curseur souris
survole le carré vert, il devient rouge et lorsqu'il est rouge il devient
vert !
Bon, c'est un début, MAIS ce que je voulais c'est que le carré revienne à
sa
couleur primitive (rouge) lorsque la souris le quitte !
Y-a-t-il moyen de faire çà sans être obligé de créer un objet transparent
sous et autour du carré comportant le code "inverse" !
bjr je suis loin d'etre un expert mais il me semble qu'il n'y a pas d'evenement onmouseover comme en langage flash. pose ta question sur le forum excel, il y a beaucoup de vba cordialement jm "Philmo" a écrit dans le message de news: #
Oups, pas l'habitude de la liste, je n'ai pas mis la question-réponse au bon
endroit !
Merci Jean-Marie,
Plutôt rapide sur le coup !
J'ai bien exécuté ton code et çà marche parfaitement en mode auteur. Mais pas en mode diaporama (ce que je voulais !). J'ai donc modifié ton code (je le mets car çà peut intéresser quelqu'un !) pour le mode diaporama :
Sub Carre_Vert() 'Numéro de la diapo en cours ! A = 10 'Mon objet rectangle B = "Rectangle 92" 'Définition de la diapositive Set Madiapo = ActivePresentation.Slides(A) 'Définition de mon rectangle dans la diapositive Set Carre = Madiapo.Shapes(B) With Carre 'Changement visible .Fill.Visible = msoTrue .Fill.Solid 'Si mon carré est rouge, alors il devient vert If .Fill.ForeColor.RGB = RGB(255, 0, 0) Then .Fill.ForeColor.RGB = RGB(0, 255, 0) 'Sinon, s'il est vert, il devient rouge ! Else .Fill.ForeColor.RGB = RGB(255, 0, 0) End If End With 'Carre End Sub 'Carre_Vert()
Cà fonctionne très bien en mode diaporama : lorsque le curseur souris survole le carré vert, il devient rouge et lorsqu'il est rouge il devient vert !
Bon, c'est un début, MAIS ce que je voulais c'est que le carré revienne à sa
couleur primitive (rouge) lorsque la souris le quitte ! Y-a-t-il moyen de faire çà sans être obligé de créer un objet transparent sous et autour du carré comportant le code "inverse" !
Merci et bien cordialement Philippe ^|^
jmv
un truc tout bete et un peu pueril imagine que mouseover n'existe pas par contre mousemove oui tu fais ton image1 sur ton slide puis tu fais 4 images autour transparentes dans lesquelle tu mets ce code la ce sera blanc et noir alternativement je n'arrive pas à ecrire du code directement sur la slide si tu y arrives comment fais tu? sinon tu ecrits le code sur le slide sur l'evènement au chargement cordialement jm Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Image1.BackColor = RGB(0, 0, 0) End Sub
Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Image1.BackColor = RGB(255, 255, 255)
"Philmo" a écrit dans le message de news: #
Oups, pas l'habitude de la liste, je n'ai pas mis la question-réponse au bon
endroit !
Merci Jean-Marie,
Plutôt rapide sur le coup !
J'ai bien exécuté ton code et çà marche parfaitement en mode auteur. Mais pas en mode diaporama (ce que je voulais !). J'ai donc modifié ton code (je le mets car çà peut intéresser quelqu'un !) pour le mode diaporama :
Sub Carre_Vert() 'Numéro de la diapo en cours ! A = 10 'Mon objet rectangle B = "Rectangle 92" 'Définition de la diapositive Set Madiapo = ActivePresentation.Slides(A) 'Définition de mon rectangle dans la diapositive Set Carre = Madiapo.Shapes(B) With Carre 'Changement visible .Fill.Visible = msoTrue .Fill.Solid 'Si mon carré est rouge, alors il devient vert If .Fill.ForeColor.RGB = RGB(255, 0, 0) Then .Fill.ForeColor.RGB = RGB(0, 255, 0) 'Sinon, s'il est vert, il devient rouge ! Else .Fill.ForeColor.RGB = RGB(255, 0, 0) End If End With 'Carre End Sub 'Carre_Vert()
Cà fonctionne très bien en mode diaporama : lorsque le curseur souris survole le carré vert, il devient rouge et lorsqu'il est rouge il devient vert !
Bon, c'est un début, MAIS ce que je voulais c'est que le carré revienne à sa
couleur primitive (rouge) lorsque la souris le quitte ! Y-a-t-il moyen de faire çà sans être obligé de créer un objet transparent sous et autour du carré comportant le code "inverse" !
Merci et bien cordialement Philippe ^|^
un truc tout bete et un peu pueril
imagine que mouseover n'existe pas par contre mousemove oui
tu fais ton image1 sur ton slide
puis tu fais 4 images autour transparentes dans lesquelle tu mets ce code
la ce sera blanc et noir alternativement
je n'arrive pas à ecrire du code directement sur la slide
si tu y arrives comment fais tu?
sinon tu ecrits le code sur le slide sur l'evènement au chargement
cordialement
jm
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Image1.BackColor = RGB(0, 0, 0)
End Sub
Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Image1.BackColor = RGB(255, 255, 255)
"Philmo" <phmorizet@wanadoo.fr> a écrit dans le message de news:
#oc7QTR5DHA.1804@TK2MSFTNGP12.phx.gbl...
Oups, pas l'habitude de la liste, je n'ai pas mis la question-réponse au
bon
endroit !
Merci Jean-Marie,
Plutôt rapide sur le coup !
J'ai bien exécuté ton code et çà marche parfaitement en mode auteur. Mais
pas en mode diaporama (ce que je voulais !).
J'ai donc modifié ton code (je le mets car çà peut intéresser quelqu'un !)
pour le mode diaporama :
Sub Carre_Vert()
'Numéro de la diapo en cours !
A = 10
'Mon objet rectangle
B = "Rectangle 92"
'Définition de la diapositive
Set Madiapo = ActivePresentation.Slides(A)
'Définition de mon rectangle dans la diapositive
Set Carre = Madiapo.Shapes(B)
With Carre
'Changement visible
.Fill.Visible = msoTrue
.Fill.Solid
'Si mon carré est rouge, alors il devient vert
If .Fill.ForeColor.RGB = RGB(255, 0, 0) Then
.Fill.ForeColor.RGB = RGB(0, 255, 0)
'Sinon, s'il est vert, il devient rouge !
Else
.Fill.ForeColor.RGB = RGB(255, 0, 0)
End If
End With 'Carre
End Sub 'Carre_Vert()
Cà fonctionne très bien en mode diaporama : lorsque le curseur souris
survole le carré vert, il devient rouge et lorsqu'il est rouge il devient
vert !
Bon, c'est un début, MAIS ce que je voulais c'est que le carré revienne à
sa
couleur primitive (rouge) lorsque la souris le quitte !
Y-a-t-il moyen de faire çà sans être obligé de créer un objet transparent
sous et autour du carré comportant le code "inverse" !
un truc tout bete et un peu pueril imagine que mouseover n'existe pas par contre mousemove oui tu fais ton image1 sur ton slide puis tu fais 4 images autour transparentes dans lesquelle tu mets ce code la ce sera blanc et noir alternativement je n'arrive pas à ecrire du code directement sur la slide si tu y arrives comment fais tu? sinon tu ecrits le code sur le slide sur l'evènement au chargement cordialement jm Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Image1.BackColor = RGB(0, 0, 0) End Sub
Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Image1.BackColor = RGB(255, 255, 255)
"Philmo" a écrit dans le message de news: #
Oups, pas l'habitude de la liste, je n'ai pas mis la question-réponse au bon
endroit !
Merci Jean-Marie,
Plutôt rapide sur le coup !
J'ai bien exécuté ton code et çà marche parfaitement en mode auteur. Mais pas en mode diaporama (ce que je voulais !). J'ai donc modifié ton code (je le mets car çà peut intéresser quelqu'un !) pour le mode diaporama :
Sub Carre_Vert() 'Numéro de la diapo en cours ! A = 10 'Mon objet rectangle B = "Rectangle 92" 'Définition de la diapositive Set Madiapo = ActivePresentation.Slides(A) 'Définition de mon rectangle dans la diapositive Set Carre = Madiapo.Shapes(B) With Carre 'Changement visible .Fill.Visible = msoTrue .Fill.Solid 'Si mon carré est rouge, alors il devient vert If .Fill.ForeColor.RGB = RGB(255, 0, 0) Then .Fill.ForeColor.RGB = RGB(0, 255, 0) 'Sinon, s'il est vert, il devient rouge ! Else .Fill.ForeColor.RGB = RGB(255, 0, 0) End If End With 'Carre End Sub 'Carre_Vert()
Cà fonctionne très bien en mode diaporama : lorsque le curseur souris survole le carré vert, il devient rouge et lorsqu'il est rouge il devient vert !
Bon, c'est un début, MAIS ce que je voulais c'est que le carré revienne à sa
couleur primitive (rouge) lorsque la souris le quitte ! Y-a-t-il moyen de faire çà sans être obligé de créer un objet transparent sous et autour du carré comportant le code "inverse" !
Merci et bien cordialement Philippe ^|^
Philmo
Merci Jean-Marie,
Tu penses vraiment que VBA PwP va intéréssé le forum VBA Excel ? C'est quoi l'adresse (question bête s'il en est !) ?
Bien cordialement Philippe ^|^
Merci Jean-Marie,
Tu penses vraiment que VBA PwP va intéréssé le forum VBA Excel ?
C'est quoi l'adresse (question bête s'il en est !) ?
Tu penses vraiment que VBA PwP va intéréssé le forum VBA Excel ? C'est quoi l'adresse (question bête s'il en est !) ?
Bien cordialement Philippe ^|^
Philmo
En fait, j'ai un peu plus simple Jean-Marie. Je crées un rectangle transparent 100% sous le carré vert (mais plus grand que lui !) et lorsque je sors de ce carré vert, obligatoirement je passe sur le transparent ! Je crées une macro : Sub Carre_Rouge() (quasiment inverse à la macro Sub Carre_Vert() ) et le tour est joué. Seul hic, exécution des macros est plus lente que sous VB 6. Mais bon ! Par ailleurs MouseMove ne s'applique apparemment pas aux objets PowerPoint ! Quelle galère, c'est nul !
je n'arrive pas à écrire du code directement sur la slide si tu y arrives comment fais tu? Eh bien je crées des macros dans VB Editor puis je sélectionne un objet sur
la slide de PwP puis > paramètres des actions> pointer ou cliquer avec souris et je choisis la macro créée ! Çà marche bien, mais je pense que je ne comprends pas bien ta question, tu dois parfaitement le savoir !
Merci Jean-Marie, tu dois en savoir plus que tu ne le dis -:). La preuve, ton conseil m'a aidé !
Bien cordialement Philippe ^|^
En fait, j'ai un peu plus simple Jean-Marie. Je crées un rectangle
transparent 100% sous le carré vert (mais plus grand que lui !) et lorsque
je sors de ce carré vert, obligatoirement je passe sur le transparent !
Je crées une macro : Sub Carre_Rouge() (quasiment inverse à la macro Sub
Carre_Vert() ) et le tour est joué.
Seul hic, exécution des macros est plus lente que sous VB 6. Mais bon !
Par ailleurs MouseMove ne s'applique apparemment pas aux objets PowerPoint !
Quelle galère, c'est nul !
je n'arrive pas à écrire du code directement sur la slide
si tu y arrives comment fais tu?
Eh bien je crées des macros dans VB Editor puis je sélectionne un objet sur
la slide de PwP puis > paramètres des actions> pointer ou cliquer avec
souris et je choisis la macro créée !
Çà marche bien, mais je pense que je ne comprends pas bien ta question, tu
dois parfaitement le savoir !
Merci Jean-Marie, tu dois en savoir plus que tu ne le dis -:). La preuve,
ton conseil m'a aidé !
En fait, j'ai un peu plus simple Jean-Marie. Je crées un rectangle transparent 100% sous le carré vert (mais plus grand que lui !) et lorsque je sors de ce carré vert, obligatoirement je passe sur le transparent ! Je crées une macro : Sub Carre_Rouge() (quasiment inverse à la macro Sub Carre_Vert() ) et le tour est joué. Seul hic, exécution des macros est plus lente que sous VB 6. Mais bon ! Par ailleurs MouseMove ne s'applique apparemment pas aux objets PowerPoint ! Quelle galère, c'est nul !
je n'arrive pas à écrire du code directement sur la slide si tu y arrives comment fais tu? Eh bien je crées des macros dans VB Editor puis je sélectionne un objet sur
la slide de PwP puis > paramètres des actions> pointer ou cliquer avec souris et je choisis la macro créée ! Çà marche bien, mais je pense que je ne comprends pas bien ta question, tu dois parfaitement le savoir !
Merci Jean-Marie, tu dois en savoir plus que tu ne le dis -:). La preuve, ton conseil m'a aidé !
Bien cordialement Philippe ^|^
Clément Marcotte
Bonjour,
En fait, PPT supporte VBA, sauf que le support des "événements" est très limité.
Il y a quelqu'un qui a fait quelque chose pour améliorer le support des événements dans PowerPoint, mais je n'ai jamais vérifié ce que cela donne en réalité.
http://www.mvps.org/skp/autoevents.htm
Quelques aautres exemples VBA par là:
http://www.mvps.org/skp/vba.htm
"Philmo" a écrit dans le message de news:
Merci Jean-Marie,
Tu penses vraiment que VBA PwP va intéréssé le forum VBA Excel ? C'est quoi l'adresse (question bête s'il en est !) ?
Bien cordialement Philippe ^|^
Bonjour,
En fait, PPT supporte VBA, sauf que le support des "événements" est
très limité.
Il y a quelqu'un qui a fait quelque chose pour améliorer le support
des événements dans PowerPoint, mais je n'ai jamais vérifié ce que
cela donne en réalité.
http://www.mvps.org/skp/autoevents.htm
Quelques aautres exemples VBA par là:
http://www.mvps.org/skp/vba.htm
"Philmo" <phmorizet@wanadoo.fr> a écrit dans le message de
news:ulxhnMS5DHA.1636@TK2MSFTNGP12.phx.gbl...
Merci Jean-Marie,
Tu penses vraiment que VBA PwP va intéréssé le forum VBA Excel ?
C'est quoi l'adresse (question bête s'il en est !) ?
En fait, PPT supporte VBA, sauf que le support des "événements" est très limité.
Il y a quelqu'un qui a fait quelque chose pour améliorer le support des événements dans PowerPoint, mais je n'ai jamais vérifié ce que cela donne en réalité.
http://www.mvps.org/skp/autoevents.htm
Quelques aautres exemples VBA par là:
http://www.mvps.org/skp/vba.htm
"Philmo" a écrit dans le message de news:
Merci Jean-Marie,
Tu penses vraiment que VBA PwP va intéréssé le forum VBA Excel ? C'est quoi l'adresse (question bête s'il en est !) ?
Bien cordialement Philippe ^|^
Philmo
Bonjour Clément,
Merci pour ces précieuses info. Je vais fouiner et vous tiendrais au courant !
Bien cordialement Philippe ^|^
Bonjour Clément,
Merci pour ces précieuses info.
Je vais fouiner et vous tiendrais au courant !
Merci pour ces précieuses info. Je vais fouiner et vous tiendrais au courant !
Bien cordialement Philippe ^|^
jmv
Bjr
je n'arrive pas à écrire du code directement sur la slide si tu y arrives comment fais tu? en fait je voulais dire que tu ne peux pas ecrire directement du code sur la
slide comme tu l'ecrit sur un userform. il n'y a pas d'evenement possibles a l'apparition du la diapo comme initialize etc c super de bosser comme ca ensemble cordialement jm
"Philmo" a écrit dans le message de news: #
En fait, j'ai un peu plus simple Jean-Marie. Je crées un rectangle transparent 100% sous le carré vert (mais plus grand que lui !) et lorsque je sors de ce carré vert, obligatoirement je passe sur le transparent ! Je crées une macro : Sub Carre_Rouge() (quasiment inverse à la macro Sub Carre_Vert() ) et le tour est joué. Seul hic, exécution des macros est plus lente que sous VB 6. Mais bon ! Par ailleurs MouseMove ne s'applique apparemment pas aux objets PowerPoint !
Quelle galère, c'est nul !
je n'arrive pas à écrire du code directement sur la slide si tu y arrives comment fais tu? Eh bien je crées des macros dans VB Editor puis je sélectionne un objet
sur
la slide de PwP puis > paramètres des actions> pointer ou cliquer avec souris et je choisis la macro créée ! Çà marche bien, mais je pense que je ne comprends pas bien ta question, tu dois parfaitement le savoir !
Merci Jean-Marie, tu dois en savoir plus que tu ne le dis -:). La preuve, ton conseil m'a aidé !
Bien cordialement Philippe ^|^
Bjr
je n'arrive pas à écrire du code directement sur la slide
si tu y arrives comment fais tu?
en fait je voulais dire que tu ne peux pas ecrire directement du code sur la
slide comme tu l'ecrit sur un userform.
il n'y a pas d'evenement possibles a l'apparition du la diapo comme
initialize etc
c super de bosser comme ca ensemble
cordialement
jm
"Philmo" <phmorizet@wanadoo.fr> a écrit dans le message de news:
#XpvoVS5DHA.1292@TK2MSFTNGP11.phx.gbl...
En fait, j'ai un peu plus simple Jean-Marie. Je crées un rectangle
transparent 100% sous le carré vert (mais plus grand que lui !) et lorsque
je sors de ce carré vert, obligatoirement je passe sur le transparent !
Je crées une macro : Sub Carre_Rouge() (quasiment inverse à la macro Sub
Carre_Vert() ) et le tour est joué.
Seul hic, exécution des macros est plus lente que sous VB 6. Mais bon !
Par ailleurs MouseMove ne s'applique apparemment pas aux objets PowerPoint
!
Quelle galère, c'est nul !
je n'arrive pas à écrire du code directement sur la slide
si tu y arrives comment fais tu?
Eh bien je crées des macros dans VB Editor puis je sélectionne un objet
sur
la slide de PwP puis > paramètres des actions> pointer ou cliquer avec
souris et je choisis la macro créée !
Çà marche bien, mais je pense que je ne comprends pas bien ta question, tu
dois parfaitement le savoir !
Merci Jean-Marie, tu dois en savoir plus que tu ne le dis -:). La preuve,
ton conseil m'a aidé !
je n'arrive pas à écrire du code directement sur la slide si tu y arrives comment fais tu? en fait je voulais dire que tu ne peux pas ecrire directement du code sur la
slide comme tu l'ecrit sur un userform. il n'y a pas d'evenement possibles a l'apparition du la diapo comme initialize etc c super de bosser comme ca ensemble cordialement jm
"Philmo" a écrit dans le message de news: #
En fait, j'ai un peu plus simple Jean-Marie. Je crées un rectangle transparent 100% sous le carré vert (mais plus grand que lui !) et lorsque je sors de ce carré vert, obligatoirement je passe sur le transparent ! Je crées une macro : Sub Carre_Rouge() (quasiment inverse à la macro Sub Carre_Vert() ) et le tour est joué. Seul hic, exécution des macros est plus lente que sous VB 6. Mais bon ! Par ailleurs MouseMove ne s'applique apparemment pas aux objets PowerPoint !
Quelle galère, c'est nul !
je n'arrive pas à écrire du code directement sur la slide si tu y arrives comment fais tu? Eh bien je crées des macros dans VB Editor puis je sélectionne un objet
sur
la slide de PwP puis > paramètres des actions> pointer ou cliquer avec souris et je choisis la macro créée ! Çà marche bien, mais je pense que je ne comprends pas bien ta question, tu dois parfaitement le savoir !
Merci Jean-Marie, tu dois en savoir plus que tu ne le dis -:). La preuve, ton conseil m'a aidé !
