Propriedade ShapeRange.Value (projeto)

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

Sintaxe

mais simples. Valor

expressão Uma variável que representa um objeto "ShapeRange".

Comentários

Value é a propriedade padrão de 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

ShapeRange ObjetoForma Objeto

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.