Compartilhar via


Método Selection.BoundingBox (Visio)

Retorna um retângulo que fecha hermeticamente as formas de uma seleção.

Sintaxe

expressão. BoundingBox( _Flags_ , _lpr8Left_ , _lpr8Bottom_ , _lpr8Right_ , _lpr8Top_ )

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Flags Obrigatório Integer Sinalizadores que influenciam a caixa de limite calculada para cada forma que contribui para a caixa de limite resultante.
lpr8Left Obrigatório Double Retorna a coordenada x da borda esquerda da caixa de limite.
lpr8Bottom Obrigatório Double Retorna a coordenada y da borda inferior da caixa de limite.
lpr8Right Obrigatório Double Retorna a coordenada x da borda direita da caixa de limite.
lpr8Top Obrigatório Double Retorna a coordenada y da borda superior da caixa de limite.

Valor de retorno

Nada

Comentários

Para um objeto Shape, o método BoundingBox retorna um retângulo que fecha hermeticamente a forma e suas subformas.

Para um objeto Page, Master ou Selection, o método BoundingBox retorna um retângulo que inclui as formas da página, do mestre ou da seleção, e suas subpastas.

Se o método BoundingBox retornar um erro ou se for solicitado que ele retorne o retângulo que contém formas zero, o retângulo retornado será { esquerda: 0, inferior: 0, direita: -1, superior: -1 }; caso contrário, o retângulo retornado deixou menos ou igual a (<=) à direita e inferior menor ou igual a (<=) superior. Os números retornados estão em unidades internas (polegadas).

O retângulo de limite retornado para uma forma individual depende de sua propriedade Type.

Constante Descrição
visTypePage Equivalente a Page.BoundingBox ou Master.BoundingBox.
visTypeGroup Retângulo que fecha hermeticamente o grupo e suas subpastas.
visTypeShape O retângulo determinado depende dos sinalizadores. Consulte a tabela a seguir.
visTypeForeignObject O retângulo determinado depende dos sinalizadores. Consulte a tabela a seguir.
visTypeGuide O retângulo determinado depende dos sinalizadores. Consulte a tabela a seguir.

O método levantará uma exceção para o tipo de objeto visTypeDoc.

O argumento Flags tem vários bits que controlam a caixa de limite recuperada para cada forma. Se mais de um dos bits descritos na tabela a seguir forem definidos, o retângulo determinado para a forma cobrirá todos os retângulos implicados pelos bits.

Flag Valor Descrição
visBBoxUprightWH &H1 Retorna um retângulo que é o menor retângulo paralelo ao sistema de coordenadas local do pai da forma que inclui a caixa largura-altura da forma.Se a forma não for girada, sua caixa largura-altura vertical e sua caixa largura altura serão iguais. Os caminhos na geometria da forma não precisam e muitas vezes não estão inteiramente dentro da caixa de altura de largura da forma.
visBBoxUprightText &H2 Retorna um retângulo que é o menor retângulo paralelo ao sistema de coordenadas local do pai da forma que inclui o texto da forma.
visBBoxExtents &H4 Retorna um retângulo que é o menor retângulo paralelo ao sistema de coordenadas local do pai da forma que inclui os caminhos traçados pela geometria da forma.Isso pode ser maior ou menor que a caixa largura-altura vertical da forma. A caixa de extensões determinada para uma forma do tipo visTypeForeignObject é igual à caixa largura-altura vertical dessa forma.
visBBoxIncludeHidden &H10 Inclui geometria oculta.
visBBoxIgnoreVisible &H20 Ignora geometria visível.
visBBoxIncludeDataGraphics &H10000 Inclui as formas de texto explicativo do gráfico de dados (e suas subformas) aplicadas às formas da seleção. Desativado por padrão.
visBBoxIncludeGuides &H1000 Inclui extensões para formas do tipo visTypeguide. Por padrão, as extensões de formas do tipo visTypeGuide são ignoradas. Se você solicitar extensões de guia, somente as posições x de guias verticais e as posições y de guias horizontais contribuem para o retângulo retornado. Se alguma guia vertical for relatada, uma extensão y infinita será retornada. Se alguma guia horizontal for relatada, uma extensão x infinita será retornada. Se alguma guia girada for relatada, extensões x e y infinitas serão retornadas.
visBBoxDrawingCoords &H2000 Retorna números no sistema de coordenadas de desenho da página ou mestre cujas formas são consideradas. Por padrão, os números retornados são unidades de desenho no sistema de coordenadas local do pai das formas consideradas.
visBBoxNoNonPrint &H4000 Ignora as extensões das formas não-imprimíveis. Uma forma será não-imprimível se o valor de sua célula NonPrinting for diferente de zero ou se ela pertencer apenas a camadas não-imprimíveis.

O retângulo das extensões é determinado usando o centro dos traços da forma; ele não leva em conta a largura dos traços. O retângulo também não inclui nenhuma área coberta por sombras ou marcadores de extremidades de linhas. O Microsoft Visio não expõe um meio para determinar a caixa "bits pretos" de uma forma, ou seja, a caixa de extensões ajustada para levar em conta as larguras dos traços, sombras e extremidades de linhas.

Uma forma pode ter pontos de controle ou pontos de conexão que ficam fora de qualquer dos retângulos de limite relatados pela forma. Você pode determinar a posição de pontos de controle e pontos de conexão consultando os resultados das células da forma.

Exemplo

O procedimento a seguir imprime as dimensões da caixa de limite da forma selecionada na janela Immediate. Se mais de uma forma estiver selecionada na janela ativa, será exibida uma caixa de mensagem indicando um erro. Em todos os casos, os resultados serão relatados nas unidades de desenho da página ou do mestre ao qual a forma pertence. Isso significa que se a forma for uma subforma de um grupo, visBBoxDrawingCoords será passado como um sinalizador para o método BoundingBox.

