Une info-bulle dans PowerPoint

Version imprimable

Bonjour

La question de l'info-bulle a été posée sur le forum, il y avait la solution du lien hypertexte.

Voici une autre solution, en faisant appel aux formes de PowerPoint.

Collez ce code dans un module standard.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Public Sub AffichageBulleForm(shpSelect As Shape)
    ' ===== déclaration des variables =====
    Dim shpBulle As Shape   ' il s'agit de l'info-bulle qui sera crée
    Dim sldParent As Slide  ' il s'agit d'une slide (diapositive ou se trouve la forme
    Dim t As Date           ' va servir pour la temporisation de l'affichage de l'info-bulle
 
    ' ===== affectation =====
    ' on récupére le slide
    Set sldParent = shpSelect.Parent
 
    ' ===== on crée la bulle =====
 
    Set shpBulle = sldParent.Shapes.AddShape(msoShapeRectangle, shpSelect.Left + shpSelect.Width, shpSelect.Top, 100, 100)
    With shpBulle
        .Name = "Bulle"
        ' couleur de fond
        .Fill.ForeColor.RGB = RGB(150, 150, 120)
        ' texte de la bulle
        .TextFrame.TextRange.Text = "toto"
        .TextFrame.WordWrap = msoTrue
        ' la forme s'adapte au texte
        .TextFrame.AutoSize = ppAutoSizeShapeToFitText
        ' couleur de la ligne
        .Line.ForeColor.RGB = RGB(200, 200, 100)
        ' position
        .Top = shpSelect.Top + 10
        .Left = shpSelect.Left + 10
    End With
 
    ' ===== on lance la temporisation ====
    t = Timer + 1
    Do Until Timer > t
        DoEvents
    Loop
 
    ' ===== on détruit la bulle =====
    sldParent.Shapes("Bulle").Delete
End Sub

Ensuite sur l'action du survol de votre élément par la souris, sélectionnez la routine AffichageBulleForm. L'info-bulle que vous pouvez paramétrer en forme et couleur, apparaitra 1 seconde.

Remarque : Toutes les formes n'ont pas le même effet, ici, il s'agit d'un rectangle tout simple.

Vous pouvez aussi utiliser un UserForm pour réaliser un message, mais cela demande l'aide d'API pour supprimer la barre et lui donner un aspect plus intéressant.

Starec

25/02/2009, 10h40
Claude Chaudy

je ne vois pas du tout comment on insére ces lignes de codes et ou ,
25/02/2009, 15h44
Invité

Bonjour

Ces lignes de code sont à insérer dans l'éditeur VB de PowerPoint (Alt + F11).

Il faut créer un module et coller le code à l'intérieur. Ensuite sur les formes dans les paramètres des actions, il faut sélectionner l'onglet Pointer avec la souris, et dans lancer une macro il faut sélectionner la routine.

Philippe
08/09/2011, 16h34
arjmn

1 pièce(s) jointe(s)

Pourquoi des info-bulles parasites sont générées là où on ne le attend pas?

J'ai introduit votre code mais quand j'exécute mon diaporama et lorsque je survole les zones (rectangles) auquelles j'ai associé la macro avec la souris, ils se produit des ratés. Des rectangles 'paristes' sont générés et pour les enveler, je dois sortir du mode diapo et les 'couper' une par une. D'où vient le problème? Voir copie d'écran dans le pdf en annexe.
Mon but en fait est que chaque fois que je passe sur une référece article, j'en affiche furetivement le prix.
J'utilise PointPoint 2003 SP3
Merci d'avance pour votre réponse.
08/09/2011, 16h43
Invité

Bonjour

Il serait bon que tu mettes ton fichier en pièce jointe (en le zippant), on pourra mieux voir ce qui se passe.

Philippe
09/09/2011, 14h35
arjmn

1 pièce(s) jointe(s)

Voici.

J'ai vachement simplifié ma présentation car le ZIP aurait fait 16 Mb mais qu'il y ait 50 dias ou 1 comme ici, le phénomène est présent.
Merci pour votre précieux support.
Al.
10/09/2011, 03h09
Invité

Bonjour

Je t'avoue que je suis perplexe, je viens de faire le test sur PPT 2002 et 2007, et je n'ai aucun soucis particulier.

Philippe
12/09/2011, 13h39
arjmn

Bonj. Philippe,
Moi aussi je reste perplexe. J'ai essayé sur l'ordi de mon collègue qui est identique au mien et sur celui de ma collègue (une station sous citrix) et le phénomène est bien présent. Il n'apparaît pas nécessairement au premier survol de souris et par example ce matin pendant plus d'une minute à survoler en tout sens sans problème avant que le phénomène n'apparaisse. Une deuxiène tentatitive et c'est dans les premiers instants. Au besoin, j'ai fait une petite vidéo avec mon BlackBerry mais c'est quand-même 3.3Mb.
B.à.t.
Alain
19/01/2016, 16h37
sergeboisse

Vous pouvez détailler svp ?

Bonjour,
Désolé mais je suis un débutant complet een VB et je ne comprends rien :
j'ai ouvert la fenêtre VB, j'ai créé un module et j'ai collé le texte du code dans la fenetre texte.
Ensuite il faut faire quoi ? Ça veut dire quoi "Ensuite sur l'action du survol de votre élément par la souris, sélectionnez la routine AffichageBulleForm." ?
J'ai créé un rectangle dans la diapo, je veux que l'info bulle apparaisse au survol de ce rectangle, je fais comment ?
Merci de votre aide !
20/01/2016, 13h40
Minise

salut,

je sais pas si t'as trouvé dépuis, (je suis sur la version 2010 ça peut etre différent si t'as une autre version), apres avoir cliqué sur ton rectangle tu vas dans le menu insertion-->Action (c'est à droite de lien hypertexte); avec la fenetre qui va s'ouvrir tu choisis l'onglet "pointer avec la souris" et le bouton "exécuter la macro" avec la macro que tu viens d'enregistrer

voila^^