Shape.Duplicate, méthode (Project)

Duplique une forme et retourne une référence à la copie.

Syntaxe

expression. Double

Expression Variable qui représente un objet Shape .

Valeur renvoyée

Forme

Exemple

L’exemple suivant utilise le rapport créé par l’exemple de code dans la méthode Shape.Apply . L’exemple duplique une forme, puis fait pivoter, retourne horizontalement et sélectionne la nouvelle forme. Le décalage horizontal et le décalage vertical de la nouvelle forme sont tous deux de 12 points.

Sub DuplicateShape()
    Dim theReport As Report
    Dim shp1 As shape
    Dim duplicatedShape As shape
    Dim reportName As String
    
    reportName = "Apply Report"
    
    Set theReport = ActiveProject.Reports(reportName)
    Set shp1 = theReport.Shapes(1)
    
    Set duplicatedShape = shp1.Duplicate
    
    pos1 = shp1.left
    pos2 = duplicatedShape.left
    Debug.Print "Horizontal offset: " & CStr(pos2 - pos1)
    
    pos1 = shp1.top
    pos2 = duplicatedShape.top
    Debug.Print "Vertical offset: " & CStr(pos2 - pos1)
   
    duplicatedShape.Rotation = 30
    duplicatedShape.Flip msoFlipHorizontal
    
    duplicatedShape.Select
End Sub

Voir aussi

Shape, objetShapeRange.Duplicate, méthode

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.