Objeto Subprojetos (Project)
Contém uma coleção de objetos Subprojetos .
Propriedades
| Nome |
|---|
| Aplicativo |
| Count |
| Item |
| Responsável |
Exemplos
Usando o objeto de coleção Subprojetos
Use Subprojetos (índice), em que o índice é o índice de subprojeto ou o nome da tarefa de resumo do projeto, para retornar um único objeto Subprojeto . O exemplo a seguir impede alterações feitas ao subprojeto especificado em um projeto mestre seja feita automaticamente ao projeto fonte.
ActiveProject.Subprojects("Arcadia Bay Online Catalog Plan").LinkToSource = False
Obtendo o objeto de coleção Subprojetos
Use a propriedade Subprojects para retornar uma coleção Subprojects. O exemplo a seguir alerta o usuário se um dos subprojetos do projeto ativo não estiver no disco rígido.
Dim SubProj As Subproject
For Each SubProj in ActiveProject.Subprojects
If UCase(Left$(SubProj.Path, 1)) <> "C" Then
MsgBox Right$(SubProj.Path, InStrRev(SubProj.Path, "\") - 1) & _
" is not on your local hard disk.", vbExclamation
End If
Next SubProj
Observação
Se você adicionar dois subprojetos com o mesmo nome a um projeto, ele se tornará um objeto estático e não fornecerá informações sobre quaisquer subprojetos adicionais adicionados ao seu projeto. Isso continua durante a vida útil do arquivo do projeto, mesmo que um dos subprojetos nomeados da mesma forma seja removido.
Você pode experimentar isso fazendo uma cópia de um dos subprojetos em seu projeto, colocando-o em outra pasta e, em seguida, adicionando-o ao seu projeto novamente. Os subprojetos não relatarão o novo projeto nem fornecerão informações sobre quaisquer subprojetos adicionados a esse projeto posteriormente.
Confira também
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.