我正在使用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
答案 0 :(得分:0)
我不确定我是否理解你。尝试添加此行
newShp.Application.Docmd 1312