JimAksel
Thu Apr 19 10:02:16 CDT 2007
The following code will save a "Baseline5" ... modify as needed, it will be
pretty obvious.
**** THIS CODE HAS NOT BEEN TESTED ON PROJECT SERVER *****
*** Disclaimer: This code is provided for entertainment and evaluation
purposes only. Always work from a copy of your original data. ***
Public Sub DriveDownBaseline5()
Call DrillBaseline5(Application.ActiveProject)
MsgBox ("Baselines saved. Please save each file after review")
End Sub
Private Sub DrillBaseline5(ByRef mProject As Project)
Dim bProject As Project
Dim sProject As Subproject
'This overwrites entire Baseline5 for entire mProject
FileOpen mProject
BaselineSave All:=True, Copy:=pjCopyCurrent, Into:=pjIntoBaseline5
If mProject.Subprojects.Count = 0 Then
'base case do nothing
Exit Sub
Else
For Each sProject In mProject.Subprojects
Set bProject = sProject.SourceProject
Call DrillBaseline5(bProject)
Next sProject
End If
End Sub
--
If this post was helpful, please consider rating it.
Jim
It''s software; it''s not allowed to win.
Visit
http://project.mvps.org/ for FAQs and more information
about Microsoft Project
"Yoav" wrote:
> Hey, Jim
> Thanks for your answer. I sure would like love it if you posted your macro
> that saves BL.
> Thansk!
>
> "Jim Aksel" wrote:
>
> > Keep in mind the Master Project is a separate project with its own baseline.
> > When saving a baselines for the Master Project, you save baseline
> > information for those activities that are not subprojects. For example, you
> > may have program level information and tasks that cover all the
> > subprojects.... things like "Project Management", "Undistributed Budget",
> > "Risk Activities", etc.
> >
> > Subproject baselines are for the individual subprojects themselves. For
> > example, you would maintain a separate baseline for phases of a project, or
> > departments such as Systems Engineering. Perfectly reasonable to keep these
> > baselines separate -- that is probably the "normal" way to do business.
> >
> > Saving a MP Baseline does not propagate down to the inserted projects (which
> > have their own baselines.). It just so happens I was working a project
> > recently where it would be convenient to save baslines to all projects
> > (master/sub) and to do this weekly (never mind, long story)... I have a Macro
> > in a Module that will recursively push a baseline save (in my case Baseline5)
> > down to the master/sub projects. Post back if you would like me to put it up
> > for you.
> > --
> > If this post was helpful, please consider rating it.
> >
> > Jim
> > It's software; it's not allowed to win.
> >
> > Visit
http://project.mvps.org/ for FAQs and more information
> > about Microsoft Project
> >
> >
> >
> > "Yoav" wrote:
> >
> > > I'm working with MSP 2003 Server.
> > > Does saving baseline for master project or subproject different? If so, in
> > > what cases should I save baseline in master project/subproject.