Zeitskala berechnen und erstellen

Damit die Zeitskala passend zur jeweiligen Projektdauer richtig angepasst wird, berechnet das Programm die passende Einteilung und erstellt dementsprechend die Zeitskala in der PowerPoint-Folie (Listing 12.11).

Dim myYearHeaderLeft myActualLeft = myActualLeft + mySchritteWidth myYearHeaderLeft = myActualLeft Dim myNumberOfMonth Dim myMonthWidth myNumberOfMonth = DateDiff("m", ActiveProject.ProjectStart, ActiveProject.ProjectFinish) Dim myYearHeader As Object Set myYearHeader = mySlide.Shapes.AddTextbox(msoTextOrientationHorizontal, _ myActualLeft, myActualTop, myYearWidth, myHeaderHeight) With myYearHeader With .Fill .Visible = msoTrue .Solid .ForeColor.RGB = RGB(255, 255, 0) End With With .Line .Visible = msoTrue ...

Get Microsoft Project 2010 - Das Profibuch, Projektmanagement mit Project, Project Web App und Project Server now with O’Reilly online learning.

O’Reilly members experience live online training, plus books, videos, and digital content from 200+ publishers.