Discussion :

[daxmuc]

Bonjour,

Je cherche a creer des tooltip dans powerpoint 2007:

Lorsque mon curseur passe sur un objet insere dans un slide, je souhaite faire apparaitre une fenetre personalisable (image ou texte).

Cette fenetre doit se refermer automatiquement lorsque mon curseur n est plus sur l objet insere.

J ai fait quelques recherches mais je n ai rien trouve pour l instant. Quelqu'un peut m aider ?

Merci

[Invité]

Bonjour et bienvenue sur le forum Office de DVP.

Nous disposons d'une FAQ avec pleins d'informations, elle se trouve ici

Entre autre tu y trouveras :

Comment puis-je faire apparaître une info-bulle lors du passage de la souris sur une forme ? avec aussi un lien vers l'équivalent en VB qui te permet de faire des belles infos bulles.

Philippe

[daxmuc]

Merci Philippe pour ton aide rapide !

est ce qu on sait modifier la taille de la police dans la bulle ?

est ce qu on sait afficher une image a la place de la bulle ? (sans ouvrir d application type paint..)

[Invité]

Re

Tout ce que tu demandes est possible, mais uniquement en passant par du VBA.

est ce qu on sait modifier la taille de la police dans la bulle ?

Oui

Il faut rajouter cette ligne

Code :

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

.TextFrame.TextRange.Font.Size = 12

de manière à avoir dans le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
With shpBulle
        .Name = "Bulle"
        ' couleur de fond
        .Fill.ForeColor.RGB = RGB(150, 150, 120)
        ' texte de la bulle
        .TextFrame.TextRange.Text = "toto"
        .TextFrame.TextRange.Font.Size = 12
        .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

ici le texte sera de taille 12.

est ce qu on sait afficher une image a la place de la bulle ? (sans ouvrir d application type paint..)

Oui

En rajoutant cette ligne

Code :

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

 .Fill.UserPicture "C:\Users\Philippe\Pictures\avatar1 - Copie.jpg"

On joue sur le remplissage (Fill) de la forme.

L'ensemble devient maintenant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
With shpBulle
        .Name = "Bulle"
        ' couleur de fond
        .Fill.ForeColor.RGB = RGB(150, 150, 120)
        ' texte de la bulle
        .TextFrame.TextRange.Text = "toto"
        .TextFrame.TextRange.Font.Size = 12
        .Fill.UserPicture "C:\Users\Philippe\Pictures\avatar1 - Copie.jpg"
        .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 + shpSelect.Width + 10
    End With

Philippe

[daxmuc]

Genial,

Mon image est re-sesize par rapport a la taille de la boite. j aimerai donc definir la taille de la boite.

Je vois que je peux jouer sur l avant dernier parametre (300) pour modifier la longeurs mais je n arrive pas a modifier la hauteur..

"

Code :

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

 Set shpBulle = sldParent.Shapes.AddShape(msoShapeRectangle, shpSelect.Left + shpSelect.Width, shpSelect.Top, 300, 100)

"

Merci !

[Invité]

Re

La hauteur c'est le dernier chiffre, regardes dans l'aide, tu auras toute la syntaxe.

Philippe

[Sepia]

Salut Philippe,

Super ces infos . Je vais essayer dans peu de temps.

@+