Objeto Resources (Project)
Contém uma coleção de objetos Resource.
Exemplo
Usando a coleção Resources
Use Recursos (índice), em que o índice é o número do índice de recursos ou o nome do recurso, para retornar um único objeto Resource . O exemplo a seguir lista os nomes de todos os recursos do projeto ativo.
Dim R As Long, Names As String
For R = 1 To ActiveProject.Resources.Count
Names = ActiveProject.Resources(R).Name & ", " & Names
Next R
Names = Left$(Names, Len(Names) - Len(ListSeparator & " "))
MsgBox Names
Usando a coleção Resources
Use a propriedade Resources para retornar uma coleção Resources. O seguinte exemplo gera a mesma lista que o exemplo anterior, mas faz isso definindo uma referência de objeto ActiveProject.Resources e, em seguida, usando o R onde ActiveProject.Resources é usado.
Dim R As Resources, Temp As Long, Names As String
Set R = ActiveProject.Resources
For Temp = 1 To R.Count
Names = R(Temp).Name & ", " & Names
Next Temp
Names = Left$(Names, Len(Names) - Len(ListSeparator & " "))
MsgBox Names
Use o método Add para adicionar um objeto de recurso à coleção Resources. O exemplo a seguir adiciona um novo recurso chamado Matilda ao projeto ativo.
ActiveProject.Resources.Add "Matilda"
Métodos
| Nome |
|---|
| Add |
Propriedades
| Nome |
|---|
| Aplicativo |
| Count |
| Item |
| Responsável |
| UniqueID |
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.