Método Slides.Range (PowerPoint)
Devuelve un objeto SlideRange que representa un subconjunto de las diapositivas de una colección Slides.
Sintaxis
expresión. Intervalo (índice)
Expresión Variable que representa un objeto Slides .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Index | Opcional | Variant | Las diapositivas individuales que se incluirán en el intervalo. Puede ser un número entero que especifica el número de índice de la diapositiva, una cadena que especifica el nombre de la diapositiva o una matriz que contenga números enteros o cadenas. Si se omite este argumento, el método Range devuelve todos los objetos de la colección especificada. |
Valor devuelto
SlideRange
Comentarios
Aunque puede utilizar el método Range para devolver cualquier número de formas o diapositivas, es más sencillo utilizar el método Item si sólo desea devolver a un único miembro de la colección. Por ejemplo, Shapes(1) es más simple que Shapes.Range(1)y Slides(2) es más simple que Slides.Range(2).
Para especificar una matriz de enteros o cadenas para Index, puede usar la función Array. Por ejemplo, la siguiente instrucción devuelve dos formas especificadas por nombre.
Dim myArray() As Variant, myRange As Object myArray = Array("Oval 4", "Rectangle 5") Set myRange = ActivePresentation.Slides(1).Shapes.Range(myArray)
Ejemplo:
En este ejemplo se establece el color del título para las diapositivas uno y tres.
Set mySlides = ActivePresentation.Slides.Range(Array(1, 3))
mySlides.ColorScheme.Colors(ppTitle).RGB = RGB(0, 255, 0)
En este ejemplo se establece el color del título para las diapositivas denominadas "Slide6" y "Slide8".
Set mySlides = ActivePresentation.Slides _
.Range(Array("Slide6", "Slide8"))
mySlides.ColorScheme.Colors(ppTitle).RGB = RGB(0, 255, 0)
En este ejemplo se establece el color del título para todas las diapositivas de la presentación activa.
Set mySlides = ActivePresentation.Slides.Range
mySlides.ColorScheme.Colors(ppTitle).RGB = RGB(255, 0, 0)
En este ejemplo se crea una matriz que contiene todas las diapositivas con título de la presentación activa, se utiliza la matriz para definir un intervalo de diapositivas y, a continuación, se establece el color del título de todas las diapositivas del intervalo.
Dim MyTitleArray() As Long
Set pSlides = ActivePresentation.Slides
ReDim MyTitleArray(1 To pSlides.Count)
For Each pSlide In pSlides
If pSlide.Layout = ppLayoutTitle Then
nCounter = nCounter + 1
MyTitleArray(nCounter) = pSlide.SlideIndex
End If
Next pSlide
ReDim Preserve MyTitleArray(1 To nCounter)
Set rngTitleSlides = ActivePresentation.Slides.Range(MyTitleArray)
rngTitleSlides.ColorScheme.Colors(ppTitle).RGB = RGB(255, 123, 99)
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.