Discussion :

[elbiloute]

Salut,

Voici ce que je souhaiterai faire :

Apres avoir créé une shape dans un slide (ca j'y arrive), je souhaiterai que si je clic une fois dessus cela exécute du code (la macro "bouton_S2"). Si on peut définir un autre code pour un double clic ca pourrait gérer aussi.

voici comment je créer ma shape (ca ca marche) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub bouton_S1(control As IRibbonControl)
intSldNumber = Application.ActiveWindow.View.Slide.SlideIndex
Set slideactif = ActiveWindow.Presentation.Slides(intSldNumber)
With slideactif.shapes.AddShape(Type:=msoShapeRectangle, Top:=150, Left:=70, Width:=72, Height:=72)
    .Name = "carre bleu"
    .Fill.ForeColor.RGB = RGB(54, 107, 126)
    .Line.ForeColor.RGB = RGB(54, 107, 126)
End With
End Sub

Je pense que la commande a utiliser doit être un truc dans le genre (marche pas):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  ActivePresentation.Slides(intSldNumber).shapes("carre bleu").ActionSettings (ppMouseClic)
    .Action = ppActionRunMacro
  .Run = "bouton_S2"

mais doit y avoir une erreur

[Invité]

Bonjour

Lorsque tu es en mode édition, une action sur une forme n'est pas possible (ou je n'ai rien compris à PPT), les actions se font en mode diaporama.

Philippe

[elbiloute]

pourtant thinkcell y arrive bien...
c'est surement pas des shape tu me diras...

je sais pas si t'as une idée de comment ils font pour interagir avec leurs objets en mode edition ?

[Invité]

Re

pourtant thinkcell y arrive bien...

Peux-tu être précis sur cela ?

Philippe

[elbiloute]

Je ne sais pas si tu connais le logiciel thinkcell.

C'est un complément office qui ajoute dans le ruban office des options de création de graphiques ou formes.

Et ce logiciel permet d'ajouter sous ppt en mode edition des objets sur lesquels si l'on clic droit ou clic gauche des actions se produisent.

Exemple : ajout d'un harvey balls (regarde wiki si tu connais pas)
et bien sous thinkcell le harvey ball se rempli d'un quart après chaque double clic (très pratique )

Bilan il est possible de définir des actions/evenement sur des éléments présents dans un slide en mode édition mais je sais pas comment...

[Invité]

Re

Ok, je ne connais pas, personnellement je ne vois pas comment cela peut fonctionner, il faut que j'y jette un coup d'oeil.

Je viens de jeter un coup d'oeil à la version trial, ce n'est pas des formes classiques qui sont utilisées, mais une programmation spécifique que je ne connais, ce qui est ajouté doit être du style des dessins tel que gdi+ d'Arkham, mais ce n'est pas du standard pour moi.

Philippe

[elbiloute]

Je vais regarder, la piste a l'air excellente !!

[elbiloute]

Bon j'ai un peu creusé et ca me règle pas mal de chose que je voulais faire notamment pour faire des menus assez évolués via des formulaires.

Par contre j'ai pas trouvé comment faire pour utiliser le module gdi+ directement dans la slide en mode edition sans formulaire...

Arkhammmmmmmm j'ai besoin de toi

et aussi j'ai remarqué que la library clgdiplus.dll est déjà présente dans les repertoires d'office du coup je me demande si c'est vraiment indispensable de créer un module de classe sous vba qui reprend le code... y a pas moyen d'ajouter cette library ou peut etre est elle deja utilisable ou activable simplement?

[PPz78]

Dans les modules de classe, on peut intercepter la sélection des objets :
Private Sub App_WindowSelectionChange(ByVal Sel As Selection)

Cela devrait te permettre de faire ce que tu cherche.

PPz

[PPz78]

Ci joint une version qui fonctionne en mode édition, après avoir lancé la macro "InitializeApp"

Il reste à finir le travail.

PPz

[elbiloute]

Excellent je vais regarder tout ca.

merci beaucoup

[elbiloute]

