Récupérer textbox dans macro powerpoint

Fermé
oustad - 30 déc. 2009 à 21:10
 Ghostk - 5 févr. 2016 à 13:16
Bonjour,
j'ai une macro dans power point. je souhaite récupérer, dans un module, le contenu d'un texbox nommé textbox1 dans la slide n°2
j'ai essayé ceci
string=ActivePresentation.Slides(2).Shapes("textbox1").TextFrame.TextRange
mais cela ne marche pas.
j'ai ensuite essayé des trucs un peu moins orthodoxes : .value ou .text
rien en fonctionne

j'ai besoin que cela soit dans un module car je vais m'en servir pour toutes les dia ( chacune possédant la même textbox)

quelqu'un aurait-il une idée ?
merci d'avance
laurent
A voir également:

6 réponses

merci pour la réponse, mais ça donne
erreur 424
objet requis
0
Verifies le nom des objets.

Dans VisualBasic Editor, regarde dans l'explorateur d'objet que tu as bien une Slide2
si oui, double-clic sur Slide2 et dans la fenêtre, regardes dans la liste déroulante de gauche si tu as bien une Textbox1.

Normalement ça doit marcher, enfin chez moi ça marche.

A+.
0
merci, tu as raison, ma dia s'appelait en fait dia8, bien qu'elle soit la deuxième dans l'ordre du slideshow.
si tu connais un moyen de faire la même chose à partir du numéro de "passage" de la dia, merci de me l'indiquer
ça me permettrait de faire une boucle du genre
pour n=2 to 12
récupération du textbox de la slide(n)
next n

sinon, je ferai avec

le code sera un peu moins élégant, mais ça devrait fonctionner...


en tout cas, merci pour ta réponse super rapide, ( deux réponses avec un test, un 30 décembre à 22H33, le tout en quelques minutes)
laurent
0
Désolé, je n'ai pas trouvé comment référencer les Slides par leur index (comme on peut le faire avec les Sheets d'Excel).

Bonne continuation.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
J'ai eu exactement le même problème :

Sur power Point, double clic sur ta TextBox, VBE(Visual Basic Editor) s'ouvre et met en surbrillance le nom de ta slide, c'est le lien vers ta slide qui est mauvais.

Du coup, moi j'avais en surbrillance SLIDE22, et j'ai mis alors :

Slide22.TextBox1.value
0
Bonsoir,

Essaies cet exemple

Sub test()
Dim texte as String
texte = Slide2.TextBox1.Text
MsgBox texte
End Sub

A+.
-1