ShapeRange.Duplicate, méthode (Project)

Article
04/07/2023

Duplique une plage de formes et retourne une référence à la copie.

Syntaxe

expression. Double

Expression Variable qui représente un objet « ShapeRange ».

Valeur renvoyée

ShapeRange

Remarques

Le décalage horizontal et le décalage vertical de la plage de formes dupliquées sont tous les deux 12 points de la plage de formes d’origine.

Exemple

L’exemple suivant utilise le rapport créé par l’exemple de code dans la méthode ShapeRange.Apply . L’exemple duplique une plage de formes qui contient deux formes, puis retourne verticalement et sélectionne la nouvelle plage de formes.

Sub DuplicateShapeRange()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim shp3 As shape
    Dim reportName As String
    Dim sRange1 As ShapeRange
    Dim sRange2 As ShapeRange
    
    reportName = "Apply Report"
    
    Set theReport = ActiveProject.Reports(reportName)
    Set shp1 = theReport.Shapes(1)
    Set shp2 = theReport.Shapes(2)
    Set shp3 = theReport.Shapes(3)
    
    Set sRange1 = theReport.Shapes.Range(Array(2, 3))
    
    Set sRange2 = sRange1.Duplicate()
    
    sRange2.Flip msoFlipVertical
    sRange2.Select
End Sub

Voir aussi

ShapeRange, objet Shape.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.

Partager via