View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Vijay Kotian Vijay Kotian is offline
external usenet poster
 
Posts: 75
Default POWERPOINT SHEETS IN EXCEL MACROS

To have a better view for my excel macro i would like to add 2-3 powerpoint
slides ...
I would like to open powerpoint file and do the slideshow and close
powerpoint and then run normal excel macro.
If you can help me with it.. I have tried with the address given by you but
has limited help to me.

Someone gave me the following macros but i am getting a error message while
running excel macro after opening ppt file


Dim objPPT As Object
Dim objPres As Object

Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
Set objPres = objPPT.presentations.Open("D:\CODECHANGE\CODE CHANGE.ppt")

With ActivePresentation.SlideShowSettings
.ShowType = ppShowTypeSpeaker
.LoopUntilStopped = msoFalse
.ShowWithNarration = msoTrue
.ShowWithAnimation = msoTrue
.RangeType = ppShowAll
.AdvanceMode = ppSlideShowUseSlideTimings
.PointerColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
.Run
End With

Regards,
Vijay Kotian


"JLGWhiz" wrote:

Not sure what you need, but look he

http://groups.google.com/group/micro...a144dca9d2537c

"Vijay Kotian" wrote:

How can I combine powerpoint sheets in excel macros with some wait time on
the screen ?