Balkendiagramm und Tabelle füllen
Im Anschluss werden die Spalten Phasen (Schritte) und Vorgänge (Erläuterungen) ausgefüllt und die Vorgangsbalken der Phasen gezeichnet (Listing 12.12).
For Each myTask In ActiveProject.Tasks If myTask.OutlineLevel = 1 Then If myActualTop > 490 Then myPresentation.Slides.Paste (mySlide.SlideIndex) mySlide.Cut myPresentation.Slides.Paste (1) Set mySlide = myPresentation.Slides.Item(2) myActualTop = myActualTopBody End If 'Spalte Phasen zeichnen Set mySummaryTaskName = _ mySlide.Shapes.AddTextbox(msoTextOrientationHorizontal, _ myActualLeft, myActualTop, mySchritteWidth, myActualRowHeight) With mySummaryTaskName With .TextFrame.TextRange .Text = myTask.Name .Font.Name = myFont .Font.Size = 12 .Font.Color.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.
