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

我正在使用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

ckwcaowei 回答:从Page.Drop打开形状数据对话框

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

newShp.Application.Docmd 1312
本文链接:https://www.f2er.com/2690373.html

大家都在问