FAQ PowerPoint
FAQ PowerPointConsultez toutes les FAQ
Nombre d'auteurs : 20, nombre de questions : 150, dernière mise à jour : 10 juillet 2021
Sommaire→Macros, VBA et fonctions avancées→Actions- Comment associer une macro à l'évènement "Déplacement de la souris" sur un Shape ?
- Comment associer une macro à l'évènement "Clique de la souris" sur un Shape ?
- Comment connaitre le nom de la forme sur laquelle on a cliqué ?
- Comment quitter PowerPoint avec VBA ?
- Quel code VBA dois-je appliquer à un bouton pour fermer/quitter un diaporama ?
vba
Sélectionnez
Sub OnMouveMouse()
With ActivePresentation.Slides(1) _
.Shapes(3).ActionSettings(ppMouseOver)
.Action = ppActionRunMacro
.Run = "NomMacroDeclenchee"
.AnimateAction = True
End With
End SubCréé le 4 octobre 2007 par SilkyRoad
vba
Sélectionnez
Sub OnClickMouse()
With ActivePresentation.Slides(1) _
.Shapes(3).ActionSettings(ppMouseClick)
.Action = ppActionRunMacro
.Run = "NomMacroDeclenchee"
.AnimateAction = True
End With
End SubCréé le 4 août 2009 par Philippe JOCHMANS
Il est possible de connaitre le nom de la forme sur laquelle on a cliqué, ce qui peut être utile pour un programme générique.
Le code suivant vous permet d'afficher le nom de la forme sur laquelle on a cliqué.
VBA
Sélectionnez
Public Sub NameForm(shpSelect As Shape)
MsgBox shpSelect.Name
End SubIl suffit de sélectionner cette routine comme Action sur le clique de la forme (dont on passe en paramètre l'objet) pour avoir son nom.
Créé le 1er août 2009 par Philippe JOCHMANS
Voici le code pour envoyer la commande Alt + F4:
vba
Sélectionnez
SendKeys "%{F4}"
pause = 0.25
start = Timer
Do While Timer < start + pause
DoEvents
Loop
SendKeys "{NumLock}"
GenerationSite.HideCréé le 9 novembre 2007 par bidou
vba
Sélectionnez
Private Sub CommandButton1_Click()
ActivePresentation.Close
End Sub
Par ailleurs il n'est pas nécessaire d'utiliser la méthode Click().
Je proposerais de positionner un bouton standard et d'associer une macro simple à un bouton.
Créé le 31 octobre 2007 par ouisansdoute