Compartir a través de

Método Document.Drop (Visio)

  • Artículo

Crea un nuevo objeto Master colocando un objeto en un objeto receptor, como una galería de símbolos o un documento, o la colección Masters o MasterShortcuts .

Sintaxis

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

Expresión Variable que representa un objeto Document .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
ObjectToDrop Obligatorio [UNKNOWN] Objeto 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 Integer Coordenada x en la que se situará el centro del ancho de la forma o PinX.
yPos Obligatorio Integer Coordenada y en la que se situará el centro del alto de la forma o PinY.

Valor devuelto

Master

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.

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.

Para crear un nuevo patrón en una galería de símbolos, aplique el método Drop a un objeto Document que represente a una galería de símbolos (la galería de símbolos debe abrirse como original o como copia, no como sólo lectura). En este caso, se omiten los argumentos xPos y yPos y se devuelve el nuevo patrón que se crea.

Ejemplo:

En el ejemplo siguiente se muestra cómo utilizar el método Drop para crear un patrón colocando una forma en un objeto Document.

 
Public Sub Drop_Example() 
 
    Dim vsoShape As Visio.Shape  
    Dim vsoMaster As Visio.Master  
 
    Set vsoShape = ActivePage.DrawRectangle(1, 2, 2, 1)  
 
    'Create a master in the document.  
    'The master appears on the document stencil.  
    Set vsoMaster = ActiveDocument.Drop(vsoShape, 0, 0)  
 
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.