在Visio中通过VBA实现形状动画
，可以通过以下步骤完成：
- 确保已经安装了Microsoft Visio软件，并打开要进行形状动画的Visio文件。
- 打开VBA编辑器，可以通过按下Alt + F11快捷键或在开发者选项中找到VBA编辑器。
- 在VBA编辑器中，选择插入菜单中的模块，然后在新建的模块中编写VBA代码。
- 在VBA代码中，可以使用Visio对象模型中的方法和属性来实现形状动画。以下是一个简单的示例代码，将一个形状从一个位置移动到另一个位置：
Sub ShapeAnimation()
Dim visApp As Visio.Application
Dim visDoc As Visio.Document
Dim visPage As Visio.Page
Dim visShape As Visio.Shape
' 获取Visio应用程序对象
Set visApp = GetObject(, "Visio.Application")
' 获取当前打开的Visio文档对象
Set visDoc = visApp.ActiveDocument
' 获取当前活动页面对象
Set visPage = visDoc.ActivePage
' 获取要进行动画的形状对象
Set visShape = visPage.Shapes.Item("ShapeName")
' 设置形状的起始位置
visShape.Cells("PinX").FormulaU = "5 in"
visShape.Cells("PinY").FormulaU = "5 in"
' 设置形状的结束位置
visShape.Cells("PinX").FormulaU = "10 in"
visShape.Cells("PinY").FormulaU = "10 in"
' 设置形状动画的持续时间
visShape.Cells("Animation.Duration").FormulaU = "2 s"
' 播放形状动画
visShape.Cells("Animation.Play").FormulaU = "1"
End Sub在上述代码中，我们首先获取Visio应用程序对象、当前打开的Visio文档对象和当前活动页面对象。然后，通过指定形状的名称或索引，获取要进行动画的形状对象。接下来，我们设置形状的起始位置和结束位置，以及形状动画的持续时间。最后，通过设置形状的"Animation.Play"属性为1，来播放形状动画。
请注意，上述代码仅为示例，实际应用中可能需要根据具体需求进行修改和扩展。
Visio中的形状动画可以应用于各种场景，例如演示、教育培训、流程图可视化等。通过形状动画，可以使Visio图表更加生动和具有吸引力。
腾讯云提供了一系列与云计算相关的产品和服务，其中包括云服务器、云数据库、云存储、人工智能等。您可以访问腾讯云官方网站（https://cloud.tencent.com/）了解更多关于这些产品的详细信息和使用指南。
相关·内容
1回答
目前，我正在为IVR(交互式语音应答)系统工作。要在IVR中添加服务，我必须在visio中创建流，该流具有由IVR SYstem的卖方提供的预定义的形状。该形状是用VBA编程的。我决定学习VBA的修改，在预定义的形状。在google中搜索时，它显示了excel编程的唯一结果。visio也是一样的吗。请帮我找到学习VISIO的VBA编程的源代码。因此，我可以添加用于自定义服务的新形状。
浏览 5提问于2012-04-03得票数 3
我有一组包含不再需要的VBA代码的Visio绘图文件(实际上，当试图打开文件时会发生错误，因为VBA中引用的模块不再存在)。
由于我正在处理的外接程序的性质，我的用户必须保持宏和VBA启用。但是，他们在Visio中打开的任何文件都需要首先自动删除其VBA代码。
启动Visio应用程序时，但在选择要打开的文件之前，我可以命中代码中的断点。在Visio中选择并加载文件后，我还可以在代码中命中断点。在选定文件之后，但在Visio加载文件之前，我似乎找不到一种方法来获得中断。
查看C#中的Visio程序集，我可以看到名为"OnDocumentOpened“和"OnDocumentCre
浏览 3提问于2020-02-28得票数 0
回答已采纳
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
回答已采纳
我是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
回答已采纳
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回答
需要帮助！
在宏、VBA、脚本等方面，我相对比较了解，但是Visio编码对我来说是一个全新的怪物。
简而言之，我有一个简单的方形形状标记产品位置的仓库地图布局，我想根据他们的Prop._VisDM_F2数据元素对广场进行颜色编码。到目前为止，我的代码似乎还能工作，但只适用于正方形组中的第一个形状，但有时主形状由1平方，有时6，以及两者之间的一切组成。
我已经了解到，“形状(#)”中的#会选择更改哪个方格，但我希望它们都能改变。我试图计算每个主形状中有多少个单独的形状来使用变量整数作为#，但是它没有工作。
当然，这样一个简单的任务不会真的这么复杂，所以我可能只是错过了一步。任何帮助都将不胜感激！
浏览 7提问于2020-01-28得票数 0
1回答
我刚开始在Visio中做VBA，而且我在“获取”事件处理时遇到了问题，而这并不是在文档对象级别。也就是说，我试图捕捉当形状数据值被更改时触发的事件。我下载了Visio2010SDK，相关事件是FormulaChanged和CellChanged。然而，我不知道如何触发这些事件。我从互联网上收集到，我需要使用WithEvents和/或AddAdvise，但我似乎不知道如何使用，甚至看过了一些SDK代码示例。
如何在VBA中捕获在编辑形状数据值时触发的FormulaChanged和/或CellChanged事件？
浏览 5提问于2014-05-08得票数 1
我需要有一个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
1回答
在Visio VBA中，可以设置形状的透明度，包括光栅图像。但是，导入的EMF形状不会响应其他形状所做的不同填充、线条或图像透明度单元格更改。
是否可以将透明度应用于导入的EMF图像形状？
浏览 4提问于2012-07-26得票数 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
在Visio VBA中，有没有一种方法可以查看在Visio中的形状前面或后面是否有形状？
我想我可以写一些东西来检查页面中每个形状的边界框，看看它是否占用与我的形状相同的空间。我宁愿使用内置的东西，因为检查每个形状可能需要很长时间，因为绘图会得到越来越多的形状。
浏览 1提问于2008-09-30得票数 4
回答已采纳
4回答
我正在使用Visio professional 2003。它工作得很好。但是现在，当我复制并粘贴任何形状时，它会显示错误“打开剪贴板失败”。在此之后，我不能更改任何属性或名称。
当我尝试关闭窗口时，它显示警告：“您无法退出visio程序，因为某个程序正在处理来自visio的事件。如果VBA处于断点，请重置VBA，然后退出”
谁能告诉我问题出在哪里？
浏览 0提问于2011-09-26得票数 13
回答已采纳
2回答
当用户双击一个形状时，我试图让下一层显示出来。
我从来没有接触过Visio中的VBA，所以我尝试了下面的代码，我知道它不是很多，但不幸的是，老实说我没有一点头绪
Visio.layer.*Layername* visible = "1"
End Sub
任何帮助都将不胜感激。
浏览 0提问于2017-05-15得票数 1
1回答
如何在microsoft visio中创建可通过常规界面选择的特定形状？我正在寻找像ActivePage.addShape(type: person, 100,100, 50,50)这样的代码
msdn和visio帮助文档对于初学者来说有点高级，但是是否必须手动添加一个形状，然后通过vba给它一个可以理解和再次使用的id。还是必须创建一个全局子/类，然后引用已为其命名的对象。
浏览 4提问于2010-02-15得票数 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来响应形状事件。通常，当用户双击形状时，将显示一个用户窗体，用户可以使用该窗体编辑形状数据。
我想使用C#将其转换为Visio AddIn。我对大多数通用代码都很满意，但shape事件让我感到困惑!？
Google给了我一个提示，让我下载Visio SDK并查看“持久事件”。然而，按照安装说明，我仍然没有在我的开发者标签中看到“持久事件”--也不确定它们是什么，以及它们是否是我所需要的。
总体而言，它只是觉得严重缺乏文档。有谁能告诉我怎么走吗？
(使用Visio 2016)
浏览 24提问于2017-12-13得票数 0
回答已采纳
我正在使用VBA宏在图形文件中自动添加超链接，这样当文字中提到某个单词时，我就可以链接到图形中的另一个页面。
根据MSDN和Visio的帮助，超级链接对象可以与单元格、字符、行或节对象相关联。但是，除了形状之外，我找不到任何方法来将超链接与任何东西关联起来。
因此，问题是，如何在Visio中将文本段落中的单个单词超链接为单个形状？
浏览 1提问于2013-06-25得票数 3
回答已采纳
我在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
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
回答已采纳
我有两个问题：
是否有办法通过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回答
我想知道是否有人对如何在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
回答已采纳
我想以编程方式(C#)更新/替换给定的visio流程图(*.vsd)的所有形状。图表布局保持不变(所有连接、坐标等都相同)，但母版形状应该不同(来自不同的模板)。任何例子、建议和想法都会受到高度赞赏。
谢谢你的建议！源图有许多受保护的形状，这些形状被分组(+多个子形状)，所以我想如果我获取给定源形状的所有信息，然后从目标模板中删除一个新的母版并设置这些属性，情况会更好。接下来，我将采取下一个形状，并做同样的。我会创建一个新的Visio文档，因为我不确定源是否是以某种方式定制的。但我不知道如何在C#中以编程方式完成基本步骤。
如何在C#中创建新的vsd文件(可能是application.D
浏览 4提问于2012-08-07得票数 1
1回答
我正在尝试在Word中编写一个VBA宏，该宏将提取形状并在Visio中构建它们。我在获取文档中形状的X、Y坐标时遇到了一些问题。我已经尝试使用了shape对象的Top和Left属性。Left属性似乎工作正常，但Top属性似乎不能正常工作。页面顶部附近的形状可以与底部的形状具有相同的顶部，因此顶部似乎不适用于Y坐标，这对我来说没有意义。
有什么想法或建议吗？
浏览 6提问于2010-01-06得票数 5
回答已采纳
1回答
我正在以编程的方式在visio中绘制UML图，其中我使用动态连接器来连接shapes.But。在某些情况下，连接器通过形状而不是通过页面(即连接器通过位于源和目标之间的另一个形状进行从源形状到目标形状的路由)，我希望连接器应该通过页面only.Pls建议如何实现这一点。
浏览 0提问于2012-08-31得票数 0
1回答
我有一些为我生成Visio母版的代码，有些母版具有自动生成的带有一个或多个操作的Action部分。我想要做的是将这些母版拖放到一个页面中，遍历形状中的操作列表，执行每个操作，并检查它们是否正确无误地完成。
我的所有操作都使用CALLTHIS来执行VBA代码，所以我猜可以使用Application.ExecuteLine，然后我只需要解析CALLTHIS及其参数。但我想知道，Visio VBA中是否有某种机制可以让我以编程方式执行操作，或者我是否必须自己完成所有操作？
浏览 1提问于2012-06-07得票数 0
回答已采纳
2回答
我刚开始在Visio上使用VBA编程。我想要做的是编写一个代码，自动绘制两个形状之间的连接器。
在网上搜索时，我找到了这样的代码：
公共子AutoConnect_Example()
Dim vsoShape1 As Visio.Shape
Dim vsoShape2 As Visio.Shape
Dim vsoConnectorShape As Visio.Shape
Set vsoShape1 = Visio.ActivePage.Shapes("Decision")
Set vsoShape2 = Visio.ActivePage.Shapes("Proc
浏览 7提问于2022-06-18得票数 1
我正在阅读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回答
我有一个Visio模板，它有自己的模板(形状库)。想象一下，我有一个形状更多的模具；因此，我想删除模板Visio的模具，然后添加我的模板。我在互联网上搜索了很多，但找不到解决方案。我可以简单地将我的形状添加到模板文档模板中，但是，我想使用Python来做这件事，因为我想自动化操作，而在每个模板中我都不想这样做。
在office VBA页面中，我发现了这一点，但无法在我的脚本中实现。(同时基于模板和模具添加文档对象。)
这是链接：
Public Sub AddDocument_Example()
Dim vsoDocument As Visio.Document
'Add
浏览 6提问于2021-05-14得票数 0
2回答
我知道我可以使用Shape.DrawRectangle方法在Visio中绘制一个矩形，这基本上相当于在手动UI中使用“矩形”工具。但是，Visio形状面板还包括一个“圆角矩形”。如何使用VBA绘制圆角矩形？
通过msoShapeRoundedRectangle，我发现Excel具有一种等价的形状。但是，我无法找到在Visio中创建msoShapeRoundedRectangle的任何方法，所以可能是特定于Excel的。除此之外，我还没有在网上或文档中找到有关这方面的任何信息。
浏览 2提问于2018-09-24得票数 2
回答已采纳
我希望使用VBA来改变形状中文本的字体样式(从Calibri到Verdana)。目前我有(代码的一小段)
Visio.ActivePage.Shapes(1).Characters.CharProps(visCharacterFont) = 235#
235是我系统中Verdana的字体索引。但是，字体索引非常不稳定，可能会在不同的计算机上发生变化。有没有办法通过字体名称来改变字体样式，例如...=“宋体”？这在excel中是可能的，但我在Visio中找不到类似的语法。提前感谢！
浏览 2提问于2018-11-09得票数 3
我是VBA的新手，这是我的第一份任务，涉及到一张预先存在的Visio绘图。
Visio绘图由几个形状组成，我最终希望使用vba代码检测哪些形状是电缆(由动态连接器附加的两个“连接器”形状)。要做到这一点，我首先要将所有形状名称存储在一个数组中。2)然后，我想用已知的连接器形状名称交叉检查该数组，并创建一个仅包含这些连接器形状的新数组。3)接下来，我将检查每个连接器形状所连接的是什么，这将使我能够确定它是什么类型的电缆(我已经完成了代码的这一部分)。4)最后，我会将电缆的#分配给连接器形状之一(我认为我也有工作代码)。
我正在努力弄清楚如何用我现有的代码实现步骤1和步骤2。
目前，我只能在选择其
浏览 0提问于2019-05-21得票数 1
回答已采纳
1回答
如何使用VBA脚本在Visio中创建时间线图表？我正试图在excel中做到这一点。我已经编写了打开visio图表并创建基本形状的VBA脚本。我想创建一个时间线图表。与basic_u.vss和visMSDefault类似，在创建时间线图表时有什么参数是必需的吗？下面是我正在使用的代码片段。
Option Explicit
Sub VisioFromExcel()
Dim AppVisio As Object
Dim vsoCharacters1 As Visio.Characters
Dim lX As Long
Dim dXPos As Double
Dim dYPos As Double
浏览 1提问于2015-02-17得票数 0
我正在尝试在Visio中设计自定义形状。
我的结构是这样的:在"Edit Master“页面中，我有一些矩形，我称我的形状为"MyDay"，这是它在主资源管理器和编辑窗口中的文档名称。
我的问题是，我找不到一种方法从我的一个子形状中引用形状日期本身的(like =MyDay!Name() or =MyDay!User.MyUserField)。
如果我添加对ThePage的引用并将母版拖放到页面上-我将该属性添加到页面本身-再一次-没有从子形状到主形状的引用。
我知道在ShapeSheet公式中没有"Parent“属性(仅在VBA上)，但我真的在尝试找到一种方法
浏览 13提问于2021-09-27得票数 0
我正在尝试修改Visio文件(Open XML格式)，而不必使用Windows Visio应用程序。我的第一个实验是使用7zip解压一个已知良好的.vsdx文件，该文件是使用Visio创建的。这一切都很好；我可以查看包的内容。在没有做任何修改的情况下，我使用7zip重新压缩内容并将其重命名为.vsdx，但当我尝试使用Visio打开生成的新文件时，它报告该文件已损坏。是否有办法手动将内容重新压缩为Visio可接受的有效Visio文件？我怀疑可能对文件的有效性进行了某种检查，但找不到可能的检查内容。感谢您的任何意见。
浏览 133提问于2020-08-29得票数 0
回答已采纳
1回答
下面的Visio宏(使用VBA)旋转当前选定的形状：
ActiveWindow.Selection.Rotate90
如何将该形状存储到变量中？我尝试了下面的代码。
Dim s1 as Shape
Let s1 = ActiveWindow.Selection
s1.Rotate90
这段代码不能编译，它给我一个关于“选择”的“参数不是可选的”错误。
如果我将其更改为Selection(0)，我会得到运行时错误"Invalid selection identifier“。
如果我尝试object (1)，我得到的结果是"Object variable or With block
浏览 2提问于2009-09-16得票数 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 2010中使用VBA创建一个事件处理程序，以便在单击形状时出现特定的代码段。似乎没有我能找到的事件处理程序，当一个形状被简单地单击一次时就会触发。如果有人能给我一些建议，我将不胜感激。
事件处理程序并不是绝对需要的，我只是觉得这是解决这种情况的最好方法。
谢谢!
浏览 0提问于2013-07-11得票数 0
1回答
如何将连接点添加到形状中？
我开始了这个项目，向页面添加常规矩形，并使用AutoConnect连接它们，因为每个连接都在矩形上创建了一个新的连接点。当我切换到圆角矩形时，没有创建新的连接点，连接器最终相互重叠。
我加了这样的圆形长方形..。
Application.ActiveWindow.Page.Drop Application.Documents.Item("BASIC_U.VSS").Masters.ItemU("Rounded rectangle"), 0, 0
我AutoConnect喜欢这个..。
Dim vsoCo
浏览 0提问于2015-09-08得票数 1
回答已采纳
我们一直试图让Visio使用基于的Visio图。
在Visio Online中构建了一个简单的图表(例如两个连接的形状)，并且显示得很好，我们可以获得形状数据。
但是，Visio2016客户端中创建的简单关系图失败并引发错误OSF is not defined。
Error message : "OSF is not defined"
stack : "ReferenceError: OSF is not defined
at https://appsforoffice.microsoft.com/embedded/1.0/visio-web-embedde
浏览 1提问于2018-01-17得票数 0
回答已采纳
1回答
我想以编程方式更改visio中选定形状的颜色。我可以识别形状，但无法找到用于更改该形状的颜色/样式的属性。
我正在使用这个包中的形状：
Microsoft.Office.Interop.Visio.IV.Shape.Shapes
有人有改变颜色的经验吗？
浏览 3提问于2017-06-13得票数 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
回答已采纳
我正在从表示流程图的分层数据集创建动态VSD。我不想/不需要在这些元素的绝对定位上手忙脚乱--自动布局选项将会工作得很好。
问题是我不知道如何通过代码执行这个命令。在UI (Visio2010)中，这些命令位于功能区中的以下位置:设计(选项卡) -> Layout (组) -> Re (SplitButton)。
其中任何一个都可以。浏览Visio SDK文档并搜索几天后，没有发现任何非常有用的东西。
有什么想法吗？(使用C#，但VB/VBA也可以)
浏览 1提问于2012-05-23得票数 2
回答已采纳
1回答
嗨，我正在用c#编程创建visio形状。在visio中，使用以下代码创建复合图(子进程)。
Visio.Shape ParentShape = myShape;
ParentShape.CreateSubProcess(); //it will create a sub diagram for the shape
使用此方法为形状创建子流程(复合)图。但是现在我需要将子流程图链接到一个或多个父形状。在Visio中，只需单击链接到SubProcess选项即可完成。但是我想在API..Is中获得它，它有可能获得它.？
的问题是：
如何在API中将页面分配给多个形状作为子进程。
浏览 2提问于2016-01-06得票数 0
回答已采纳
我已经在Visio中创建了两个形状，并且使用Shape.AutoConnect方法可以使用下面的代码连接这两个形状。我想按照下面的屏幕截图使用C#代码向连接器行添加名称。
Visio绘图示例：
下面是连接两个形状的代码。
Visio.Shape visioRectShape = visioPage.Drop(visioRectMaster, 4.25, 5.25);
visioRectShape.Text = from[i];
Visio.Master visioCircleMaster3 = visioStencil.Masters.get_ItemU(@"
浏览 16提问于2022-08-04得票数 0
回答已采纳
1回答
我很确定这是Visio内部的一个bug，但我不知道如何重新创建它.或者避开它。
我有一个工具，通过查看Visio中的"BeginArrow“和"EndArrow”单元格来读取ShapeSheet中箭头的方向，它非常有效。然而，一个用户对软件的正确定位有问题，我很快就意识到了原因。
问题：在箭头的开头或结尾有箭头，但每个箭头的形状表值为0。如果我只是编辑具有0的形状表单元格，并将其替换为0，箭头就会消失，因此箭头和形状工作表将恢复同步。类似地，如果我更改箭头头，然后将其更改回原来的位置，形状表不再表示箭头为0。
以前有人遇到过这个问题并找出了原因吗？
我尝试过的：--我尝试
浏览 3提问于2016-10-21得票数 0
1回答
在MS中，您可以创建一个主模板，然后将该模板中的形状拖到多个绘图中。但是，一旦拖动到绘图中，形状就会复制到该绘图的文档模板中。编辑主模板(形状最初从该模板中拖动)对绘图中的形状没有任何影响。必须在文档模板中编辑形状。
当然，这是非常不方便的，文档模板能否链接到主模板，这样更新母版就会对从它派生出来的每一张绘图产生影响？使用您刚刚编辑的模板中的形状搜索每一张绘图是有意义的，但似乎可以将绘图“链接”到主模板，并且在每次打开时查看与其链接的主模板，并对其自己的文档模板应用任何更改。
那么，我的问题是:这种类型的功能在visio中可以吗？我目前正在使用标准版本，但是专业版可能有类似的功能吗？
如果不是
浏览 4提问于2014-04-14得票数 1
1回答
我想建立类似于MSVisio2016Professional中的(超级)图表的模型，然后将形状的数据导出到csv以进一步使用它。
我正在尝试创建一个VBA脚本，它遍历工作表上的所有形状，并将(手动插入的)数据从形状写入一个csv文件(而且在将来可能会根据形状的类型而有所不同的csv文件)。
为了对VBA有一种感觉，我试着从一个脚本开始，这个脚本可以计算表单上的所有形状，但是我已经失败了。请考虑一下，这是我第一次与VBA合作：
Sub countShapes()
Dim shp As Shape
Dim count As Integer
count = 0
Debug.Print count
浏览 2提问于2018-06-29得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
