Objeto Recursos (Projeto)

Contém uma coleção de objetos Resource.

Exemplo

Usando a coleção Resources

Utilize Recursos (índice), em que o índice é o número do índice de recursos ou o nome do recurso, para devolver um único objeto de Recurso . 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

Modelo de objeto do projeto

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.