This tool solves the annoyance of longer projects of having to
scroll the timescale every time you open a project file. What it
does:
1. If the project is in the future, scroll to the project’s start
date.
2. If the project is in the past, scroll to the project’s finish
date
3. Otherwise scroll to today’s date
The Code
The code lives in the Project_Open event and consists of:
Private Sub Project_Open(ByVal pj As Project)
If Date < pj.ProjectSummaryTask.Start Then
EditGoTo
Date:=pj.ProjectSummaryTask.Start
ElseIf Date > pj.ProjectSummaryTask.Finish
Then
EditGoTo
Date:=pj.ProjectSummaryTask.Finish
Else
EditGoTo Date:=Date
End If
End Sub
To create the Project_Open event:
1. In Project (any version), press Alt+F11 to open the Visual Basic
Editor (VBE).
2. Press Ctrl+R to make sure the Project Explorer is open (pane on
left of VBE window).
3. Double-click the ProjectGlobal (Global.Mpt) folder to expand it
4. Double-click the ThisProject (Global.Mpt) file to open it.
5. Copy the above code into this file
As the code is in your Global.Mpt file, it works when you open any
project.
To test, open any project and check the date on the timescale to
confirm Project has scrolled it as required.