[PPT-2007] label ou textbox transparent [Résolu]

[kasrimus]

Bonsoir
SVP, je suis nouveau sur poweroint et cela fait plus 10 jours que j'essaie d'introduire un contrôle (label) dans une diapo, mais c'est impossible.
Le contrôle en question une fois dans la diapo devient opaque.
Le label en fait c'est pour introduire une ligne de commande quand je survole le contrôle (label) je dois afficher du texte.
Merci pour l'aide.

[Philippe JOCHMANS]

Bonjour

Pourquoi installer un label et pas une zone de texte ?

Pour le survol, une recherche avec le mot "Bulle" pour info bulle dans la FAQ te donnera des astuces.

Le lien de la FAQ PowerPoint et en haut de cette page et il y a un moteur de recherche inclus.

Philippe

[kasrimus]

Bonsoir
merci pour la réponse,
le label ou textebox pas de problème, mon souhait est au comment du survol avec la souris je dois afficher du texte, mais..!
lors du lancement de la diapo le label ou la zone de texte est affichée en opaque et non tranparent, ce qui est genant sur la diapo.
aidez moi svp
merci pour toute réponse pour solutionner ce facheux problème
merci d'avance.

[Philippe JOCHMANS]

Bonjour

A priori tu parles des contrôles que tu trouves dans l'onglet Développeur.

Il faut utiliser la zone de texte qui se trouve dans l'onglet Insertion.

Pour afficher un texte sur le survol de la souris, je pense que tu penses à l'info bulle. Pour cela il y a des astuces dans la FAQ PowerPoint, le lien est en haut de cette page.

Philippe

[kasrimus]

Bonjour
merci de la réponse pardon si j'insiste, mais ce n'est pas ce que je souhaite faire, info-bulle est très limité sur l'espace (nombre de lignes).
pour mieux comprendre mon problème, je vous joins le fichier.

[Philippe JOCHMANS]

Re

Excuse-moi, cela doit être moi qui est fatigué, la semaine a été dure. Effectivement, je me suis un peu mélangé les pinceaux.

Si j'ai bien compris, tu veux un texte qui s'affiche sur le passage de tes ellipses, est-ce cela ? et tu ne veux pas utiliser l'info bulle.

Si j'ai toujours bien compris, tu peux essayer l'info bulle dynamique en utilisant des formes, comme cela : Comment avoir une info-bulle sur le passage de la souris ?

Philippe

[kasrimus]

Bonsoir

Merci pour la réponse. Effectivement c'est ce que je souhaiterais faire, mais bon... je n'arrive pas à appliquer les lignes de commandes vers lesquelles vous m'avez orienté, sur les infos-bulles dynamiques.
si c'est possible veuillez m'aider à solutionner mon problème svp, merci pour toutes les réponses.

[Philippe JOCHMANS]

Re

Ok je vais te faire un exemple à partir de ton diaporama, ce n'est pas garanti pour aujourd'hui, mais demain matin (avant le match de rugby )

Philippe

[kasrimus]

Bonsoir
merci pour la réponse, c'est vraiment très gentil à toi,
Bonne nuit et bon match
Merci

[Philippe JOCHMANS]

Re

Voici le code la FAQ que j'ai adapté :

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
40
41
42
43
44
45
46
47
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
        Select Case shpSelect.Name
            Case "Ellipse 12"
                .TextFrame.TextRange.Text = "Je survole la nouvelle norme."
            Case "Ellipse 11"
                .TextFrame.TextRange.Text = "Je survole la confiance des parties prenantes."
            Case "Ellipse 9"
                .TextFrame.TextRange.Text = "Je survole la souplesse opérationnelle."
            Case Else
                .TextFrame.TextRange.Text = "Je survole un truc."
        End Select
        .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

Ce code est à mettre dans un module, et sur chaque action du survol de la souris un cadre s'affiche.

Pour faire l'action :

