hello

is there any possibility of launching macro in ppt from xls?

rgs

"pm" wrote in message ...
hello

is there any possibility of launching macro in ppt from xls?

Create a PowerPoint object and use the Run method on that object.

Howard Kaikow napisal:

is there any possibility of launching macro in ppt from xls?

Create a PowerPoint object and use the Run method on that object.

could you help me with syntax?

Dim PPObj As Object
Set PPObj = CreateObject("PowerPoint.application")
With PPObj
.presentations.Add
.presentations.Open Filename:="F:\Analizy ISI\pl\prob.ppt"
.Visible = True

and how can i run module2 in prob.ppt, which is:

Sub UpdtAll()

Dim sld As Slide
Dim sh As Shape
For Each sld In ActivePresentation.Slides
For Each sh In sld.Shapes
If sh.Type = msoLinkedOLEObject Then
'update
sh.LinkFormat.Update
End If
Next sh
Next sld

End Sub

pm wrote:

could you help me with syntax?

ech ;)

i do it myself ;)

Public Sub PPTPrint()
Dim PPObj As Object
Set PPObj = CreateObject("PowerPoint.application")
With PPObj
.presentations.Add
.presentations.Open Filename:="F:\Analizy ISI\pl\prob.ppt"
.Visible = True
.Run "Prob.ppt!UpdtAll"

and now: saving, printing, closing