ShapeRange.Value-Eigenschaft (Project)

Ruft ein einzelnes Shape-Objekt in der ShapeRange-Auflistung ab. Schreibgeschütztes Shape.

Syntax

Ausdruck verwendet werden. Wert

Ausdruck Eine Variable, die ein 'ShapeRange'-Objekt darstellt.

Hinweise

Der Wert ist die Standardeigenschaft für ein ShapeRange-Objekt .

Beispiel

Im folgenden Beispiel wird ein Bericht mit dem Namen "Testbericht" erstellt, zwei Shapes erstellt und die Shapes dann einem ShapeRange-Objekt hinzugefügt. Die Anweisung, die mit sRange.Value(1) beginnt, ruft die erste Form im Formbereich ab. Die Anweisung, die mit sRange(2) beginnt, ruft die Standardwerteigenschaft auf und ruft das zweite Shape im Formbereich ab.

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

Eigenschaftswert

SHAPE

Siehe auch

ShapeRange-ObjektFormobjekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.