Find and Replace Text in Powerpoint from Excel

[lt0218]

I am completely lost trying to write this macro. I am trying to use the Powerpoint.Application object to access an existing presentation and search through all slides for text "xxxx" and replace with text from a cell in excel. I am able to do this using excel and word but am completely stumped when it comes to excel and powerpoint. I see a lot of examples out there of a macro within powerpoint, but I can't seem to find any help regarding accomplishing it through excel. The general gist of it should be to search through all slides, all shapes within each slide for text ranges that contain the string "xxxx"


Thanks in advance!

 

[brenton]

I successfully used this code with just powerpoint, but when I move it inside my excel module. I get error 429 active x componenet cant create object at the red line. Do I have to reestablish what the Active presentation is?
Thanks?

Sub changeme(sFindMe As String, sSwapme As String)
Dim osld As Slide
Dim oshp As Shape
Dim otemp As TextRange
Dim otext As TextRange
Dim Inewstart As Integer

[COLOR="Red"]For Each osld In ActivePresentation.Slides[/COLOR]
For Each oshp In osld.Shapes
If oshp.HasTextFrame Then
If oshp.TextFrame.HasText Then

Set otext = oshp.TextFrame.TextRange
Set otemp = otext.Replace(sFindMe, sSwapme, , msoFalse, msoFalse)
Do While Not otemp Is Nothing
Inewstart = otemp.Start + otemp.Length
Set otemp = otext.Replace(sFindMe, sSwapme, Inewstart, msoFalse, msoFalse)
Loop

End If
End If

Next oshp
Next osld
End Sub

Sub swap()
Dim sFindMe As String
Dim sSwapme As String
sFindMe = "Word To Find"
'change this to suit
sSwapme = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange
Call changeme(sFindMe, sSwapme)

End Sub

 

[brenton]

can anybody help take this a little further, still stumped?