FAQ PowerPointConsultez toutes les FAQ

Nombre d'auteurs : 20, nombre de questions : 150, dernière mise à jour : 30 mars 2017 

 
OuvrirSommaireMacros, VBA et fonctions avancéesActions
vba
Sélectionnez

Sub OnMouveMouse()
    With ActivePresentation.Slides(1) _
        .Shapes(3).ActionSettings(ppMouseOver)
            .Action = ppActionRunMacro
            .Run = "NomMacroDeclenchee"
            .AnimateAction = True
    End With
End Sub
Créé 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 Sub
Créé 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 Sub

Il 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.Hide
Créé 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
  

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2009 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.