Objetos devueltos de colecciones

El método Item devuelve un solo objeto de una colección. En el ejemplo siguiente se establece la variable firstPres en un objeto Presentation que representa una variable de presentación en un objeto Presentation que representa la presentación uno.

Set firstPres = Presentations.Item(1)

El método Item es el método predeterminado para la mayoría de las colecciones, de modo que se puede escribir la misma instrucción más brevemente si se omite la palabra clave Item.

Set firstPres = Presentations(1)

Para obtener más información acerca de una colección determinada, vea el tema de Ayuda de dicha colección o el método Item de la colección.

Objetos con nombre

Aunque normalmente pueden especificarse valores de números enteros con el método Item, quizás sea más aconsejable devolver un objeto por su nombre. A la mayoría de los objetos se les da nombre automáticamente al ser creados. Por ejemplo, la primera diapositiva que cree se denominará automáticamente "Slide1". Si las dos primeras formas que creas son un rectángulo y un óvalo, sus nombres predeterminados serán "Rectángulo 1" y "Oval 2". Quizás desee dar al objeto un nombre más descriptivo para que después sea más fácil hacer referencia a él. Normalmente, esto se realiza estableciendo la propiedad Name del objeto. En el ejemplo siguiente, se establece un nombre descriptivo para una diapositiva cuando se agrega. A continuación, puede usar el nombre en lugar del número de índice para hacer referencia a la diapositiva.

ActivePresentation.Slides.Add(1, 1).Name = "Home Page Slide"
With ActivePresentation.Slides("Home Page Slide")
    .FollowMasterBackground = False
    .Background.Fill.PresetGradient _
        msoGradientDiagonalDown, 1, msoGradientBrass
End With

Valores de índice predefinidos

Algunas colecciones tienen valores de índice predefinidos, que pueden emplearse para devolver objetos únicos. Cada valor de índice predefinido está representado por una constante. Por ejemplo, especifique una constante PpTextStyleType con el método Item de la colección TextStyles para devolver un único estilo de texto.

En el ejemplo siguiente, se establecen los márgenes del área del cuerpo de las diapositivas de la presentación activa.

With ActivePresentation.SlideMaster _
        .TextStyles(ppBodyStyle).TextFrame
    .MarginBottom = 50
    .MarginLeft = 50
    .MarginRight = 50
    .MarginTop = 50
End With

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.