This tool solves the annoyance of longer projects of
having to scroll the timescale every time you open a project
file. What it does:
- If the project is in the future, scroll to the project’s start date.
- If the project is in the past, scroll to the project’s finish date
- Otherwise scroll to today’s date
The Code lives in the Project_Open event and consists of:
'Copyright ACE Project Systems Ltd 2016
'This macro scrolls the timescale to today's date when any project file is opened.
Private Sub Project_Open(ByVal pj As Project)
If Date < pj.ProjectSummaryTask.Start And instr(ActiveProject.ActiveView,"Gantt")>0 Then
ElseIf Date > pj.ProjectSummaryTask.Finish Then
If you have bought and installed one of the macros that isn't free, this macro is installed in the ProjectOpen event code.
To create the Project_Open event:
- In Project (any version), press Alt+F11 to open the Visual Basic Editor (VBE).
- Press Ctrl+R to make sure the Project Explorer is open (pane on left of VBE window).
- Double-click the ProjectGlobal (Global.Mpt) folder to expand it.
NOTE: In Project 2016 the Project Global file name might be renamed to something starting with C__Users.
- Double-click Microsoft Project Objects then ThisProject (Global.Mpt) file to open it.
- 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.