Método Shape.Drop (Visio)
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.