Propriété ShapeRange.Value (Project)

Article
04/07/2023

Obtient un objet Shape individuel dans la collection ShapeRange . Forme en lecture seule.

Syntaxe

expression. Valeur

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

Remarques

Value est la propriété par défaut d’un objet ShapeRange .

Exemple

L’exemple suivant crée un rapport nommé « Rapport de test », crée deux formes, puis ajoute les formes à un objet ShapeRange . L’instruction qui commence sRange.Value(1) par obtient la première forme de la plage de formes. L’instruction qui commence sRange(2) par appelle la propriété Value par défaut et obtient la deuxième forme dans la plage de formes.

Sub TestShapeRangeValue()
    Dim theReport As Report
    Dim textShape1 As shape
    Dim textShape2 As shape
    Dim reportName As String
    Dim sRange As ShapeRange
    
    reportName = "Test Report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set textShape1 = theReport.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 50, 350, 80)
    textShape1.Name = "Text box 1"
    
    Set textShape2 = theReport.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 130, 350, 80)
    textShape2.Name = "Text box 2"
    
    Set sRange = theReport.Shapes.Range(Array("Text box 1", "Text box 2"))
    
    sRange.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
        
    sRange.Value(1).TextFrame2.TextRange.Text = "This is a test. It's only a test."
    sRange(2).TextFrame2.TextRange.Text = "This is text box 2."
End Sub

Valeur de la propriété

SHAPE

Voir aussi

ShapeRange, objet Shape, objet

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