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 |
Consulte también
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.