T
theintern
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
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