从Page.Drop打开形状数据对话框

Question

我正在使用Visio2016。我有一个名为“ Insert_Below”的函数，可在其中将一个母版（例如“ MasterA”）放到页面上。我在另一个称为“ Insert_Below”的形状（“ shp”）上进行了操作设置，如下所示]

' Action in shape sheet of shp
Actions.Row_1  -  CALLTHIS("ThisDocument.Insert_Below")

' In ThisDocument.Insert_Below
Set newShp = pg.Drop(mstr, x, y)

通常，当我通过从模具中拖动形状来添加形状时，会打开“形状数据对话框”，因为我将几个形状数据字段设置为在拖放时询问。但是，当操作运行时，我没有看到添加的形状的形状数据对话框，上面的“ newShp”。

我是否可以通过某种方式强制为newShp打开对话框？

这是visguy.com上的交叉发布-Post

Answer 1

我不确定我是否理解你。尝试添加此行

newShp.Application.Docmd 1312