Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Contém uma coleção de objetos Subprojetos .
Propriedades
| Nome |
|---|
| Aplicativo |
| Count |
| Item |
| Parent |
Exemplos
Utilizar o objeto de coleção Subprojetos
Utilize Subprojetos (índice), em que o índice é o índice de subprojeto ou o nome da tarefa de resumo do projeto, para devolver 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
Obter 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 adicionar dois subprojetos com o mesmo nome a um projeto, este tornar-se-á um objeto estático e não fornecerá informações sobre subprojetos adicionais que sejam adicionados ao projeto. Isto continua durante o ciclo de vida do ficheiro de projeto, mesmo que um dos subprojetos com o mesmo nome seja removido.
Pode tentar fazê-lo ao criar uma cópia de um dos subprojetos no projeto, colocá-lo noutra pasta e, em seguida, adicioná-lo novamente ao seu projeto. Os subprojetos não comunicarão o novo projeto nem fornecerão informações sobre os 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.