Método Page.Drop (Visio)

Crea uno o más objetos Shape colocando un objeto en un objeto receptor, como un patrón, una página de dibujo, una forma o un grupo.

Sintaxis

expresión. Drop (ObjectToDrop, xPos, yPos)

Expresión Variable que representa un objeto Page .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
ObjectToDrop	Obligatorio	[UNKNOWN]	Objeto o selección que se va a colocar. Aunque normalmente es un objeto de Visio, como es el caso de un objeto Master, Shape o Selection, puede tratarse de cualquier objeto OLE que disponga de una interfaz IDataObject.
xPos	Obligatorio	Double	Coordenada x en la que se situará el centro del ancho de la forma o PinX.
yPos	Obligatorio	Double	Coordenada y en la que se situará el centro del alto de la forma o PinY.

Valor devuelto

Forma

Comentarios

El uso del método Drop es similar a mover una forma con el mouse. El objeto eliminado (ObjectToDrop) puede ser un patrón o una forma en la página de dibujo.

Para agregar una forma a un grupo o a una página de dibujo, aplique el método Drop a un objeto Shape o Page, respectivamente. El centro del cuadro que circunscribe a la forma se sitúa en las coordenadas especificadas y se devuelve un objeto Shape que representa la forma que se ha creado. Al aplicar este método a un objeto Shape, asegúrese de que el objeto Shape represente un grupo.

Si ObjectToDrop es un Master, el eje del patrón se colocará en las coordenadas especificadas. Normalmente, aunque no necesariamente, el eje de un patrón se sitúa en su centro de giro.

Si la solución de Visual Studio incluye la referencia Microsoft.Office.Interop.Visio , este método se asigna a los tipos siguientes:

• Microsoft.Office.Interop.Visio.IVPage.Drop(object, double, double)

Ejemplo:

En el ejemplo siguiente se muestra cómo utilizar el método Drop para colocar formas en objetos Page y 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.