Table of contents
TOC
Recolher sumário
Expandir sumário

Método ShapeRange.Select (projeto)ShapeRange.Select Method (Project)

office 365 dev account|Última Atualização: 29/09/2017
|
1 Colaborador

Seleciona a cada forma em um intervalo de formas.Selects each shape in a shape range.

SintaxeSyntax

expressão. Selecione(Substitua)expression. Select(Replace)

expressão Uma variável que representa um objeto ShapeRange .expression A variable that represents a ShapeRange object.

ParâmetrosParameters

NomeNameObrigatório/opcionalRequired/OptionalTipo de dadosData typeDescriçãoDescription
ReplaceReplaceOpcionalOptionalVariantVariantTrue substitui a seleção atual com a nova seleção. False adiciona a nova seleção à seleção atual. O valor padrão é True.True replaces the current selection with the new selection. False adds the new selection to the current selection. The default value is True.
ReplaceReplaceOpcionalOptionalVARIANTVARIANT

Valor de retornoReturn value

NothingNothing

ExemploExample

O exemplo a seguir cria três formas, atribui duas formas ao primeiro intervalo, atribui a outra forma para o segundo intervalo e, em seguida, seleciona os intervalos de forma. Como a seleção do segunda intervalo adiciona à seleção intervalo primeira, todas as três formas são selecionado (consulte a Figura 1).The following example creates three shapes, assigns two shapes to the first range, assigns the other shape to the second range, and then selects the shape ranges. Because the second range selection adds to the first range selection, all three shapes are selected (see Figure 1).

Sub SelectShapes()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim shp3 As shape
    Dim reportName As String
    Dim sRange1 As ShapeRange
    Dim sRange2 As ShapeRange

    reportName = "Select Report"

    Set theReport = ActiveProject.Reports.Add(reportName)
    Set shp1 = theReport.Shapes.AddShape(msoShapeActionButtonHelp, 20, 50, 20, 30)
    Set shp2 = theReport.Shapes.AddShape(msoShapeBalloon, 100, 50, 30, 50)
    Set shp3 = theReport.Shapes.AddShape(msoShapeWave, 140, 50, 30, 50)

    Set sRange1 = theReport.Shapes.Range(Array(2, 3))
    Set sRange2 = theReport.Shapes.Range(1)

    sRange1.Select
    sRange2.Select False
End Sub

Figura 1. Usar o método Select para adicionar a uma seleçãoFigure 1. Using the Select method to add to a selection

Using the Select method to add a selection

Veja tambémSee also

Outros recursosOther resources

Objeto ShapeRangeShapeRange Object

© 2018 Microsoft