visio-vba

0热度

1回答

Visio 2013具有BPMN图类型。 BPMN模板具有“Pool/Lane”主。当您将其拖放到绘图上时，会显示新的泳道。然后，您可以转到“交叉功能流程图”功能区并使用“方向”按钮更改其方向，该按钮提供垂直和水平方向的选择。如何在VBA中做同样的操作？我试图在Visio宏记录器中记录相应的宏。令人惊讶的是，录制的宏没有包含这个操作的命令。

1热度

2回答

在Visio vba中打开文件对话框

我正在编写vba Word和Visio 2013中的宏。我想打开一个fileDialog，以便用户可以选择将文件保存到哪里。我成功地说了一句话，但是在visio中它并没有起到相同的作用。我的字写的： Dim dlg As FileDialog Dim strPath As String 'Boite de dialogue pour choisir où enregistrer son

0热度

1回答

vba可更新的形状控制在主形状

我有一个时间寻找答案看起来像一个简单的问题。我使用的是Visio 2010.我需要有一些文本框，可以通过VBA进行更新。我必须编写代码 shape.CellsU("Prop.Memory").Formula = """256 MB""" 例如（形状是在这种情况下的变量）。问题在于我无法找到如何将控件（如文本框或标签）绑定到用户定义的属性（如本例中的“Prop.memory”）。我认为这可能是一

1热度

1回答

Visio：DOS共享冲突（错误1532）

所以我现在很困惑。突然间，我的代码得到了错误“DOS共享冲突”。这很奇怪，因为它说，正试图拯救我的文档，但我只是想打开它。这是我的代码： Public Sub ReadActivity() Dim vsoDocument As Visio.Document Dim vsoPage As Visio.Page Set vsoDocument = Documents.Open("C:\U

0热度

2回答

关闭现有的Visio文件而不保存

Dim AppVisio Set AppVisio = CreateObject("visio.InvisibleApp") Dim vsoDoc Set vsoDoc = AppVisio.Documents.Open("PathName\Drawing1.vsd") 嗨，我上面的代码块（工作），打开一个文件。但是，当这个文件已经打开时，我希望它自动关闭而

0热度

2回答

创建函数以避免代码重复

我在Excel中有一些vba代码来自动化Visio，我必须创建多个文本框。我现在做的是这样的： Set textbox1 = vsoDocument.Pages(PageName).DrawRectangle(1,1,1,3) textbox1.LineStyle = "Text Only" textbox1.FillStyle = "Text Only" t

0热度

1回答

将Visio文档连接到Access数据库

我想将Access数据库添加到我的Visio文档。 MSN示例显示要连接到Excel文档的字符串。我会用什么来连接到Access数据库？我使用：的Microsoft Visio 2013 的Microsoft Access 2013 微软Windows 7企业版。 DB位置： C：\用户\ j.Smith \桌面\ access_file.mdb 我的脚本： Public Sub AddDat

0热度

1回答

VBA在外部数据表中搜索记录

我已经链接到Visio 2013中的外部数据，并有四个不同的选项卡/表格。当用户双击形状时，该形状的文本将用于在表格中搜索记录。请注意，该数据在Visio链接数据方法中未链接。只需要手动搜索表格，不要依赖数据记录和预先存在的形状之间的某个链接。外部数据导入正常。我可以捕捉双击形状的文字。如果您可以告诉我如何针对已插入Visio的外部数据运行查询，然后对该行执行HIGHLIGHT操作。谢谢

0热度

1回答

如何查看`myShape.Cells（）`中的所有键值对？

我最近在Visio中用VB编程。我真的很好奇myShape.Cells("Width")和myShape.Cells("PinX")，我指的是代码的.Cells("...")一部分。我的程序已经使用过很多次了。我想知道更多关于它们的信息，但我无法找到关于此的任何具体解释。谁definites它，什么都都在.Cells()的键值对的。我已经看到了使用someShape.Cells["Widt

0热度

1回答

计算Visio形状中的文本行数

有没有办法对Visio形状内的文本行数进行计数？如linecount？我已经试过了Visio形状的Rowcount，它没有返回任何反映Visio Shape内部文本行的东西！下面是我创建的示例代码 Sub something() Dim intRows Dim vsoShape As Visio.Shape Set vsoShape = ActiveWindow.Selection.Pri