Objeto Selection (PowerPoint)
Representa la selección en la ventana del documento especificado. El objeto Selection se elimina siempre que se cambien las diapositivas en una vista Diapositiva activa; la propiedad Type devolverá ppSelectionNone.
Ejemplo:
Use la propiedad Selection para devolver el objeto Selection. En el ejemplo siguiente se coloca una copia de la selección en la ventana activa en el Portapapeles.
ActiveWindow.Selection.Copy
Utilice la propiedad ShapeRange, SlideRange o TextRange para devolver un intervalo de formas, diapositivas o texto de la selección.
En el siguiente ejemplo se establece el color de primer plano del relleno de las formas seleccionadas en la ventana dos, suponiendo que haya al menos una forma seleccionada y que todas las formas seleccionadas tengan un relleno cuyo color de primer plano pueda establecerse.
With Windows(2).Selection.ShapeRange.Fill
.Visible = True
.ForeColor.RGB = RGB(255, 0, 255)
End With
En el siguiente ejemplo se establece el texto de la primera forma seleccionada de la ventana dos, si dicha forma contiene un marco de texto.
With Windows(2).Selection.ShapeRange(1)
If .HasTextFrame Then
.TextFrame.TextRange = "Current Choice"
End If
End With
En el siguiente ejemplo se corta el texto seleccionado de la ventana activa y se envía al Portapapeles.
ActiveWindow.Selection.TextRange.Cut
En el ejemplo siguiente se duplican todas las diapositivas de la selección (si está en la vista de diapositivas, se duplica la diapositiva actual).
ActiveWindow.Selection.SlideRange.Duplicate
Si no tienes un objeto del tipo adecuado al utilizar una de estas propiedades (por ejemplo, si utiliza la propiedad ShapeRange cuando no hay ninguna forma seleccionada), se produce un error. Utilice la propiedad Type para determinar qué tipo de objeto u objetos están seleccionados. En el siguiente ejemplo se comprueba si la selección contiene diapositivas. Si la selección contiene diapositivas, en el ejemplo se establece el fondo de la primera diapositiva de la selección.
With Windows(2).Selection
If .Type = ppSelectionSlides Then
With .SlideRange(1)
.FollowMasterBackground = False
.Background.Fill.PresetGradient _
msoGradientHorizontal, 1, msoGradientLateSunset
End With
End If
End With
Métodos
| Nombre |
|---|
| Copy |
| Cut |
| Delete |
| Anular la selección |
Propiedades
| Nombre |
|---|
| Application |
| ChildShapeRange |
| HasChildShapeRange |
| Parent |
| ShapeRange |
| SlideRange |
| TextRange |
| TextRange2 |
| Type |
Vea también
Referencia del modelo de objetos de PowerPoint
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.