Bonjour à tous,
je voudrais mettre un bouton de commande et que celui s'écarte dès que l'on essaie de cliquer dessus.
J'arrive à le faire sur excel avec le code suivant :
Mais si je fais la même chose avec PPT, j'ai un nouveau bouton qui apparait aléatoirement alors que l'original reste et que quand la souris est sur ce dernier.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CommandButton1.Top = Int((300 * Rnd)) CommandButton1.Left = Int((300 * Rnd)) End Sub
Merci d'avance pour votre aide.
Partager