bon alors c'est vraiment top j'arrive a géré les sélections !!
par contre pour les évènements sur clic gauche et clic droit j'y arrive vraiment pas... (WindowBeforeRightClick / WindowBeforeDoubleClick...)

Et aussi je voulais savoir si vous pouviez m'indiquer ou je peux trouver un tutoriel sur la gestion des events / handler parceque quand tu ecris le code suivant, je comprend ce que ca fait mais jamais j'aurai pu l'écrire moi même :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
On Error GoTo ErrorHandler
    sel_name = Sel.ShapeRange.Name
    GoTo suite
ErrorHandler:
    sel_name = 0
Resume Next
suite:

Et encore merci à vous deux

[PPz78]

Ces quelques lignes de code sont destinées à gérer les erreurs.

Elles servent au traitement de l'erreur qui est renvoyée par l'instruction
sel_name = Sel.ShapeRange.Name
quand le clic intervient en dehors d'un objet.

Moi aussi je ne les ai pas inventées.
Il suffit d'aller voir l'assistance associée à PowerPoint à propos de la gestion des erreurs.

A+
PPz

[elbiloute]

et pour les clics droits, double click, tu sais comment on fait?
Genre pour changer le menu du clic droit (pour le moment je pensais à l'exécution d'un formulaire...)

J'ai regardé dans tes post j'ai vu que t'avais eu ce problème, mais je sais pas si t'avais réussit.

++

[PPz78]

Bon 1 mai !!! Cela nous empêche pas de tr.... non de s'amuser !!

Sur la gestion des événements, je te conseille de jetter un coup d'oeil ici :
<http://arkham46.developpez.com/articles/powerpoint/events/>

En plus il y a un exemple expliqué en détail que l'on peut charger, et en plus ... ça marche !!!!
Suivants les événements, c'est en mode diaporama ou édition, le top.

A+

[elbiloute]

Hello,
Bon premier mai avec pas mal de retard

J'arrive a faire pas ma de chose now.
J'arrive a utiliser la fameuse fonction windowsbeforerightclick et WindowBeforeDoubleClick mais le truc c'est que ca marche que en mode diapo ou en mode trieuse et moi je voudrais que ca marche en mode edition où pour le moment je n'arrive a faire marcher que la fonction windowselectionchange (grace a ppz78

donc si quelqu'un peut m'aider, sachant que j'avais pensé utiliser des élément de type formulaire, ou forme auquelle appliquer les fonctions mouseup/_DblClick... mais c'est pareil ca marche que en mode diaporama...

donc si t'as d'autres pistes...

[PPz78]

Chez moi cela fonctionne.
Voir PJ qui est un doc de brouillon pas très propre.
A+
PPZ

[elbiloute]

hello,

merci pour ton fichier, je l'ai testé et voici mes constats pour chacun des events:
selection change : fonctionne partout (nikel)
clic droit :
fonctionne en mode edition mais ne fonctionne pas si je clic sur une shape ou text box (bizard non?)

double clic : fonctionne en mode trieuse mais pas en mode édition

Est-ce que chez toi c'est pareil?
Bilan comme je souhaite faire fonctionné ca en mode edition je suis tjs bloqué...

++

[PPz78]

Voici une version allégée (une seule diapositive).
Dans le mode édition le simple clic, le double clic et le clic droit sont interceptés sur tous les objets de la planche:
- AutoShape 5
- TextBox 9
- Group 12
- Rectangle 7
- Oval 8

Il faut être un peut véloce sur le double clic.

Enjoy yourself

PPz

[PPz78]

La macro mise à disposition lors d'un post précédent fonctionne bien avec PPT 2003.
Comme mon entreprise va passer en 2007 je viens de refaire ce test ... et là surprise cela fonctionne moins bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub App_WindowSelectionChange(ByVal Sel As Selection)

fonctionne correctement,

par contre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private Sub App_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)
Private Sub App_WindowBeforeRightClick(ByVal Sel As Selection, Cancel As Boolean)

ne fonctionnent pas !!!

PPz 78