changer la couleur d'une textbox dans un slide different

Question

Bonjour, 
je cherche en vba powerpoint une commande qui me permet de (par exemple)
- je selectionne une valeur dans une liste modifiable du slide 1
- une textbox dans le slide 3 change de couleur de fond
je suis arrivé a faire la premiere partie, mais seulement avec une textbox dans le meme slide

jordane45 · Answer

Bonjour,

Un exemple de code pour manipuler une textBox sur une autre slide

Private Sub TextBox1_Change()
'se déclenche lors de la modification de TextBox1
    Dim objPPS As Presentation
       Set objPPS = ActivePresentation
    Dim objSld1 As Slide
        Set objSld1 = objPPS.Slides(1)
    Dim objSld2 As Slide
        Set objSld2 = objPPS.Slides(2)
  
   Dim otxtBox1 As TextBox
     Set otxtBox1 = objSld1.Shapes("TextBox1").OLEFormat.Object
   Dim otxtBox2 As TextBox
    Set otxtBox2 = bjSld2.Shapes("TextBox2").OLEFormat.Object

'Recopie de la valeur de la textBox1 du slide1 sur la textbox2 du slide2
 otxtBox2.Text = otxtBox1.Text
 'changement de couleur..
 otxtBox2.BackColor = vbBlue
 
End Sub

Changer la couleur d'une textbox dans un slide different

1 réponse

Votre réponse

Discussions similaires