Evento Application.ProjectTaskNew (Project)

Ocorre quando uma nova tarefa é criada.

Sintaxe

expressão. ProjectTaskNew( _pj_, _ID_ )

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
pj	Obrigatório	Project	O projeto no qual a tarefa foi criada.
ID	Obrigatório	Longo	A identificação da tarefa que foi criada.

Valor de retorno

Nothing

Comentários

Você pode capturar eventos de nível de projeto do VBA externo.

Exemplo

O exemplo a seguir mostra como o evento ProjectTaskNew pode capturar eventos no nível do projeto. Nesse caso, o manipulador de eventos App_ProjectTaskNew define a variável ProjTaskNew global que usa o manipulador de eventos de alteração. Use código semelhante com os eventos ProjectResourceNew e ProjectAssignmentNew .

1. Crie um módulo de classe denominado EventClassModule e, em seguida, insira o seguinte código:

Option Explicit 
Option Base 1 

Public WithEvents App As Application 
Public WithEvents Proj As Project 

Dim NewTaskIDs() As Integer 
Dim NumNewTasks As Integer 

Dim ProjTaskNew As Boolean 

Private Sub App_ProjectTaskNew(ByVal pj As Project, ByVal ID As Long) 
  NumNewTasks = NumNewTasks + 1 

  If ProjTaskNew Then 
      ReDim Preserve NewTaskIDs(NumNewTasks) As Integer 
  Else 
      ReDim NewTaskIDs(NumNewTasks) As Integer 
  End If 

  NewTaskIDs(NumNewTasks) = ID 

  ProjTaskNew = True 
End Sub 

Private Sub Proj_Change(ByVal pj As Project) 
  Dim NewTaskID As Variant 

  If ProjTaskNew Then 
      For Each NewTaskID In NewTaskIDs 
          MsgBox "New Task Name: " & ActiveProject.Tasks.UniqueID(NewTaskID).Name 
      Next NewTaskID 

      NumNewTasks = 0 

      ProjTaskNew = False 
  End If 
End Sub

2. Em um módulo separado, insira o seguinte código:

Option Explicit 

Dim X As New EventClassModule 

Sub Initialize_App() 
  Set X.App = MSProject.Application 
  Set X.Proj = Application.ActiveProject 
End Sub

3. Execute o procedimento Initialize_App para começar a ouvir os eventos.

4. Crie uma tarefa. O manipulador de eventos mostra uma caixa de mensagem sempre que uma nova tarefa é adicionada.

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.