第4章 Project二次开发.pptVIP

Objectives MS Project Objects Task Object Task Object Task Object Task Object Task Object Filter Object Task Object View Object: Screen View Object Homework 1 Homework 1 Homework 1 Homework 1 Homework 1 Homework 1 Homework 2 * * Project Macro Development Jianwei Niu niujw@ustb.edu.cn Manipulate the Microsoft Project Application; Create, edit, and delete project plans. Application Object Project Object Task Object Resource Object Assignment Object Selection Object View Object ViewSingle Object ViewCombination Object Filter Object … LinkPredecessors LinkSuccessors Sub PredecessorLink () Dim lvoTask As Task Set lvoTask = ActiveProject.Tasks.Item(2) lvoTask.LinkPredecessors ActiveProject.Tasks.Item(1), pjFinishToStart, 3days End Sub OutlineIndent OutlineOutdent Public Sub IndentTasks() Dim lvoTask As Task For Each lvoTask In ActiveSelection.Tasks lvoTask.OutlineIndent Next lvoTask End Sub Assignments Public Sub IdentifyAssignments() Dim lvoRes As Resource Set lvoRes = ActiveProject.Resources(1) Dim lvoAss As Assignment Dim lvsMsg As String For Each lvoAss In lvoRes.Assignments If lvsMsg Then lvsMsg = lvsMsg vbCrLf lvsMsg = lvsMsg lvoAss.TaskName - lvsMsg = lvsMsg lvoAss.ResourceName Next lvoAss MsgBox lvsMsg End Sub Filter Object Methods Apply ActiveProject.TaskFilters.Item(All Tasks).Apply Delete ActiveProject.TaskFilters.Item(5).Delete FilterType Public Sub ReportFilterType() Dim lvofilter As Filter Set lvofilter = ActiveProject.TaskFilters.Item(1) If lvofilter.FilterType = pjTaskItem Then MsgBox The filter is a task filter ElseIf lvofilter.FilterType = pjResourceItem Then MsgBox The filter is a resource filter Else MsgBox The filter is of an unkown type - how can this be? End If End Sub A task details form pjTaskDetailsForm A resource graph pjResourceGraph A task usage view pjTaskUsage A task name form pjTaskNameForm A task shee