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.

Sintaxe

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

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

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 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)

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.