[VBA] sigh.. iterare textbox per ogni slide

[Luxxa]

Ciao ragazzi.. non conosco VB perchè lavoro con linguaggi un pochino più recenti... ma mi hanno chiesto di fare una piccola stronzata in PPT.. praticamente metto una textbox per ogni slide e con un comando devo prendere il valore di queste textbox e metterle in un excel.. ho quasi fatto.. mi manca solo una cosa...

come faccio a linkarmi a una textbox dentro la slide che si chiama, per esempio, txtProva?


io avrei fatto così..



For Each oSlide In ActivePresentation.Slides

oSlide.txtProva.text

Next oSlide

ma non funziona.. non trova txtProva... cosa sbaglio?

[zuper]

devi loopare tutte le slides e tutte le shapes, prova così :)

Sub prova()

Dim shape As shape
Dim slide As slide

c = 1
For Each slide In ActivePresentation.Slides
For Each shape In ActivePresentation.Slides(c).Shapes
MsgBox shape.TextFrame.TextRange.Text
Next shape
c = c + 1
Next slide

End Sub

poi chiaramente vedi tu invece del msgbox cosa ci devi mettere :)

[Luxxa]

grazie.. provo :)