Sélectionne la forme (son cadre doit être d'un trait continu)
Onglet Insertion/Bouton Action
Va dans l'onglet pointer avec la souris
Tu sélectionnes Executer la macro, puis OK et cela pour chaque forme.

Il te reste à adapter le code avec le texte adéquat et les paramètres de la forme.

Philippe

[kasrimus]

Bonjour
mes vives remerciements pour ton aide.
il me reste un petit problème, je n'arrive pas à agir sur la taille de la police sur la zone de texte et de son affichage en horizontale.
mille merci pour ton aide et surtout bravo pour le travail.
chapeauuuuuuuuuuuuuuuuuuuux
ci-joint fichier

[Philippe JOCHMANS]

Re

Il faut utiliser la propriété Width de la forme.

Par exemple je rajoute cette ligne à cet endroit :

Code :

1
2
3
4
5
 .Name = "Bulle"
' couleur de fond
 .Fill.ForeColor.RGB = RGB(150, 150, 120)
 .Width = 250
 ' texte de la bulle

Philippe

[kasrimus]

Bonsoir
merci encore, désoléc'est encore moi
tout fonctionne bien, sauf qu'il m'affiche la même zone de texte pour l'esemble des elipses.
comment faire SVP
merci

[Philippe JOCHMANS]

Re

Il faut agir dans cette partie :

Code :

1
2
3
4
5
6
7
8
9
10
Select Case shpSelect.Name
            Case "Ellipse 12"
                .TextFrame.TextRange.Text = "Je survole la nouvelle norme."
            Case "Ellipse 11"
                .TextFrame.TextRange.Text = "Je survole la confiance des parties prenantes."
            Case "Ellipse 9"
                .TextFrame.TextRange.Text = "Je survole la souplesse opérationnelle."
            Case Else
                .TextFrame.TextRange.Text = "Je survole un truc."
        End Select

Par exemple devient :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
  Select Case shpSelect.Name
            Case "Ellipse 12"
                .Width = 300
                .TextFrame.TextRange.Text = "Je survole la nouvelle norme."
            Case "Ellipse 11"
                .Width = 500
                .TextFrame.TextRange.Text = "Je survole la confiance des parties prenantes."
            Case "Ellipse 9"
                .Width = 100
                .TextFrame.TextRange.Text = "Je survole la souplesse opérationnelle."
            Case Else
                .TextFrame.TextRange.Text = "Je survole un truc."
        End Select

C'est donc là qu'il faut agir sur chaque forme, taille, couleur, etc. Avec un coup de F1 tu trouveras tout ce que tu veux pour la personnaliser.

Philippe

[kasrimus]

Bonjour
merci pour la réponse.
j'ai honte mais je suis coinsé, je n'arrive pas à appliquer.
j'ai agi sur les

cases

ca na pas marché, il m'affiche toujours la même zone de texte.
désolé
un petit exemple svp sur une 2ème zone de texte.
merci encore.

[kasrimus]

Bonsoir
c'est toujours moi...!
je n'arrive pas à appliquer (?) désolé
dans le cas ou vous auriez un ptit momment SVP pensez à moi
merci encore

[kasrimus]

Bonsoir
est ce que y'a quelqu'un qui puisse m'aider à résoudre mon problème mer d'avance.

[Philippe JOCHMANS]

Bonjour

Merci d'être patient, dans la journée je travaille, et mes passages ne sont qu'éclairs sur DVP, n'oublies pas que nous sommes tous des bénévoles et que intervenons sur nos temps libres.

Je ne comprends pas ton problème, le code est pourtant clair, c'est un Case par nom de la forme qui est survolée.

Peux-tu être plus clair et patient.

Philippe

[kasrimus]

Bonsoir Monsieur PHILIPPE
acceptez mes excuses, mon problème c'est que je ne suis ni informaticien ni même un (spécialiste) du vba, c'est ce qui a fait, c'est vrai, perdre le contrôle.
à tête reposé et avec beaucoup de concentration, je suis arrivé à comprendre les lignes de commandes, et, ceci grâce à vous.
Vous êtes, sincèrement, quelqu'un de merveilleux.
bravo encore et merci beaucoup.
à la prochaine, mon ami si vous le permettez.
Au fait le problème est réglé.