Ureader.com  
Microsoft software help and Community
   home   |   control panel login   |   archive   |  
 
other
informationbridge
office.intranets
office.misc
office.setup
office.xml
officeupdate
onenote
photodraw.discussion
powerpoint
producer
proj.standard&server
project
project.developer
project.pro_and_serve
project.server
project.vba
project2000
publisher
publisher.prepress
publisher.programming
publisher.webdesign
visio
visio.createshapes
visio.database.modeling
visio.dev.diagrams
visio.dev.shapesheet
visio.dev.vba
visio.dev.vc
visio.developer
visio.general
visio.installation
visio.printing
visio.software.modeling
visio.troubleshoot
  
 
date: Tue, 8 Jul 2008 13:54:04 -0700,    group: microsoft.public.project        back       


macro to control project from powerpoint   
I need a macro in powerpoint, called CreateShow, that will run a macro in 
Project called ImportAll.  Is there a way to do this?  
I've read a bit in the help file, but it's not enough code to actually get me 
there, or to convince me this can actually be done.  Also, within the 
ImportAll macro, I need it to run a macro in Access, called TriFilter2, a 
shortcut 
to which is on my desktop (if that helps any).  Skeleton code given below

thanks
scott

Sub CreateShow()
    'Run ImportAll in MSProject
    ActivePresentation.Slides(1).Select
    'Need to insert photos from file here (help with this too!)
    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
    'SlideShowWindows(Index:=1).View.Exit

End Sub
date: Tue, 8 Jul 2008 13:54:04 -0700   author:   theintern

RE: macro to control project from powerpoint   
I suggest that you get a book on VBA. There are a number which cover the 
office suite, and Rod Gill's book which covers Project VBA. They will help 
you immensely.

You can also read the articles on my site:

http://zo-d.com/blog/programming.html 

There are examples of working with other applications through VBA (mostly 
project and excel, but the principles are the same). I would try to 
consolidate all the code into a single module and set the references so that 
VBA can work with the different libraries. Calling macros in different apps 
and files seems a bit kludgy.

But don't give up. I think that what you want to do is possible. The hardest 
part in my opinion is the VBA in powerpoint. From what I have experienced, 
powerpoint's object model is second only to that of visio in its weirdness.


-Jack Dahlgren
 


"theintern" wrote:

> I need a macro in powerpoint, called CreateShow, that will run a macro in 
> Project called ImportAll.  Is there a way to do this?  
> I've read a bit in the help file, but it's not enough code to actually get me 
> there, or to convince me this can actually be done.  Also, within the 
> ImportAll macro, I need it to run a macro in Access, called TriFilter2, a 
> shortcut 
> to which is on my desktop (if that helps any).  Skeleton code given below
> 
> thanks
> scott
> 
> Sub CreateShow()
>     'Run ImportAll in MSProject
>     ActivePresentation.Slides(1).Select
>     'Need to insert photos from file here (help with this too!)
>     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
>     'SlideShowWindows(Index:=1).View.Exit
> 
> End Sub
> 
> 
>
date: Tue, 8 Jul 2008 14:23:05 -0700   author:   Jack Dahlgren

RE: macro to control project from powerpoint   
So this is what i found to work.  I am using Access as well, which has a 
macro builder in it, so just opened the Project file from Access, then coded 
the macro to run as soon as that file was open, and then close the file 
again.  Works great.

"Jack Dahlgren" wrote:

> I suggest that you get a book on VBA. There are a number which cover the 
> office suite, and Rod Gill's book which covers Project VBA. They will help 
> you immensely.
> 
> You can also read the articles on my site:
> 
> http://zo-d.com/blog/programming.html 
> 
> There are examples of working with other applications through VBA (mostly 
> project and excel, but the principles are the same). I would try to 
> consolidate all the code into a single module and set the references so that 
> VBA can work with the different libraries. Calling macros in different apps 
> and files seems a bit kludgy.
> 
> But don't give up. I think that what you want to do is possible. The hardest 
> part in my opinion is the VBA in powerpoint. From what I have experienced, 
> powerpoint's object model is second only to that of visio in its weirdness.
> 
> 
> -Jack Dahlgren
>  
> 
> 
> "theintern" wrote:
> 
> > I need a macro in powerpoint, called CreateShow, that will run a macro in 
> > Project called ImportAll.  Is there a way to do this?  
> > I've read a bit in the help file, but it's not enough code to actually get me 
> > there, or to convince me this can actually be done.  Also, within the 
> > ImportAll macro, I need it to run a macro in Access, called TriFilter2, a 
> > shortcut 
> > to which is on my desktop (if that helps any).  Skeleton code given below
> > 
> > thanks
> > scott
> > 
> > Sub CreateShow()
> >     'Run ImportAll in MSProject
> >     ActivePresentation.Slides(1).Select
> >     'Need to insert photos from file here (help with this too!)
> >     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
> >     'SlideShowWindows(Index:=1).View.Exit
> > 
> > End Sub
> > 
> > 
> >
date: Wed, 9 Jul 2008 07:36:05 -0700   author:   theintern

Google
 
Web ureader.com


    COPYRIGHT 2007, YARDI TECHNOLOGY LIMITED, ALL RIGHT RESERVE  |   contact us