将形状对齐以使其边缘重合Visio VBA
Visio VBA是一种用于Microsoft Visio的编程语言，它允许开发人员通过编写脚本来自动化和定制Visio应用程序。Visio VBA可以用于处理和操作Visio图形，包括形状对齐以使其边缘重合。
形状对齐是指将多个形状的位置和方向调整到彼此对齐的过程。通过形状对齐，可以使形状的边缘重合，从而创建更整齐和对称的图形。
Visio VBA提供了一些方法和属性来实现形状对齐。以下是一些常用的方法和属性：
- Align方法：该方法可以将选定的形状对齐到指定的位置，如左对齐、右对齐、居中对齐等。
- Distribute方法：该方法可以将选定的形状在水平或垂直方向上均匀分布。
- Connect方法：该方法可以将选定的形状连接到其他形状，以创建连接线或网络。
- Resize方法：该方法可以调整选定的形状的大小，以便与其他形状对齐。
- Left、Top、Width、Height属性：这些属性可以获取或设置形状的位置和大小。
Visio VBA可以通过编写脚本来自动化形状对齐的过程。开发人员可以使用Visio VBA的各种方法和属性来实现形状对齐的需求，从而提高工作效率和准确性。
在腾讯云中，没有直接与Visio VBA相关的产品或服务。然而，腾讯云提供了一系列与云计算和IT互联网领域相关的产品和服务，如云服务器、云数据库、人工智能服务等。这些产品和服务可以与Visio VBA结合使用，以实现更强大和灵活的应用场景。
更多关于Visio VBA的信息，您可以参考以下链接：
相关·内容
1回答
目前，我正在为IVR(交互式语音应答)系统工作。要在IVR中添加服务，我必须在visio中创建流，该流具有由IVR SYstem的卖方提供的预定义的形状。该形状是用VBA编程的。我决定学习VBA的修改，在预定义的形状。在google中搜索时，它显示了excel编程的唯一结果。visio也是一样的吗。请帮我找到学习VISIO的VBA编程的源代码。因此，我可以添加用于自定义服务的新形状。
浏览 5提问于2012-04-03得票数 3
2回答
我有一个工作良好的VBA脚本，当一个值为“单击要学习更多”的目标单元格被单击时，相应的信息弹出形状就会显示出来。
我希望我能够添加代码，将形状的右边缘重新对齐到目标单元格的左侧边缘，更好地垂直居中，就像屏幕截图示例一样。我已经尝试过使用msoAlignRight的一些建议，但我还不够精通VBA，还不知道正确的语法-if --这甚至是正确的方法。
谢谢你的建议！
(相应形状的名称分配给变量"ImgName"，“单击更多信息”单元格是目标单元格)。
浏览 2提问于2018-10-10得票数 0
回答已采纳
我有一组包含不再需要的VBA代码的Visio绘图文件(实际上，当试图打开文件时会发生错误，因为VBA中引用的模块不再存在)。
由于我正在处理的外接程序的性质，我的用户必须保持宏和VBA启用。但是，他们在Visio中打开的任何文件都需要首先自动删除其VBA代码。
启动Visio应用程序时，但在选择要打开的文件之前，我可以命中代码中的断点。在Visio中选择并加载文件后，我还可以在代码中命中断点。在选定文件之后，但在Visio加载文件之前，我似乎找不到一种方法来获得中断。
查看C#中的Visio程序集，我可以看到名为"OnDocumentOpened“和"OnDocumentCre
浏览 3提问于2020-02-28得票数 0
回答已采纳
我在Visio中有一个VBA代码，如果所述形状是超链接的，它将更改形状的颜色。现在，我使用一个简单的命令按钮来运行它。我希望宏在工作表中发生更改时运行。我知道在excel中，如果我想这样做，我会简单地将我的代码放在Visio子目录中，但在Workbook_Change中我迷失了方向。
下面是我当前的代码：
Private Sub CommandButton1_Click()
Dim Sh As Visio.shape
Dim Link As Hyperlink
For Each Sh In Visio.ActivePage.Shapes '<~ loop through t
浏览 3提问于2014-06-27得票数 1
我想简化在Visio中更新我的组织结构图。到目前为止，我从这里借用了一个宏，并写出了下面的内容。我想调整它，以作出一些改变的格式，文本与形状，例如，使字体粗体，并有可能改变它的颜色。我发现很难在网上找到这方面的例子，所以任何帮助/建议都会非常感谢。
Public Sub ApplyDataGraphicToDocument()
Dim mstDG As Visio.Master
Dim shp As Visio.Shape
Dim pag As Visio.Page
Dim firstProp As String
If Visio.Active
浏览 1提问于2020-06-03得票数 0
回答已采纳
我正在使用VBA宏在图形文件中自动添加超链接，这样当文字中提到某个单词时，我就可以链接到图形中的另一个页面。
根据MSDN和Visio的帮助，超级链接对象可以与单元格、字符、行或节对象相关联。但是，除了形状之外，我找不到任何方法来将超链接与任何东西关联起来。
因此，问题是，如何在Visio中将文本段落中的单个单词超链接为单个形状？
浏览 1提问于2013-06-25得票数 3
回答已采纳
2回答
我知道我可以使用Shape.DrawRectangle方法在Visio中绘制一个矩形，这基本上相当于在手动UI中使用“矩形”工具。但是，Visio形状面板还包括一个“圆角矩形”。如何使用VBA绘制圆角矩形？
通过msoShapeRoundedRectangle，我发现Excel具有一种等价的形状。但是，我无法找到在Visio中创建msoShapeRoundedRectangle的任何方法，所以可能是特定于Excel的。除此之外，我还没有在网上或文档中找到有关这方面的任何信息。
浏览 2提问于2018-09-24得票数 2
回答已采纳
是否有办法强制Visio在直线与连接形状的交点处绘制箭头？
也就是说，自定义连接点是非常不方便的，因为它们似乎永远不会出现在你需要它们的地方，特别是如果你仍然在移动形状，试图获得正确的排列。相反，我希望使用附加到每个形状中心点的一条线来连接形状，并让Visio在该线与连接的形状相交的位置绘制箭头。这个是可能的吗？
浏览 7提问于2012-05-23得票数 0
回答已采纳
1回答
我使用的是Visio 2013和VBA。我想从我在页面中剪切的形状中检索Characters。我试过了：
Dim s As Visio.shape
Dim c As Visio.Characters
Set s = ActiveWindow.Selection.ContainingShape
c = s.Characters
但是我在构造c时有一个错误。我想要做的事情有可能发生吗？
浏览 3提问于2015-11-20得票数 0
1回答
如何在microsoft visio中创建可通过常规界面选择的特定形状？我正在寻找像ActivePage.addShape(type: person, 100,100, 50,50)这样的代码
msdn和visio帮助文档对于初学者来说有点高级，但是是否必须手动添加一个形状，然后通过vba给它一个可以理解和再次使用的id。还是必须创建一个全局子/类，然后引用已为其命名的对象。
浏览 4提问于2010-02-15得票数 0
回答已采纳
4回答
我正在使用Visio professional 2003。它工作得很好。但是现在，当我复制并粘贴任何形状时，它会显示错误“打开剪贴板失败”。在此之后，我不能更改任何属性或名称。
当我尝试关闭窗口时，它显示警告：“您无法退出visio程序，因为某个程序正在处理来自visio的事件。如果VBA处于断点，请重置VBA，然后退出”
谁能告诉我问题出在哪里？
浏览 0提问于2011-09-26得票数 13
回答已采纳
在Visio VBA中，有没有一种方法可以查看在Visio中的形状前面或后面是否有形状？
我想我可以写一些东西来检查页面中每个形状的边界框，看看它是否占用与我的形状相同的空间。我宁愿使用内置的东西，因为检查每个形状可能需要很长时间，因为绘图会得到越来越多的形状。
浏览 1提问于2008-09-30得票数 4
回答已采纳
1回答
我有一个模板，它使用vba来响应形状事件。通常，当用户双击形状时，将显示一个用户窗体，用户可以使用该窗体编辑形状数据。
我想使用C#将其转换为Visio AddIn。我对大多数通用代码都很满意，但shape事件让我感到困惑!？
Google给了我一个提示，让我下载Visio SDK并查看“持久事件”。然而，按照安装说明，我仍然没有在我的开发者标签中看到“持久事件”--也不确定它们是什么，以及它们是否是我所需要的。
总体而言，它只是觉得严重缺乏文档。有谁能告诉我怎么走吗？
(使用Visio 2016)
浏览 24提问于2017-12-13得票数 0
回答已采纳
我需要有一个visio形状的名称更改为用户输入的值时，形状被放到页面上。我已经创建了两个形状数据字段: Name和State。当形状被拖放时，name字段会提示用户输入名称，这是我希望传递给实际形状名称的值。这样做的原因是，形状数据字段"state“可以使用分配给”Name“字段的值以编程方式进行更改，如以下代码所示：
Sub SetStatePassive()
Dim vPag As Visio.Page
Set vPag = Visio.ActivePage
Dim shp As Visio.shape
Set shp = Visio.ActivePage.Shap
浏览 6提问于2021-07-07得票数 0
我是VBA的新手。我希望在Visio中通过Offset函数选择新生成的形状。
Sub Offset_Example()
Dim sel As Visio.Selection
Set sel = ActiveWindow.Selection
sel.Offset 0.06
End Sub
浏览 1提问于2019-12-01得票数 0
回答已采纳
我在Visio 2016中遇到一个问题。
我试图让连接器布线只捕捉到我设置的网格大小(以保持一切对齐和整洁的外观)。但是，如果我在图表中有方框、图像或形状，它似乎总是想要捕捉到图像/方框的中心。
我已经关闭了glue，并尝试关闭除“对齐网格”之外的所有对齐选项，然而，即使使用该设置，它仍然会对齐到图像/方框的中心。
如何强制visio停留在网格捕捉，而不完全禁用它？
浏览 8提问于2018-03-28得票数 1
1回答
我想把所有当前选定的形状放到一个数组中。然后，我想对数组进行排序，以便在数组中找到最顶部或最左边的形状。然后我想用那个形状作为我的起点，然后从那里对齐其他形状，一个固定的，已知的距离。我试着把这些形状放进这样的数组中：
Dim numShapes As Integer, i As Integer
Dim arrShapes As Visio.Selection
numShapes = Visio.ActiveWindow.Selection.Count
For i = 1 To numShapes
arrShapes(i) = Visio.ActiveWindow.Selection
浏览 1提问于2018-03-26得票数 1
回答已采纳
我有两个问题：
是否有办法通过VBA代码更改形状的ShapeSheet (电子表格)参数？更准确地说，我需要更改形状的ShapeSheet中的ShapeSheet参数值。
是否有其他方式将鼠标双击事件处理程序注册到Visio形状？我希望每次双击形状时都会调用我提供的子例程，并将shape对象作为参数。
到目前为止，我知道的是注册添加形状事件，如下所示：
私有子Document_ShapeAdded(ByVal vsoShape As Visio.IVShape)
'Do something with the shape object.
结束子对象
每次将新形状添加到V
浏览 0提问于2019-03-14得票数 2
我正在尝试使用Visual Basic根据从Excel文档导出的数据更改Visio中形状中文本的字体大小。我需要有不同的字体大小不同的形状。在VBA中是否有Shape.FontSize =X方法或类似的方法？我是Visual Basic的新手，所以如果这是一个新手问题，很抱歉。谢谢你的帮助!
浏览 13提问于2017-07-25得票数 0
回答已采纳
1回答
我正在为一个项目使用Visio 2013，并且我是VBA和Visio的新手。
首先，我编写了一个函数，通过首先创建CSV的字符串表texte，然后将其添加到一个形状中，在当前的visio文档中导入CSV文件：
Dim sp As Visio.Shape
Set sp = ActiveDocument.Pages(1).Drop(Visio.ActiveDocument.Masters("Puce 120"), 4, 10)
sp.Characters.Text = texte
现在我想写一个反向函数，从形状到CSV文件，但我找不到一种方法来访问我的形状"Puce 120
浏览 5提问于2015-11-10得票数 1
我首先要说的是，我不是一个有经验的VBA程序员。在Visio中尝试一些VBA代码时，我尝试了"[Shape.ConnectedShapes method (Visio)][1]“主题提供的传出连接器示例。当我在一个非常简单的Visio图表(开始/停止形状->进程形状->开始/停止形状)上运行代码而没有做任何更改时，我得到一个“无效的工作表标识符”错误。在调试中，我发现它适用于具有零个或一个出站连接器的启动/停止形状，但不适用于具有一个或多个出站连接器的进程形状。执行"Debug.Print ActivePage.Shapes(lngShapeIDs(intCoun
浏览 52提问于2021-04-26得票数 0
1回答
我刚开始在Visio中做VBA，而且我在“获取”事件处理时遇到了问题，而这并不是在文档对象级别。也就是说，我试图捕捉当形状数据值被更改时触发的事件。我下载了Visio2010SDK，相关事件是FormulaChanged和CellChanged。然而，我不知道如何触发这些事件。我从互联网上收集到，我需要使用WithEvents和/或AddAdvise，但我似乎不知道如何使用，甚至看过了一些SDK代码示例。
如何在VBA中捕获在编辑形状数据值时触发的FormulaChanged和/或CellChanged事件？
浏览 5提问于2014-05-08得票数 1
1回答
你好，我想把这个vba方法转换成C#。我正在尝试获取选择的ID并打印出来。特别是，我很难将GetID()方法( visio中内置的方法)转换为C#。
Public Sub getCapabilityRectIDs()
Dim vsoSelection1 As Visio.Selection
Dim selectionIDs() As Long
Set vsoSelection1 = Application.ActiveWindow.Page.CreateSelection(visSelTypeByLayer, visSelModeSkipSuper, "C
浏览 1提问于2016-01-20得票数 1
回答已采纳
2回答
我正在创建和测试一个UserForm，用户可以在其中添加形状并将预定义的形状数据值添加到形状数据中。形状数据名是“元素”，因为您可以看到下面的图像。
Dim vsoRound As Visio.Shape
Dim cell As Visio.cell
If (CheckBox1.Value) Then
Application.ActiveWindow.Page.Drop Application.Documents.Item("MS Icons.VSSX").Masters.ItemU("Round"), 5, 5
Set vsoRound = A
浏览 9提问于2022-01-09得票数 0
回答已采纳
我正在尝试复制visio页面中的所有形状，并将其作为图像粘贴到Excel中。该图像应该是visio绘图的近距离副本。寻找Excel vba脚本来执行此操作。我可以打开visio，访问形状信息等，但卡在复制和粘贴所有的形状到excel作为一个单一的图像 我尝试了以下几种方法： For j = 1 To intShapeCount 'Get count of shapes on page
Set vsoConnectFrom = vsoShapes.Item(j)
vsoConnectFrom.Copy(visCopyPasteNoTranslate)
浏览 18提问于2019-05-23得票数 2
1回答
需要帮助！
在宏、VBA、脚本等方面，我相对比较了解，但是Visio编码对我来说是一个全新的怪物。
简而言之，我有一个简单的方形形状标记产品位置的仓库地图布局，我想根据他们的Prop._VisDM_F2数据元素对广场进行颜色编码。到目前为止，我的代码似乎还能工作，但只适用于正方形组中的第一个形状，但有时主形状由1平方，有时6，以及两者之间的一切组成。
我已经了解到，“形状(#)”中的#会选择更改哪个方格，但我希望它们都能改变。我试图计算每个主形状中有多少个单独的形状来使用变量整数作为#，但是它没有工作。
当然，这样一个简单的任务不会真的这么复杂，所以我可能只是错过了一步。任何帮助都将不胜感激！
浏览 7提问于2020-01-28得票数 0
1回答
在Visio VBA中，可以设置形状的透明度，包括光栅图像。但是，导入的EMF形状不会响应其他形状所做的不同填充、线条或图像透明度单元格更改。
是否可以将透明度应用于导入的EMF图像形状？
浏览 4提问于2012-07-26得票数 0
回答已采纳
我已经为我的问题寻找了4个小时的解决方案，但没有找到对我有用的任何东西。我有一个正方形，并添加了一个变量"test“，其值为"hello"：
现在我想阅读VBA中的变量"test“。为此，我首先必须看看变量是否存在：
Public Sub GetShapeData()
Dim shpsObj As Visio.Shapes
Dim shpObj As Visio.Shape
Set shpsObj = ActivePage.Shapes
Set shpObj = shpsObj(1)
Debug.Print shpO
浏览 0提问于2018-10-23得票数 1
回答已采纳
我正在尝试使用vba使缩放适合于visio中特定页面的窗口。appVisio是表示visio应用程序对象的变量名， appVisio.ActiveWindow.Zoom = -1 有效，但我想避免使用ActiveWindow，当我尝试appVisio.Windows(1)或appVisio.Window时，它不起作用，因为这两行返回一个visApplication类型的窗口，而.ActiveWindow返回一个visDrawing类型的窗口，我在这里做错了什么？
浏览 35提问于2020-06-12得票数 0
2回答
我想通过VBA将一个形状粘合到另一个形状。所有形状都是用UserForm模块创建的。我希望某些形状与箭头相连接(这也是通过UserForm放到页面上的)。它可以很好地连接两个不在一组中的形状。现在，我想连接两个形状，其中一个或两个可能在一个组。
这种方法适用于非分组形状。
'get shp, src, aim
[...]
shp.Cells("BeginX").GlueTo src.Cells("PinX")
shp.Cells("EndX").GlueTo aim.Cells("PinX")
我使用以下函数获得目标和sr
浏览 0提问于2018-07-09得票数 0
回答已采纳
1回答
很抱歉，这似乎很基本，但我似乎找不到足够的文档。实际上，我需要使用Visio 16中的VBA遍历形状表中"Shape Data“中的行。
sub printLabelsAndProps()
for each x in UnknownGroupOfThings
debug.print x.prop.DataAndDocuments
debug.print x.prop.Supports
Next
end sub
助赏
浏览 2提问于2016-06-27得票数 0
回答已采纳
我有一个Visio绘图(并将有更多)，其中有一个时间表，例如月份或季度表示框例如' timeline‘ 绘图将有形状对齐到‘时间线’，我需要阅读形状，并返回形状文本和形状的开始和结束标尺位置-从这我可以归因于日期和持续时间的排序，这是其他地方的消费。我找不到一种方法来找到我可以(一致地)与标尺(或形状时间线‘框’)相关的形状的开始和结束位置。 明显的，PinX和PinY值不一致(与标尺或其他形状相关)。我无法控制收到的图纸-so标尺是唯一的常量。 任何帮助都将不胜感激(虽然不是VBA的新手，但我是Visio VBA的新手，其中有很多内容，也有很多我不懂的地方)。1：https://i
浏览 38提问于2021-10-08得票数 -1
我最近被要求从Visio绘图中提取数据-我以为这会很容易，但是.问；我无法控制的各种图画，都是使用由代表一段时间的方框定义的“标题”时间线的原则构建的(例如，12个方框可能代表一年，也可能代表三年-月或季度)-这不是问题。 方框下面的形状代表不同的活动，持续时间由形状的长度定义(使用“标题”时间线作为刻度)。 我需要拉出活动的文本，并指定开始和结束日期(这不是问题-数学上不是问题)。 问题是，我能找到的定位形状的唯一方法是PinX/PinY。PinX的问题是它代表“旋转中心”，这不一定在形状内--我发现在一张图上有许多形状的复制和粘贴(请记住，我不能控制这些图) PinX有一个习惯，就是经常
浏览 33提问于2021-10-09得票数 0
我是VBA的新手，这是我的第一份任务，涉及到一张预先存在的Visio绘图。
Visio绘图由几个形状组成，我最终希望使用vba代码检测哪些形状是电缆(由动态连接器附加的两个“连接器”形状)。要做到这一点，我首先要将所有形状名称存储在一个数组中。2)然后，我想用已知的连接器形状名称交叉检查该数组，并创建一个仅包含这些连接器形状的新数组。3)接下来，我将检查每个连接器形状所连接的是什么，这将使我能够确定它是什么类型的电缆(我已经完成了代码的这一部分)。4)最后，我会将电缆的#分配给连接器形状之一(我认为我也有工作代码)。
我正在努力弄清楚如何用我现有的代码实现步骤1和步骤2。
目前，我只能在选择其
浏览 0提问于2019-05-21得票数 1
回答已采纳
2回答
当用户双击一个形状时，我试图让下一层显示出来。
我从来没有接触过Visio中的VBA，所以我尝试了下面的代码，我知道它不是很多，但不幸的是，老实说我没有一点头绪
Visio.layer.*Layername* visible = "1"
End Sub
任何帮助都将不胜感激。
浏览 0提问于2017-05-15得票数 1
1回答
我有一些为我生成Visio母版的代码，有些母版具有自动生成的带有一个或多个操作的Action部分。我想要做的是将这些母版拖放到一个页面中，遍历形状中的操作列表，执行每个操作，并检查它们是否正确无误地完成。
我的所有操作都使用CALLTHIS来执行VBA代码，所以我猜可以使用Application.ExecuteLine，然后我只需要解析CALLTHIS及其参数。但我想知道，Visio VBA中是否有某种机制可以让我以编程方式执行操作，或者我是否必须自己完成所有操作？
浏览 1提问于2012-06-07得票数 0
回答已采纳
我正在尝试在Visio中设计自定义形状。
我的结构是这样的:在"Edit Master“页面中，我有一些矩形，我称我的形状为"MyDay"，这是它在主资源管理器和编辑窗口中的文档名称。
我的问题是，我找不到一种方法从我的一个子形状中引用形状日期本身的(like =MyDay!Name() or =MyDay!User.MyUserField)。
如果我添加对ThePage的引用并将母版拖放到页面上-我将该属性添加到页面本身-再一次-没有从子形状到主形状的引用。
我知道在ShapeSheet公式中没有"Parent“属性(仅在VBA上)，但我真的在尝试找到一种方法
浏览 13提问于2021-09-27得票数 0
我很难找到Visio形状的主形状。假设我将名为'Start Shape'的形状从模板拖到文档中，那么Visio将在文档上创建形状'Start Shape'的实例。
现在我可以使用shape属性的Name/NameU访问形状名称，但是使用Name属性我获得了名为'Start Shape.12'
我需要找出主形状名称，即“开始形状”(Start shape )，由此创建掉的形状。在上述情况下，'Start Shape'
浏览 14提问于2014-11-12得票数 2
回答已采纳
我目前正在Visio2010中创建一个自定义容器形状，但在获得正确的大小调整行为时遇到了一些问题。我的容器由一个主矩形和右上角的一个小三角形组成(见下图)。这两个形状都是分组的。
当调整这个组的大小时，我想要调整矩形的大小，但三角形应该保持其原始大小和纵横比，并保持“附加”到矩形的边上。
当我将三角形的调整大小行为设置为“使用组设置”(默认)时，它在调整大小时会变形：
当我将三角形的调整大小行为设置为"Reposition only“时，它不会保持附加到矩形：
有什么方法可以让我得到想要的行为吗？
浏览 46提问于2013-06-19得票数 3
1回答
我试着用熊猫制作一个多层的酒吧情节。
下面是一个示例代码：
import pandas as pd
df = pd.DataFrame({'a':[10, 20], 'b': [15, 25], 'c': [35, 40], 'd':[45, 50]}, index=['john', 'bob'])
ax = df[['a', 'c']].plot.bar(position=0, width=0.1, stacked=True)
df[['b',
浏览 1提问于2016-08-16得票数 3
回答已采纳
我使用Python与win32com.client一起获取Microsoft绘图的页面名称和形状描述。下面的Python代码用于获取形状索引、形状名称和形状文本。如果索引无效，获取形状边界框的命令将失败。
import sys, win32com.client
import copy
def main ():
try:
visio = win32com.client.Dispatch("Visio.Application")
visio.Visible = 0
dwg = visio.Documents.Open(&
浏览 19提问于2015-08-11得票数 2
回答已采纳
我正在尝试使用C#自动化一些Visio绘图。目前，我正在使用GlueTo方法连接两个形状。然而，自动路由并没有到达我想要的位置。
有没有办法可以手动输入连接器应该‘通过’的点？(即通过(1,2)，(2,4)，(5,6))
我已经尝试修改连接器的Shapesheet中的'Geometry1‘部分，特别是'MoveTo’和'LineTo‘行。据我所知，Visio不允许这样：“此row类型不允许操作。”
任何帮助都是非常感谢的。
浏览 0提问于2018-04-05得票数 0
1回答
我正在以编程的方式在visio中绘制UML图，其中我使用动态连接器来连接shapes.But。在某些情况下，连接器通过形状而不是通过页面(即连接器通过位于源和目标之间的另一个形状进行从源形状到目标形状的路由)，我希望连接器应该通过页面only.Pls建议如何实现这一点。
浏览 0提问于2012-08-31得票数 0
1回答
我想知道是否有人对如何在C#中的Visio项目中加速自动化有任何建议。我拥有的自动化设备是建厕所的摊子。最后我选择做10个摊位，VBA需要大约3秒的时间来制作所有的形状。
我刚刚完成了使用c#库将VBA转换成一个Microsoft.Office.Interop.Visio表单应用程序。做同样的测试需要14秒。
通过使visio应用程序不可见，然后在它完成后使其可见，我已经能够起飞3秒，但这仍然与VBA所做的工作不太接近。
我已经注意到，在C#中，我可以看到visio用每个形状绘制自己的建筑，而在VBA中却没有。因此，我也尝试使用："Application.ScreenUpdating“
浏览 3提问于2017-10-25得票数 0
回答已采纳
我正在阅读MS引用中Shape.DrawSpline方法(Visio)的使用情况。当我在Visio中输入作品时，他们给出了一个示例。该示例获取点，并将它们与曲线连接起来，并在Visio应用程序中显示。
我希望VBA代码驻留在MS中，我将让VBA代码打开Visio绘图，并从Method代码中执行Shape.DrawSpline方法。我的问题似乎决定了如何生成表达式形状以使程序运行，并在打开的Visio绘图中绘制示例曲线。
下面是我正在编写的代码，打开Visio绘图的部分正在为我工作：
Dim AppVisio As Visio.Application
Dim ShpObj As Visio.Sh
浏览 2提问于2018-07-28得票数 0
回答已采纳
1回答
我似乎不知道如何使用VBA删除形状。
我想做的是:用户打开一个UserForm并在TextBoxes中输入一些内容。单击命令按钮时，我希望从自定义模板(即shapes.vssx)加载一个形状(即重新源)，将用户条目写入ShapeData (即在Props.Name中写入名称字符串)，然后将其放在工作表的某个位置。我知道我必须使用Shape.Drop方法，但是如何引用我想要用于创建新形状的特定母版形状呢？
到目前为止我还在尝试这个
Private Sub CommandButton1_Click()
Dim shp As Visio.Shape
Dim page As Visio.p
浏览 1提问于2018-07-04得票数 1
回答已采纳
1回答
Visio行问题
、、
Visio行问题
如何在Visio中创建长曲线无缝线条。
我画了一条线，它似乎只有连接物体的能力，仅此而已。，WHenever。
如果我想画一个从一个对象开始的循环，然后在另一个对象的顶部俯冲，形成一个300度的圆弧，那该怎么办？
我已经尝试了用端到端绘制的线条。如何将这些线条合并成一条无缝线条？
浏览 1提问于2010-06-09得票数 0
回答已采纳
2回答
当我双击Visio形状时，我正在尝试运行宏。
我希望将shape对象传递给VBA宏，以便可以根据Shape对象的id在宏中执行某些操作。
是否可以将参数传递给VBA宏。如果是，请告诉我是怎么做的？
谢谢。
浏览 1提问于2008-11-11得票数 2
回答已采纳
2回答
我有这段代码，它创建一个新的Visio文档并添加一个矩形。它可以工作，但我不喜欢必须打开另一个文档才能从中获取Master集合。问题是新文档有一个空的主控形状集合。我在document类中找不到将形状添加到Master集合的方法，我能找到的所有添加形状的示例都假定您已经有了一个文档。有没有更好的方法来做我想做的事？
// create the new application
Visio.Application va = new Microsoft.Office.Interop.Visio.Application();
// add a document
va.
浏览 0提问于2012-02-28得票数 4
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
