Zeitskala berechnen und erstellen
Damit die Zeitskala passend zur jeweiligen Projektdauer angepasst wird, berechnet das Programm die 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 .ForeColor.SchemeColor ...Get Microsoft Project 2013 - Das Profibuch, Projektmanagement mit Project, Project Web App und Project Server now with the O’Reilly learning platform.
O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.
