使用英语阅读

通过


Page.Drop 方法 (Visio)

通过将对象拖放到接收对象(例如母版、绘图页、形状或组)上,创建一个或多个新的 Shape 对象。

语法

表达式删除 (ObjectToDropxPosyPos)

表达 一个代表 Page 对象的变量。

参数

名称 必需/可选 数据类型 说明
ObjectToDrop 必需 [未知] 要放置的对象或选定内容。 尽管它通常是一个 Visio 对象(如 MasterShapeSelection 对象),但它也可以是提供 IDataObject 接口的任何 OLE 对象。
xPos 必需 Double 放置形状宽度的中心的 x 轴坐标值或 PinX。
yPos 必需 Double 放置形状高度的中心的 y 轴坐标值或 PinY。

返回值

Shape

说明

使用 Drop 方法与使用鼠标移动形状类似。 放置的对象 (ObjectToDrop) 可以是绘图页上的主控形状或形状。

若要将形状添加到组或者绘图页上,请将 Drop 方法分别应用于 ShapePage 对象。 形状的宽度-高度框的中心放置在指定的坐标处,并返回一个代表创建的形状的 Shape 对象。 将此方法应用于 Shape 对象时,请确保 Shape 对象代表一个组。

如果 ObjectToDrop 是一个 Master,则将该主控形状的旋转中心点放置在指定的坐标处。 主控形状的旋转中心点通常(但不一定)位于它的旋转中心。

如果 Visual Studio 解决方案包含 Microsoft.Office.Interop.Visio 引用,则此方法映射到以下类型:

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

示例

以下示例显示如何使用 Drop 方法将形状放置在 PageShape 对象上。

 
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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。