Propriété ShapeRange.Value (projet)

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

Syntaxe

expression. Value (Valeur)

expression Variable qui représente un objet 'ShapeRange'.

Remarques

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

Exemple

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

Objet ShapeRangeObjet Forme

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.