Bonsoir
Plusieurs questions ces temps-ci tournaient autour des événements en
particulier comment lancer un traitement vba lors de l'affichage d'une
diapo.
Voici un code minimum :
Faire une module de classe (insertion Module Classe) que j'ai nommé
ClasseEv1
et y mettre le code à adapter bien sûr.
--------------------
Option Explicit
Public WithEvents App As Application
Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
Select Case Wn.View.CurrentShowPosition
Case 1
' Traitement spécifique pour la diapo 1
MsgBox "Affichage de la diapo 1"
Case 2
' Traitement spécifique pour la diapo 2
MsgBox "Affichage de la diapo 2"
Case 3
' Traitement spécifique pour la diapo 3
MsgBox "Affichage de la diapo 3"
Case Else
' Traitement pour les autres diapos
MsgBox "Autre diapositive"
End Select
End Sub
-------------------
Faire un module et y mettre le code suivant :
-----------------------------
Option Explicit
Public UnObjet As New ClasseEv1
Sub Auto_Open()
Set UnObjet.App = Application
End Sub
-------------------------
Comme l'a fait remarquer Clément les macros Auto_Open ne marchent qu'en
modules complémentaires, c'est assez nul mais faut faire avec.
Donc on la déclenche
soit en cliquant sur un objet (Diaporama paramètre des actions)
soit à la main par un bouton
Soit par macros complémentaires.
Pour mettre ces macros en complémentaires il faut, après avoir fait les
manips décrites, faire enregistrer sous... macros complémentaires.
Ensuite on ouvre sa présentation, on appelle les macros complémentaires
Outils Macros complémentaires etc.
Quand on lance le diaporama la macro App_SlideShowNextSlide s'exécute à
chaque changement de diapo.
Rudimentaire, mais ça marche.
Il y a plein de choses intéressantes à faire, mais toute la littérature
est en anglais.
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
Geo
Re Pour dire si les macros Auto_Open et Auto_Close de PowerPoint sont nulles, elles sont l'équivalent de AutoExec et AutoExit de Word et non AutoOpen et AutoClose comme un individu normalement constitué aurait pu le penser.
--
A+
Re
Pour dire si les macros Auto_Open et Auto_Close de PowerPoint sont nulles,
elles sont l'équivalent de AutoExec et AutoExit de Word
et non AutoOpen et AutoClose comme un individu normalement constitué aurait
pu le penser.
Re Pour dire si les macros Auto_Open et Auto_Close de PowerPoint sont nulles, elles sont l'équivalent de AutoExec et AutoExit de Word et non AutoOpen et AutoClose comme un individu normalement constitué aurait pu le penser.
--
A+
Jean-Pierre FORESTIER
Salut GEO Ce serait intéressant, avec toute l'expérience "macro" que tu as, de faire un listing accessible, des macros que tu pêches par ci par là ou celles que tu crées, en indiquant pour chacune, avec précision, ce qu'elles permettent de faire (avec des exemples concrets) ; une sorte de FAQ à macros pour PPT.
-- Jean-Pierre FORESTIER Microsoft MVP PowerPoint Auteur de PowerPoint 2002 chez Micro Application "Geo" a écrit dans le message news:
Bonsoir Plusieurs questions ces temps-ci tournaient autour des événements en particulier comment lancer un traitement vba lors de l'affichage d'une diapo. Voici un code minimum : Faire une module de classe (insertion Module Classe) que j'ai nommé ClasseEv1 et y mettre le code à adapter bien sûr. -------------------- Option Explicit Public WithEvents App As Application Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
Select Case Wn.View.CurrentShowPosition Case 1 ' Traitement spécifique pour la diapo 1 MsgBox "Affichage de la diapo 1" Case 2 ' Traitement spécifique pour la diapo 2 MsgBox "Affichage de la diapo 2" Case 3 ' Traitement spécifique pour la diapo 3 MsgBox "Affichage de la diapo 3" Case Else ' Traitement pour les autres diapos MsgBox "Autre diapositive" End Select
End Sub ------------------- Faire un module et y mettre le code suivant : ----------------------------- Option Explicit Public UnObjet As New ClasseEv1 Sub Auto_Open() Set UnObjet.App = Application End Sub ------------------------- Comme l'a fait remarquer Clément les macros Auto_Open ne marchent qu'en modules complémentaires, c'est assez nul mais faut faire avec. Donc on la déclenche soit en cliquant sur un objet (Diaporama paramètre des actions) soit à la main par un bouton Soit par macros complémentaires. Pour mettre ces macros en complémentaires il faut, après avoir fait les manips décrites, faire enregistrer sous... macros complémentaires. Ensuite on ouvre sa présentation, on appelle les macros complémentaires Outils Macros complémentaires etc. Quand on lance le diaporama la macro App_SlideShowNextSlide s'exécute à chaque changement de diapo. Rudimentaire, mais ça marche. Il y a plein de choses intéressantes à faire, mais toute la littérature est en anglais.
--
A+
Salut GEO
Ce serait intéressant, avec toute l'expérience "macro" que tu as, de faire
un listing accessible, des macros que tu pêches par ci par là ou celles que
tu crées, en indiquant pour chacune, avec précision, ce qu'elles permettent
de faire (avec des exemples concrets) ; une sorte de FAQ à macros pour PPT.
--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"Geo" <Geo@sans.pub> a écrit dans le message news:
OMc2VWElEHA.3612@TK2MSFTNGP12.phx.gbl...
Bonsoir
Plusieurs questions ces temps-ci tournaient autour des événements en
particulier comment lancer un traitement vba lors de l'affichage d'une
diapo.
Voici un code minimum :
Faire une module de classe (insertion Module Classe) que j'ai nommé
ClasseEv1
et y mettre le code à adapter bien sûr.
--------------------
Option Explicit
Public WithEvents App As Application
Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
Select Case Wn.View.CurrentShowPosition
Case 1
' Traitement spécifique pour la diapo 1
MsgBox "Affichage de la diapo 1"
Case 2
' Traitement spécifique pour la diapo 2
MsgBox "Affichage de la diapo 2"
Case 3
' Traitement spécifique pour la diapo 3
MsgBox "Affichage de la diapo 3"
Case Else
' Traitement pour les autres diapos
MsgBox "Autre diapositive"
End Select
End Sub
-------------------
Faire un module et y mettre le code suivant :
-----------------------------
Option Explicit
Public UnObjet As New ClasseEv1
Sub Auto_Open()
Set UnObjet.App = Application
End Sub
-------------------------
Comme l'a fait remarquer Clément les macros Auto_Open ne marchent qu'en
modules complémentaires, c'est assez nul mais faut faire avec.
Donc on la déclenche
soit en cliquant sur un objet (Diaporama paramètre des actions)
soit à la main par un bouton
Soit par macros complémentaires.
Pour mettre ces macros en complémentaires il faut, après avoir fait les
manips décrites, faire enregistrer sous... macros complémentaires.
Ensuite on ouvre sa présentation, on appelle les macros complémentaires
Outils Macros complémentaires etc.
Quand on lance le diaporama la macro App_SlideShowNextSlide s'exécute à
chaque changement de diapo.
Rudimentaire, mais ça marche.
Il y a plein de choses intéressantes à faire, mais toute la littérature
est en anglais.
Salut GEO Ce serait intéressant, avec toute l'expérience "macro" que tu as, de faire un listing accessible, des macros que tu pêches par ci par là ou celles que tu crées, en indiquant pour chacune, avec précision, ce qu'elles permettent de faire (avec des exemples concrets) ; une sorte de FAQ à macros pour PPT.
-- Jean-Pierre FORESTIER Microsoft MVP PowerPoint Auteur de PowerPoint 2002 chez Micro Application "Geo" a écrit dans le message news:
Bonsoir Plusieurs questions ces temps-ci tournaient autour des événements en particulier comment lancer un traitement vba lors de l'affichage d'une diapo. Voici un code minimum : Faire une module de classe (insertion Module Classe) que j'ai nommé ClasseEv1 et y mettre le code à adapter bien sûr. -------------------- Option Explicit Public WithEvents App As Application Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
Select Case Wn.View.CurrentShowPosition Case 1 ' Traitement spécifique pour la diapo 1 MsgBox "Affichage de la diapo 1" Case 2 ' Traitement spécifique pour la diapo 2 MsgBox "Affichage de la diapo 2" Case 3 ' Traitement spécifique pour la diapo 3 MsgBox "Affichage de la diapo 3" Case Else ' Traitement pour les autres diapos MsgBox "Autre diapositive" End Select
End Sub ------------------- Faire un module et y mettre le code suivant : ----------------------------- Option Explicit Public UnObjet As New ClasseEv1 Sub Auto_Open() Set UnObjet.App = Application End Sub ------------------------- Comme l'a fait remarquer Clément les macros Auto_Open ne marchent qu'en modules complémentaires, c'est assez nul mais faut faire avec. Donc on la déclenche soit en cliquant sur un objet (Diaporama paramètre des actions) soit à la main par un bouton Soit par macros complémentaires. Pour mettre ces macros en complémentaires il faut, après avoir fait les manips décrites, faire enregistrer sous... macros complémentaires. Ensuite on ouvre sa présentation, on appelle les macros complémentaires Outils Macros complémentaires etc. Quand on lance le diaporama la macro App_SlideShowNextSlide s'exécute à chaque changement de diapo. Rudimentaire, mais ça marche. Il y a plein de choses intéressantes à faire, mais toute la littérature est en anglais.
--
A+
geo
Bonjour Jean-Pierre
C'est une bonne idée, même si mon expérience est maigre en powerpoint. Le vba est probablement moins utilisé en powerpoint que word ou Excel et moins accessible, me semble-t-il. Tu as raison je vais déja essayer de regrouper ce qui a été fait et voir si Marina peut trouver une petite place dans la faq Word.
Bonne journée
Bonjour Jean-Pierre
C'est une bonne idée, même si mon expérience est maigre en
powerpoint.
Le vba est probablement moins utilisé en powerpoint que
word ou Excel et moins accessible, me semble-t-il.
Tu as raison je vais déja essayer de regrouper ce qui a
été fait et voir si Marina peut trouver une petite place
dans la faq Word.
C'est une bonne idée, même si mon expérience est maigre en powerpoint. Le vba est probablement moins utilisé en powerpoint que word ou Excel et moins accessible, me semble-t-il. Tu as raison je vais déja essayer de regrouper ce qui a été fait et voir si Marina peut trouver une petite place dans la faq Word.
Bonne journée
Jean-Pierre FORESTIER
Pour compléter cette liste, il y en a pas mal sur http://www.rdpslides.com/pptfaq/FAQ00548.htm (Brian Reilly) et sur (Shyam Pillai) http://www.mvps.org/skp/ Je pourrais t'aider à les traduire (ce que j'ai commencé)
-- Jean-Pierre FORESTIER Microsoft MVP PowerPoint Auteur de PowerPoint 2002 chez Micro Application "geo" a écrit dans le message news: 719401c494ac$54905f50$ Bonjour Jean-Pierre
C'est une bonne idée, même si mon expérience est maigre en powerpoint. Le vba est probablement moins utilisé en powerpoint que word ou Excel et moins accessible, me semble-t-il. Tu as raison je vais déja essayer de regrouper ce qui a été fait et voir si Marina peut trouver une petite place dans la faq Word.
Bonne journée
Pour compléter cette liste, il y en a pas mal sur
http://www.rdpslides.com/pptfaq/FAQ00548.htm (Brian Reilly)
et sur (Shyam Pillai)
http://www.mvps.org/skp/
Je pourrais t'aider à les traduire (ce que j'ai commencé)
--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"geo" <anonymous@discussions.microsoft.com> a écrit dans le message news:
719401c494ac$54905f50$a601280a@phx.gbl...
Bonjour Jean-Pierre
C'est une bonne idée, même si mon expérience est maigre en
powerpoint.
Le vba est probablement moins utilisé en powerpoint que
word ou Excel et moins accessible, me semble-t-il.
Tu as raison je vais déja essayer de regrouper ce qui a
été fait et voir si Marina peut trouver une petite place
dans la faq Word.
Pour compléter cette liste, il y en a pas mal sur http://www.rdpslides.com/pptfaq/FAQ00548.htm (Brian Reilly) et sur (Shyam Pillai) http://www.mvps.org/skp/ Je pourrais t'aider à les traduire (ce que j'ai commencé)
-- Jean-Pierre FORESTIER Microsoft MVP PowerPoint Auteur de PowerPoint 2002 chez Micro Application "geo" a écrit dans le message news: 719401c494ac$54905f50$ Bonjour Jean-Pierre
C'est une bonne idée, même si mon expérience est maigre en powerpoint. Le vba est probablement moins utilisé en powerpoint que word ou Excel et moins accessible, me semble-t-il. Tu as raison je vais déja essayer de regrouper ce qui a été fait et voir si Marina peut trouver une petite place dans la faq Word.
Bonne journée
Geo
Bonjour Jean-Pierre FORESTIER
Pour compléter cette liste, il y en a pas mal sur http://www.rdpslides.com/pptfaq/FAQ00548.htm (Brian Reilly) et sur (Shyam Pillai) http://www.mvps.org/skp/ Je pourrais t'aider à les traduire (ce que j'ai commencé)
effectivement ce sont de bonnes sources et il y a pas mal de choses accessibles. Les royalties pour l'original, c'est en euros ou en dollars ? :-)
--
A+
Bonjour Jean-Pierre FORESTIER
Pour compléter cette liste, il y en a pas mal sur
http://www.rdpslides.com/pptfaq/FAQ00548.htm (Brian Reilly)
et sur (Shyam Pillai)
http://www.mvps.org/skp/
Je pourrais t'aider à les traduire (ce que j'ai commencé)
effectivement ce sont de bonnes sources et il y a pas mal de choses
accessibles.
Les royalties pour l'original, c'est en euros ou en dollars ? :-)
Pour compléter cette liste, il y en a pas mal sur http://www.rdpslides.com/pptfaq/FAQ00548.htm (Brian Reilly) et sur (Shyam Pillai) http://www.mvps.org/skp/ Je pourrais t'aider à les traduire (ce que j'ai commencé)
effectivement ce sont de bonnes sources et il y a pas mal de choses accessibles. Les royalties pour l'original, c'est en euros ou en dollars ? :-)
--
A+
Jean-Pierre FORESTIER
Ca doit sans doute être en sourires !
-- Jean-Pierre FORESTIER Microsoft MVP PowerPoint Auteur de PowerPoint 2002 chez Micro Application "Geo" a écrit dans le message news:
Bonjour Jean-Pierre FORESTIER
Pour compléter cette liste, il y en a pas mal sur http://www.rdpslides.com/pptfaq/FAQ00548.htm (Brian Reilly) et sur (Shyam Pillai) http://www.mvps.org/skp/ Je pourrais t'aider à les traduire (ce que j'ai commencé)
effectivement ce sont de bonnes sources et il y a pas mal de choses accessibles. Les royalties pour l'original, c'est en euros ou en dollars ? :-)
--
A+
Ca doit sans doute être en sourires !
--
Jean-Pierre FORESTIER Microsoft MVP PowerPoint
Auteur de PowerPoint 2002 chez Micro Application
"Geo" <Geo@sans.pub> a écrit dans le message news:
O5KWcKQlEHA.3772@TK2MSFTNGP14.phx.gbl...
Bonjour Jean-Pierre FORESTIER
Pour compléter cette liste, il y en a pas mal sur
http://www.rdpslides.com/pptfaq/FAQ00548.htm (Brian Reilly)
et sur (Shyam Pillai)
http://www.mvps.org/skp/
Je pourrais t'aider à les traduire (ce que j'ai commencé)
effectivement ce sont de bonnes sources et il y a pas mal de choses
accessibles.
Les royalties pour l'original, c'est en euros ou en dollars ? :-)
-- Jean-Pierre FORESTIER Microsoft MVP PowerPoint Auteur de PowerPoint 2002 chez Micro Application "Geo" a écrit dans le message news:
Bonjour Jean-Pierre FORESTIER
Pour compléter cette liste, il y en a pas mal sur http://www.rdpslides.com/pptfaq/FAQ00548.htm (Brian Reilly) et sur (Shyam Pillai) http://www.mvps.org/skp/ Je pourrais t'aider à les traduire (ce que j'ai commencé)
effectivement ce sont de bonnes sources et il y a pas mal de choses accessibles. Les royalties pour l'original, c'est en euros ou en dollars ? :-)
