Objeto SplitParts (Project)

Contiene un conjunto de objetos SplitPart.

Ejemplo

Uso del objeto de conjunto SplitParts

Use SplitParts (Index ), dondeIndex es el número de índice del número de índice de la tarea, para devolver un único objeto SplitPart . En el ejemplo siguiente se enumeran las horas de inicio y fin de cada parte de la tarea en la celda activa.

Dim Part As Long, Portions As String 

 

For Part = 1 To ActiveCell.Task.SplitParts.Count 

 With ActiveCell.Task 

 Portions = Portions & "Task portion " & Part & ": Start on " & _ 

 .SplitParts(Part).Start & ", Finish on " & _ 

 .SplitParts(Part).Finish & vbCrLf 

 End With 

Next Part 

 

MsgBox Portions

Uso del conjunto SplitParts

Utilice la propiedad SplitParts para devolver un conjunto SplitParts. En el ejemplo siguiente se devuelve el número de partes de cada tarea del proyecto activo.

Dim T As Task 

 

For Each T In ActiveProject.Tasks 

 If Not (T Is Nothing) Then 

 MsgBox T.Name & ": " & T.SplitParts.Count 

 End If 

 

Next T

Use el método Split (objeto Task ) para agregar un objeto SplitPart a la colección SplitParts . (El método Split crea una división en una tarea.) En el ejemplo siguiente se crea una división en la tarea del miércoles al lunes.

ActiveCell.Task.Split "10/2/02", "10/7/02"

Métodos

Nombre
Add

Propiedades

Nombre
Aplicación
Count
Elemento
Parent

Vea también

Modelo de objetos de Project

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.