Método ShapeRange.Duplicate (PowerPoint)
Crea un duplicado del objeto ShapeRange especificado, agrega el intervalo de formas a la colección Shapes y, a continuación, devuelve el nuevo objeto ShapeRange. Los objetos duplicados se colocan al final de la colección Shapes.
Sintaxis
expresión. Duplicado
Expresión Variable que representa un objeto ShapeRange .
Valor devuelto
ShapeRange
Ejemplo:
En este ejemplo se agrega una nueva diapositiva en blanco al final de la presentación activa, se agrega una forma de rombo a la nueva diapositiva, se duplica el rombo y, a continuación, se establecen las propiedades del duplicado. El primer diamante tendrá el color de relleno predeterminado para la combinación de colores activa; el segundo diamante se compensará con respecto al primero y tendrá el color de sombra predeterminado.
Set mySlides = ActivePresentation.Slides
Set newSlide = mySlides.Add(mySlides.Count + 1, ppLayoutBlank)
Set firstObj = newSlide.Shapes _
.AddShape(msoShapeDiamond, 10, 10, 250, 350)
With firstObj.Duplicate
.Left = 150
.Fill.ForeColor.SchemeColor = ppShadow
End With
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.