Método Shape.Duplicate (PowerPoint)

  • Artículo

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

Consulte 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.