Método Shape.Drop (Visio)

  • Artigo

Cria um ou mais novos objetos Shape soltando um objeto em um objeto receptor, como um mestre, uma página de desenho, forma ou grupo.

Sintaxe

expressão. Drop (ObjectToDrop, xPos, yPos)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
ObjectToDrop Obrigatório [DESCONHECIDO] O objeto ou seleção a serem soltos. Normalmente, esse é um objeto do Visio, como um objeto Master, Shape ou Selection, mas pode ser qualquer objeto OLE que forneça uma interface IDataObject.
Xpos Obrigatório Double A coordenada x na qual deve ser colocado o centro da largura da forma ou PinX.
Ypos Obrigatório Double A coordenada y na qual deve ser colocado o centro da altura da forma ou PinY.

Valor de retorno

Forma

Comentários

A utilização do método Drop é semelhante a mover uma forma com o mouse. O objeto descartado ( ObjectToDrop) pode ser um mestre ou uma forma na página de desenho.

Para adicionar uma forma a um grupo ou em uma página de desenho, aplique o método Drop a um objeto Shape. O centro da caixa largura-altura da forma é posicionado nas coordenadas especificadas, e um objeto Shape que representa a forma criada é retornado. Ao aplicar esse método a um objeto Shape, certifique-se de que o objeto Shape represente um grupo.

Se ObjectToDrop for um Master, o marco do mestre será solto nas coordenadas especificadas. Frequentemente, mas não necessariamente, o marco de um mestre está no seu centro de rotação.

Exemplo

O exemplo a seguir mostra como usar o método Drop para soltar formas sobre objetos Page e Shape.

 
Public Sub Drop_Example() 
 
 Dim vsoShape1 As Visio.Shape 
 Dim vsoShape2 As Visio.Shape 
 Dim vsoShape3 As Visio.Shape 
 Dim vsoGroupShape As Visio.Shape 
 Dim vsoSubShape As Visio.Shape 
 Dim vsoSelection As Visio.Selection 
 
 Set vsoShape1 = ActivePage.DrawRectangle(1, 2, 2, 1) 
 Set vsoShape2 = ActivePage.DrawRectangle(1, 4, 2, 3) 
 
 'Drop a shape on the page. 
 Set vsoShape3 = ActivePage.Drop(vsoShape1, 3.5, 3.5) 
 
 'Make sure only one shape is selected to start. 
 Set vsoSelection = ActiveWindow.Selection 
 vsoSelection.Select vsoShape1, visDeselectAll + visSelect 
 vsoSelection.Select vsoShape2, visSelect 
 
 'Create a group shape. 
 Set vsoGroupShape = vsoSelection.Group 
 
 'Drop a shape on the group shape to create a new subshape. 
 Set vsoSubShape = vsoGroupShape.Drop(vsoShape3, 1, 2) 
 
End Sub

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.