I made a couple of changes to get the code to run. I not sure what you are
trying to do. I went to the power point VBA help and didn't find a RUN
method. I did find a RUNS method and here is an example of that instruction.
I didn't know the slide number or object that yhou are using.
With Application.ActivePresentation.Slides(1).Shapes(2) _
.TextFrame.TextRange
With .Runs(2).Font
If .Italic Then
.Bold = True
End If
End With
End With
Sub OpenPPT()
Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
'Get existing instance of PP if it's open; otherwise create a new one
On Error Resume Next
Set PPApp = GetObject(, "PowerPoint.Application") '<added comma
If Err Then
Set PPApp = New PowerPoint.Application
PPApp.Visible = msoTrue '<made application visible
Set PPPres = PPApp.Presentations.Open("C:\temp\slide 1.ppt")
Else
Set PPPres = PPApp.Presentations("slide 1.ppt")
End If
On Error GoTo 0
'******Runs macro in PPT that copies data from excel and
'pastes onto PPT slides
PPApp.Run (1)
End Sub
"Tony Bender" wrote:
> Joel,
>
> Thanks for this, but it didn't work.
> I got a Run-time error 91 "Object variable or With Block variable not
> set" and when I clicked Debug it highlighted this line:
>
> PPApp.Run (PPPres.Name & "!AddPieChart")
>
> When I remove this line the macro doesn't do anything.
> TB
>
>
>
Similar Threads
