Método Shape.Duplicate (PowerPoint)

Crea un duplicado del objeto Shape especificado, agrega la nueva forma a la colección Shapes y, a continuación, devuelve un 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 Shape.

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

Vea también

Objeto Shape

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.