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
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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de