Evento Application.ProjectBeforeClearBaseline (Project)
Ocorre antes que uma linha de base seja limpa. Usa o parâmetro do objeto EventInfo.
Sintaxe
expression. ProjectBeforeClearBaseline( _pj_, _Interim_, _bl_, _InterimFrom_, _AllTasks_, _Info_ )
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 exibido na janela desativada. |
| Interim | Obrigatório | Boolean | True se estiver limpando um plano de linha de base provisório. False se estiver limpando um plano de linha de base completo. |
| bl | Obrigatório | PjBaselines | A linha de base que você estiver limpando. Pode ser uma das seguintes constantes PjBaselines: pjBaseline, pjBaseline1, pjBaseline2, pjBaseline3, pjBaseline4, pjBaseline5, pjBaseline6, pjBaseline7, pjBaseline8, pjBaseline9 ou pjBaseline10. |
| InterimFrom | Obrigatório | PjSaveBaselineTo | O plano de linha de base provisório sendo desmarcado. Pode ser uma das seguintes constantes PjSaveBaselineTo: pjIntoBaseline, pjIntoBaseline1, pjIntoBaseline2, pjIntoBaseline3, pjIntoBaseline4, pjIntoBaseline5, pjIntoBaseline6, pjIntoBaseline7, pjIntoBaseline8, pjIntoBaseline9, pjIntoBaseline10, pjIntoStart_Finish1, pjIntoStart_Finish2, pjIntoStart_Finish3, pjIntoStart_Finish4, pjIntoStart_Finish5, pjIntoStart_Finish6, pjIntoStart_Finish7, pjIntoStart_Finish8, pjIntoStart_Finish9 ou pjIntoStart_Finish10. |
| AllTasks | Obrigatório | Boolean | True se estiver limpando todo o projeto. |
| Info | Obrigatório | EventInfo | EventInfo é False quando o evento ocorre. Se o procedimento de evento define este argumento como True, a linha de base não está desmarcada. |
Valor de retorno
Nothing
Comentários
Eventos de projeto não ocorrem quando o projeto está inserido em outro documento ou aplicativo.
Exemplo
O exemplo a seguir exibe uma caixa de mensagem informando o usuário sobre uma limpeza de linha de base a ser feita no plano do projeto. A caixa de mensagem indica qual linha de base está sendo limpa (de 0 a 10), o nome do arquivo do projeto e se o plano intermediário está sendo limpo (True ou False).
- Crie um novo módulo de classe e insira o seguinte código:
Public WithEvents pApp As MSProject.Application
Private Sub pApp_ProjectBeforeClearBaseline(ByVal pj As Project, _
ByVal Interim As Boolean, ByVal bl As PjBaselines, _
ByVal InterimFrom As PjSaveBaselineTo, _
ByVal AllTasks As Boolean, ByVal Info As EventInfo)
MsgBox "Click OK to clear the baseline for the following " _
& "project:" & vbCrLf & "Baseline: " & CStr(bl) _
& vbCrLf & "Project: " & pj.Name & vbCrLf _
& "Clear interim plan: " & CStr(Interim)
End Sub
- Em um módulo separado, insira o seguinte código:
Public X As New Class1
Sub RunMacros()
Set X.pApp = MSProject.Application
End Sub
Execute o procedimento RunMacros para começar a ouvir os eventos.
No menu Ferramentas, aponte para Controle e clique em Limpar Linha de Base.O evento faz com que uma caixa de mensagem apareça toda vez que uma linha de base é limpa.
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.