Propiedad Master.Shapes (PowerPoint)

Devuelve una colección Shapes que representa todos los elementos que se han colocado o insertados en la diapositiva especificada, patrón de diapositivas o intervalo de diapositivas. Solo lectura.

Sintaxis

expresión. Formas

Expresión Variable que representa un objeto Master .

Valor devuelto

Formas

Comentarios

La colección de formas devuelta puede contener los dibujos, formas, OLE objetos, imágenes, objetos de texto, títulos, encabezados, pies de página, números de diapositiva y objetos de fecha y hora en una diapositiva o en la imagen de diapositiva de una página de notas.

Ejemplo:

En este ejemplo se agrega un rectángulo que tiene un ancho de 100 puntos y un alto de 50 puntos y cuya esquina superior izquierda está a 5 puntos desde el borde izquierdo de la diapositiva uno de la presentación activa y a 25 puntos desde la parte superior de la diapositiva.

Set firstSlide = ActivePresentation.Slides(1)

firstSlide.Shapes.AddShape msoShapeRectangle, 5, 25, 100, 50

Este ejemplo establece la textura de relleno para la forma tres de la diapositiva uno en la presentación activa.

Set newRect = ActivePresentation.Slides(1).Shapes(3)

newRect.Fill.PresetTextured msoTextureOak

Suponiendo que la diapositiva uno de la presentación activa contiene un título, tanto la segunda como la tercera línea de código del ejemplo siguiente establecen el texto del título en la diapositiva uno de la presentación.

Set firstSl = ActivePresentation.Slides(1)

firstSl.Shapes.Title.TextFrame.TextRange.Text = "Some title text"

firstSl.Shapes(1).TextFrame.TextRange.Text = "Other title text"

Suponiendo que la forma dos de la diapositiva dos de la presentación activa contiene un marco de texto, en el siguiente ejemplo se agrega una serie de párrafos a la diapositiva. Tenga en cuenta que Chr(13) se usa para insertar marcas de párrafo dentro del texto.

Set tShape = ActivePresentation.Slides(2).Shapes(2)

tShape.TextFrame.TextRange.Text = "First Item" & Chr(13) & _
    "Second Item" & Chr(13) & "Third Item"

Para la mayoría de diseños de diapositivas, las primeras formas de la diapositiva son marcadores de posición de texto y en el siguiente ejemplo se realiza la misma tarea que en el ejemplo anterior.

Set testShape = ActivePresentation.Slides(2).Shapes.Placeholders(2)

testShape.TextFrame.TextRange.Text = "First Item" & _
    Chr(13) & "Second Item" & Chr(13) & "Third Item"

Consulte también

Master (objeto)

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.