Compartilhar via

Propriedade Task.Milestone (Project)

  • Artigo

True se a tarefa é uma etapa. Leitura/gravação Variant.

Sintaxe

expression. Milestone

Expressão Uma variável que representa um objeto Task .

Exemplo

O exemplo a seguir marca como etapas quaisquer tarefas do projeto ativo com nomes iniciados pela palavra "Inspeção".

Sub MarkInspectionTasks() 
 
 Dim T As Task ' Task object used in For Each loop 
 Dim MilestoneName As String 
 Dim NameLength As Integer 
 
 MilestoneName = "Inspection" 
 NameLength = Len(MilestoneName) 
 
 For Each T In ActiveProject.Tasks 
 ' If the task's name begins with Inspection, it's a milestone. 
 If UCase(Left(T.Name, NameLength)) = UCase(MilestoneName) Then 
 T.Milestone = True 
 End If 
 Next T 
 
End Sub

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.