Свойство ShapeRange.Value (Project)

Статья
04/07/2023

Возвращает отдельный объект Shape в коллекции ShapeRange . Фигура, доступная только для чтения.

Синтаксис

expression. Значение

Выражение Переменная, представляющая объект ShapeRange.

Замечания

Значение является свойством по умолчанию для объекта ShapeRange .

Пример

В следующем примере создается отчет с именем "Тестовый отчет", создаются две фигуры, а затем фигуры добавляются в объект ShapeRange . Инструкция, начинающаяся с sRange.Value(1) , получает первую фигуру в диапазоне фигур. Инструкция, начинающаяся с sRange(2) , вызывает свойство Value по умолчанию и получает вторую фигуру в диапазоне фигур.

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

Значение свойства

ФОРМЫ

См. также

Объект ShapeRange Object Shape

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через