Objeto SplitParts (Project)

  • Artigo

Contém uma coleção de objetos SplitPart.

Exemplo

Usando o objeto SplitParts Collection

Use SplitParts (Index ), emque Index é o número de índice do número do índice de tarefa, para retornar um único objeto SplitPart . O exemplo a seguir lista o início e término tempos de cada parte da tarefa na célula ativa.

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

Usando a coleção SplitParts

Use a propriedade SplitParts para retornar uma coleção SplitParts. O exemplo a seguir retorna o número de partes de cada tarefa no projeto ativo.

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 o método Split (objeto Task ) para adicionar um objeto SplitPart à coleção SplitParts . (O método Split cria uma divisão em uma tarefa.) O exemplo a seguir cria uma divisão na tarefa de quarta-feira a segunda-feira.

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

Métodos

Nome
Add

Propriedades

Nome
Aplicativo
Count
Item
Parent

Confira também

Modelo de objeto do projeto

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.