macro to control other programs

I need a macro in powerpoint, called CreateShow, that will run macros in
Project, called ImportAll, TwoWeeks, OneWeek. 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 it to run a macro in Access, called TriFilter2, a shortcut
to which is on my desktop (if that helps any).

thanks
scott

Here is my code with comments where i need additional code. Any help would
be so much appreciated.

Sub CreateShow()
'Run ImportAll in Project
ActivePresentation.Slides(1).Select
ActiveWindow.View.Paste
'Run TwoWeeks in Project
ActivePresentation.Slides(2).Select
ActiveWindow.View.Paste
'Run OneWeek in Project
ActivePresentation.Slides(3).Select
ActiveWindow.View.Paste
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

"theintern" wrote:

I need a macro in powerpoint, called CreateShow, that will run macros in
Project, called ImportAll, TwoWeeks, OneWeek. 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 it to run a macro in Access, called TriFilter2, a shortcut
to which is on my desktop (if that helps any).

thanks
scott

In article , Theintern wrote:
Here is my code with comments where i need additional code. Any help would
be so much appreciated.

By "Project" do you mean a macro in MS Project or something entirely different?

If it's MS Project related, ask also in the appropriate newsgroup for Project, as
the code for launching its macros from an external app is likely to be peculiar to
Project, but the same no matter where you're doing it FROM.


Sub CreateShow()
'Run ImportAll in Project
ActivePresentation.Slides(1).Select
ActiveWindow.View.Paste
'Run TwoWeeks in Project
ActivePresentation.Slides(2).Select
ActiveWindow.View.Paste
'Run OneWeek in Project
ActivePresentation.Slides(3).Select
ActiveWindow.View.Paste
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

"theintern" wrote:

I need a macro in powerpoint, called CreateShow, that will run macros in
Project, called ImportAll, TwoWeeks, OneWeek. 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 it to run a macro in Access, called TriFilter2, a shortcut
to which is on my desktop (if that helps any).

thanks
scott


-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

Yes, I mean Microsoft Project. Do you have any idea how to? I'll also post
this in the project section.

thanks
scott

"Steve Rindsberg" wrote:

In article , Theintern wrote:
Here is my code with comments where i need additional code. Any help would
be so much appreciated.

By "Project" do you mean a macro in MS Project or something entirely different?

If it's MS Project related, ask also in the appropriate newsgroup for Project, as
the code for launching its macros from an external app is likely to be peculiar to
Project, but the same no matter where you're doing it FROM.


Sub CreateShow()
'Run ImportAll in Project
ActivePresentation.Slides(1).Select
ActiveWindow.View.Paste
'Run TwoWeeks in Project
ActivePresentation.Slides(2).Select
ActiveWindow.View.Paste
'Run OneWeek in Project
ActivePresentation.Slides(3).Select
ActiveWindow.View.Paste
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

"theintern" wrote:

I need a macro in powerpoint, called CreateShow, that will run macros in
Project, called ImportAll, TwoWeeks, OneWeek. 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 it to run a macro in Access, called TriFilter2, a shortcut
to which is on my desktop (if that helps any).

thanks
scott


-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

In article , Theintern wrote:
Yes, I mean Microsoft Project. Do you have any idea how to?

Not a clue, I'm a afraid. I don't know that I've ever even seen it alive on a computer
screen.

I'll also post
this in the project section.

Also, have a look he

http://www.veign.com/code-view.php?type=app&codeid=60

This is Excel-specific. The code to run macros within a PPT is similar. Maybe with
some fiddling you can get it to fly in Project as well.

Good luck!


thanks
scott

"Steve Rindsberg" wrote:

In article , Theintern wrote:
Here is my code with comments where i need additional code. Any help would
be so much appreciated.

By "Project" do you mean a macro in MS Project or something entirely different?

If it's MS Project related, ask also in the appropriate newsgroup for Project, as
the code for launching its macros from an external app is likely to be peculiar to
Project, but the same no matter where you're doing it FROM.


Sub CreateShow()
'Run ImportAll in Project
ActivePresentation.Slides(1).Select
ActiveWindow.View.Paste
'Run TwoWeeks in Project
ActivePresentation.Slides(2).Select
ActiveWindow.View.Paste
'Run OneWeek in Project
ActivePresentation.Slides(3).Select
ActiveWindow.View.Paste
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

"theintern" wrote:

I need a macro in powerpoint, called CreateShow, that will run macros in
Project, called ImportAll, TwoWeeks, OneWeek. 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 it to run a macro in Access, called TriFilter2, a shortcut
to which is on my desktop (if that helps any).

thanks
scott


-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================





-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================