Discussion :

[3mmanuelle]

Bonjour,

Je débute en VBA et je ne trouve pas beaucoup de documentation spécifique à son utilisation dans powerpoint.
Voici mon problème :
J'ai créé une combobox et j'aimerais qu'un texte différent s'affiche sur le slide en fonction de la valeur choisie.
J'aimerais également que lorsqu'on fait un autre choix dans la combobox, le texte du choix précédent disparaisse pour laisser place au nouveau texte.

J'ai essayé de faire cette manip' avec une checkbox, mais une fois le texte créé, impossible de le faire disparaitre.
En fait, je n'arrive pas à faire en sorte que mon code reconnaisse ma textbox et lui applique des propriétés, il crée une nouvelle textbox à chaque clic sur la checkbox.
Merci pour votre aide, c'est assez urgent hélas !!

Voici mon code :


Private Sub CheckBox1_Click()

Dim sld As Slide
Dim shp As shape

' affectation à l'objet slide la première diapositive de la présentation en cours.
Set sld = ActivePresentation.Slides(1)
Set shp = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 350, 400, 350)

If CheckBox1.Value = True Then


' ajout du texte
With shp.TextFrame.TextRange
.Text = "case cochée"
.Font.Name = "Calibri"
.Font.Size = 15

End With

Else: shp.Delete

End If


End Sub

[Minise]

c'est normal qu'il en créé une à chaque fois que tu cliques, au début y'a :

Code :

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

Set shp = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 350, 400, 350)

sinon tu peux créer une zone de texte normalement "à la main" récupérer son nom et de là tu peux la faire varier

[3mmanuelle]

Merci pour ta réponse,
J'avais essayé en premier lieu de créer une forme mais je ne sais pas comment faire pour récupérer son nom.
J'ai beau faire clic-droit pour trouver des propriétés mais je ne trouve rien.
Comment peut-on la faire varier ensuite ?

[Minise]

t'as plusieurs solutions :

si tu connais le numéro de diapo tu peux faire ça directement (i est le numéro de la diapo), ça tourne et sélectionne toutes les shapes et donne leurs noms dans la variable "nom" (qui est aussi shp.Name)

Code :

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

1
2
3
4
For Each shp In ActivePresentation.Slides(i).Shapes
    ActivePresentation.Slides(i).Shapes(shp.Name).Select
    nom = shp.Name
Next

ou sinon par ta technique tu peux insérer la zone de texte et connaitre son nom

Code :

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

1
2
Set shp = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 350, 400, 350)
nom= shp.Name

après tu peux réécrire le nom en dur car il ne devrait pas varier ex: With Shapes("TextBox 26").TextFrame.TextRange