Page.Drop 方法 (Visio)
通过将对象拖放到接收对象(例如母版、绘图页、形状或组)上,创建一个或多个新的 Shape 对象。
表达式。删除 (ObjectToDrop、 xPos、 yPos)
表达 一个代表 Page 对象的变量。
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
ObjectToDrop | 必需 | [未知] | 要放置的对象或选定内容。 尽管它通常是一个 Visio 对象(如 Master、Shape 或 Selection 对象),但它也可以是提供 IDataObject 接口的任何 OLE 对象。 |
xPos | 必需 | Double | 放置形状宽度的中心的 x 轴坐标值或 PinX。 |
yPos | 必需 | Double | 放置形状高度的中心的 y 轴坐标值或 PinY。 |
Shape
使用 Drop 方法与使用鼠标移动形状类似。 放置的对象 (ObjectToDrop) 可以是绘图页上的主控形状或形状。
若要将形状添加到组或者绘图页上,请将 Drop 方法分别应用于 Shape 或 Page 对象。 形状的宽度-高度框的中心放置在指定的坐标处,并返回一个代表创建的形状的 Shape 对象。 将此方法应用于 Shape 对象时,请确保 Shape 对象代表一个组。
如果 ObjectToDrop 是一个 Master,则将该主控形状的旋转中心点放置在指定的坐标处。 主控形状的旋转中心点通常(但不一定)位于它的旋转中心。
如果 Visual Studio 解决方案包含 Microsoft.Office.Interop.Visio 引用,则此方法映射到以下类型:
- Microsoft.Office.Interop.Visio.IVPage.Drop (对象,double,double)
以下示例显示如何使用 Drop 方法将形状放置在 Page 和 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
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。