Propriedade ShapeRange.Value (Project)

Obtém um objeto Shape individual na coleção ShapeRange . Forma somente leitura.

Sintaxe

expressão. Valor

Expressão Uma variável que representa um objeto 'ShapeRange'.

Comentários

Valor é a propriedade padrão para um objeto ShapeRange .

Exemplo

O exemplo a seguir cria um relatório chamado "Relatório de Teste", cria duas formas e adiciona as formas a um objeto ShapeRange . A instrução que começa com sRange.Value(1) obtém a primeira forma no intervalo de formas. A instrução que começa com sRange(2) invoca a propriedade Value padrão e obtém a segunda forma no intervalo de formas.

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

Valor de propriedade

FORMA

Confira também

Objeto ShapeRange ObjectShape

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.