Objeto Resources (Project)

Contiene un conjunto de objetos Resource.

Ejemplo

Uso del conjunto Resources

Use Resources (index), donde index es el número de índice de recursos o el nombre del recurso, para devolver un único objeto Resource . En el ejemplo siguiente se enumeran los nombres de todos los recursos del proyecto activo.

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

Uso del conjunto Resources

Utilice la propiedad Resources para devolver una colección de recursos. En el ejemplo siguiente se genera la misma lista que en el ejemplo anterior, pero estableciendo una referencia de objeto a ActiveProject.Resources y, a continuación, utilizando R donde se utiliza ActiveProject.Resources para ello.

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

Utilice el método Add para agregar un objeto Resource a la colección de recursos. En el ejemplo siguiente se agrega un nuevo recurso denominado a Matilda al proyecto activo.

ActiveProject.Resources.Add "Matilda"

Métodos

Nombre
Add

Propiedades

Nombre
Aplicación
Count
Elemento
Parent
UniqueID

Vea también

Modelo de objetos de Project

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.