Método Page.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.
expressão. Drop (ObjectToDrop, xPos, yPos)
Expressão Uma variável que representa um objeto Page .
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. |
Forma
A utilização do método Drop é semelhante a mover uma forma com o mouse. O objeto solto (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 ou Page, respectivamente. 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.
Se sua solução do Visual Studio incluir a referência Microsoft.Office.Interop.Visio , este método será mapeado para os seguintes tipos:
- Microsoft.Office.Interop.Visio.IVPage.Drop(object, double, double)
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
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.