PROSAGA码农传奇-visio-在Visio-VBA中拖动到屏幕上的形状的输出ID

<div class =“post-text”itemprop =“text”>
  
    如果您正在使用EventDrop处理程序和ShapeSheet单元格，则只需将形状ID传递给您的函数即可。你可以使用类似下面的公式（在哪里
     <code>
 ID()
 </code>
     是一个返回形状ID的内置函数。您可以使用它来获取形状
     <code>
 OnDrop
 </code>
     在VBA代码中定义的处理程序。 “＆安培;”用于在VBA中连接文本字符串：
  
  
     <code>
 RUNMACRO("ThisDocument.OnDrop("& ID() &")")
 </code>
  
  
    然后在VBA中：
  
   <pre>
 <code>
 Sub OnDrop(shapeId)
 Debug.Print shapeId
 Set shape = ActiveDocument.Shapes.ItemFromID(shapeId)
 ' do something with the shape
End Sub

</code>
 </pre>
  
    更好，你可以使用
     <code>
 CALLTHIS
 </code>
     代替
     <code>
 RUNMACRO
 </code>
     （它总是将主题形状作为第一个参数传递）
  
  
     <code>
 CALLTHIS("ThisDocument.OnDrop")
 </code>
  
  
    然后在VBA中：
  
   <pre>
 <code>
 Sub OnDrop(x As Shape)
 Debug.Print shape.ID
 ' do something with the shape
End Sub

</code>
 </pre>
  
    在事件处理程序中，在显示表单之前，您需要记住形状，然后可以将其传递给表单。
  
  
    请注意，我在上面的例子中假设“OnDrop”在“ThisDocument”中定义。如果它在模块中定义，则不需要“ThisDocument”。字首
  
  
    另一种选择可能是处理VBA中的“Shape Added”事件，而不是指定ShapeSheet公式。在这种情况下，您的事件处理程序会将形状作为参数删除。
  
</DIV>