Se a forma for uma guia, o procedimento passará visBBoxIncludeGuides para o método BoundingBox para que a forma seja considerada como tendo extensão. Três retângulos são relatados para a forma:

  • visBBoxUprightWH : uma caixa vertical que inclui a caixa de altura de largura da forma

  • visBBoxUprightText : uma caixa vertical que inclui a caixa de texto da forma

  • visBBoxExtents : uma caixa vertical que inclui os caminhos da forma

Para executar esta macro, certifique-se de que exatamente uma forma esteja selecionada na página de desenho do Visio.

 
Public Sub BoundingBox_Example() 
 
 Dim vsoSelection As Visio.Selection 
 Set vsoSelection = ActiveWindow.Selection 
 vsoSelection.IterationMode = visSelModeSkipSub 
 
 If vsoSelection.Count <> 1 Then 
 MsgBox "BoundingBox_Example() expects exactly one selected shape." 
 
 Else 
 
 Dim vsoShape As Visio.Shape 
 Set vsoShape = vsoSelection(1) 
 Dim intFlags As Integer 
 intFlags = 0 
 
 If vsoShape.ContainingShape.Type = visTypeGroup Then 
 
 intFlags = visBBoxDrawingCoords 
 
 End If 
 
 If vsoShape.Type = visTypeGuide Then 
 
 intFlags = intFlags + visBBoxIncludeGuides 
 
 End If 
 
 Dim dblTop As Double 
 Dim dblBottom As Double 
 Dim dblLeft As Double 
 Dim dblRight As Double 
 
 vsoShape.BoundingBox intFlags + visBBoxUprightWH, dblLeft, dblBottom, dblRight, dblTop 
 Debug.Print "Upright WH "; _ 
 "dblLeft:" & Application.FormatResult(dblLeft, "in", "", "#0.00 u"); _ 
 "dblBottom:" & Application.FormatResult(dblBottom, "in", "", "#0.00 u"); _ 
 "dblRight:" & Application.FormatResult(dblRight, "in", "", "#0.00 u"); _ 
 "dblTop:" & Application.FormatResult(dblTop, "in", "", "#0.00 u") 
 
 vsoShape.BoundingBox intFlags + visBBoxUprightText, dblLeft, dblBottom, dblRight, dblTop 
 Debug.Print "Upright text "; _ 
 "dblLeft:" & Application.FormatResult(dblLeft, "in", "", "#0.00 u"); _ 
 "dblBottom:" & Application.FormatResult(dblBottom, "in", "", "#0.00 u"); _ 
 "dblRight:" & Application.FormatResult(dblRight, "in", "", "#0.00 u"); _ 
 "dblTop:" & Application.FormatResult(dblTop, "in", "", "#0.00 u") 
 
 vsoShape.BoundingBox intFlags + visBBoxExtents, dblLeft, dblBottom, dblRight, dblTop 
 Debug.Print "Bounding Box "; _ 
 "dblLeft:" & Application.FormatResult(dblLeft, "in", "", "#0.00 u"); _ 
 "dblBottom:" & Application.FormatResult(dblBottom, "in", "", "#0.00 u"); _ 
 "dblRight:" & Application.FormatResult(dblRight, "in", "", "#0.00 u"); _ 
 "dblTop:" & Application.FormatResult(dblTop, "in", "", "#0.00 u") 
 
 End If 
 
End Sub

A macro a seguir usa o método BoundingBox e a função ShapesOverlap() para determinar se uma forma (vsoShape2) sobrepõe outra (vsoShape1).

Public Sub OverlappingShapes_Example() 
 
 Dim vsoShape1 As Visio.Shape 
 Dim vsoShape2 As Visio.Shape 
 Dim blsIsOverlapping As Boolean 
 
 
 Set vsoShape1 = Application.ActiveWindow.Page.Drop(Application.Documents.Item("BASIC_U.VSS").Masters.ItemU("Square"), 3, 9) 
 
 Set vsoShape2 = Application.ActiveWindow.Page.Drop(Application.Documents.Item("BASIC_U.VSS").Masters.ItemU("Pentagon"), 3, 8) 
 
 blsIsOverlapping = ShapesOverlap(vsoShape2, vsoShape1) 
 
 If blsIsOverlapping Then 
 Debug.Print "Shapes overlap." 
 Else 
 Debug.Print "Shapes don't overlap." 
 End If 
 
End Sub 
 
 
Private Function ShapesOverlap(vsoShape1 As IVShape, vsoShape2 As IVShape) As Boolean 
 
 Dim dblLeft1 As Double 
 Dim dblLeft2 As Double 
 Dim dblBottom1 As Double 
 Dim dblBottom2 As Double 
 Dim dblRight1 As Double 
 Dim dblRight2 As Double 
 Dim dblTop1 As Double 
 Dim dblTop2 As Double 
 
 vsoShape1.BoundingBox Flags + visBBoxExtents, dblLeft1, dblBottom1, dblRight1, dblTop1 
 vsoShape2.BoundingBox Flags + visBBoxExtents, dblLeft2, dblBottom2, dblRight2, dblTop2 
 
 If ((dblLeft2 >= dblLeft1 And dblLeft2 <= dblRight1) Or _ 
 (dblRight2 >= dblLeft1 And dblRight2 <= dblRight1)) And _ 
 ((dblTop2 >= dblBottom1 And dblTop2 <= dblTop1) Or _ 
 (dblBottom2 >= dblBottom1 And dblBottom2 <= dblTop1)) Then 
 ShapesOverlap = True 
 Else 
 ShapesOverlap = False 
 End If 
 
End Function

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.