Propiedad Selection.ShapeRange (Publisher)

Devuelve una colección ShapeRange que representa todos los objetos Shape de la selección o intervalo especificado. El intervalo de formas puede incluir dibujos, formas, imágenes, objetos OLE, controles ActiveX, objetos de texto y llamadas.

Sintaxis

expresión. ShapeRange

expresión Variable que representa un objeto Selection .

Valor devuelto

ShapeRange

Ejemplo

En el siguiente ejemplo se establece la trama de relleno de todas las formas de la selección. En este ejemplo se supone que se seleccionan una o varias formas en la publicación activa.

Sub ChangeFillForShapeRange() 
 Selection.ShapeRange.Fill.Patterned Pattern:=msoPattern20Percent 
End Sub

En el siguiente ejemplo se aplica formato sombra y negrita a todas las formas de la selección. En este ejemplo se supone que se seleccionan una o varias formas en la publicación activa.

Sub SetShadowForSelectedShapes() 
 With Selection.ShapeRange 
 .Shadow.Type = msoShadow6 
 .Fill.Patterned Pattern:=msoPatternDottedDiamond 
 End With 
End Sub

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.