Tag: visio

如何在Excel中使用Excel数据颜色形状？ – Microsoft Visio 2010: 我正在尝试使用来自我的Excel表单的数据创build一个实时显示。我怎样才能填充基于单元格数据的形状，即0 =红色，1 =绿色？谢谢

Excel VBA创buildVisio组织结构图: 我的老板让我试图想出一种方法来自动化我们公司的组织结构图。他们一直在使用Visio，并希望继续。到目前为止，他们只是采取前几年的图纸，并进入手动做所有职位的变化。到目前为止，我已经把所有的员工数据都存入excel工作簿，给每个员工一个唯一的ID号码，并且创build了一个报告，列出每个员工报告的人员ID号码。有了这个，我可以通过导入数据在Visio中创build组织结构图。我有两个问题， Visio为工作簿中的每个工作表创build组织结构。我的老板希望将所有过去的组织图表数据保存在一个工作簿中，所以我不想通过导入Excel工作簿来重新创build每一年的组织结构图。 Visio的结构不是很好。我不知道是否有一种方法让Visio按照我在Excel中列出的顺序排列这些框，但这样做会有所帮助。我有几个人向一个人报告，但其中一个应该高于另一个（因此在Excel中，他们将直接排在第二行）。 Visio将人们随机地放在层次结构的层次上。我是VBA的新手，但是已经做了一些小的项目，并进行了大量的研究。我想知道是否有人有任何想法如何使用VBA在Visio中使用Excel数据创build结构化的组织结构图。（我们也有2016年的Excel版本，但只有2010年的Visio版本，所以一直有点路障）。任何帮助，将不胜感激！

从Excel表和字段列表创buildVisio数据库图: 我有一个Excel工作表，其中包含以下列：表名称字段名称数据types 我的目标是将其导入Visio，并为每个表格生成表格形状，并填充每个字段/数据types。然后，我可以绘制关系线，并安排一切。我在这里和其他网站上看到过有关导入Excel的post，但它似乎是数据，而不是数据计划。有人知道怎么做吗？请让我知道，如果你需要更多的信息。我正在使用Office 2010。谢谢！

在Visio中select活动页面: 编辑：我没有这个意思..我试图打开Visio（工作），然后在我select的文档中打开一个页面。谢谢 Dim FName As String Dim VsApp As Object On Error Resume Next Set VsApp = GetObject(, "Visio.Application") If VsApp Is Nothing Then Set VsApp = CreateObject("Visio.Application") If VsApp Is Nothing Then MsgBox "Can't connect to Visio" Exit Sub End If End If On Error GoTo 0 FName = "C:\myfile.vsd" If Not Intersect(Target, Range("c2")) […]

如何获取OLEembedded式Excel对象中的ActiveSheet: 我正在四处看看在Visio中embeddedExcel工作簿，并对embedded的数据进行读/写操作。使用Excel数据粘贴特别似乎embedded整个工作簿，而不仅仅是选定/复制的数据。我能够获得对Visio页面上embedded的Excel工作簿对象的引用，但我无法确定哪些工作表处于活动状态并在Visio中显示。看来，我只能告诉正在编辑的工作表是什么活动工作表。当它只是在页面上时，Workbook对象返回的是ActiveSheet的Nothing，而工作簿没有Windows。这是有道理的，它没有窗户，但没有太多的意义，没有积极的工作表。有没有办法找出Excel OLE对象中的“活动”工作表？或者我所写的任何代码都是在假设一切都在表1中的情况下工作的？我可能会以编程方式添加任何embedded式工作簿，因此，将每本书都限制在一张纸上不会太大，但我只是想确保没有一些属性可以忽略，告诉我我想要什么。此代码将在页面上findExcel OLE对象，并在工作簿的工作表1中设置单元格A1和B1： Dim CheckShp As Visio.Shape Dim CheckObj As OLEObject For Each CheckObj In ActivePage.OLEObjects If CheckObj.ProgID Like "Excel.Sheet.*" Then Dim Sheet As Excel.Worksheet Dim Bk As Excel.Workbook Set Bk = CheckObj.Object Set Sheet = Bk.Worksheets(1) Sheet.Cells(1, 1) = "HELLO" Sheet.Cells(1, 2) = "WORLD" End […]

Visio自动容器从行: 我正在使用Visio Professional 2016.是否可以根据外部Excel数据中的列（例如项目名称）自动创build容器？我发现这一点，但我不知道这是否是我想找的。除此之外，这并不容易。另一个问题，我在哪里可以find类似yEd属性映射器的设置？我想从Excel数据自动创build形状。如果在我的外部数据中添加了一个新行，它应该创build一个新的形状。编辑：这将使用VBA回答我的所有问题？

Visio 2003/2010页面列表到Excel: 有没有办法在Visio工作表中获取和导出多个页面名称？我不想导出页面中的对象，只想获取页面列表。示例：文件Accounting_Layout.vsd包含以下页面：input，输出，报告和未使用。我如何获得这个列表并导出到Excel？

在Excel和Microsoft Visio之间更新: 我已经创build了一个组织结构图从Excel中浏览。我的问题是：当我将新的数据logging插入到Excel中时，如何更新我的Microsoft Visio组织结构图。我有我的Excel文件和Visio组织结构图之间的“链接数据形状”。但是，当我插入一个新的logging到Excel，我发现我的Visio无法更新和更改图表本身，当我刷新“数据形状”在Visio中。有没有办法做到这一点，或者我只能重新创build组织结构图？

从Excel的VBA不能Visio自动连接两个形状: 我正试图从Excel内部生成一个Visio。我可以看到形状，但autoconnect方法炸弹与“types不匹配”错误。我也尝试了GlueTo方法，没有运气。难道是因为shpObj不是一个真正的形状？我需要帮助，看看如果是这种情况，如何更好地存储形状，或者如果可能，保留shapeID。 shpFrom只是第一个shpObj …下面是我如何将形状放入Visio： Set shpObj = AppVisio.ActiveWindow.Page.Drop(AppVisio.Documents.Item("Computers and Monitors.vss").Masters.Item("PC"), dXPos, yPos) 以下是我如何连接它们的方法： shpObj.AutoConnect shpFrom, visAutoConnectDirUp 看起来挺直的，但是我不能得到它的工作。这里是所有的代码： Sub VisioFromExcel() Set AppVisio = CreateObject("visio.application") AppVisio.Visible = True AppVisio.Documents.AddEx "Basic Network Diagram.vst", visMSmetric, 0 ComputerStencil = AppVisio.Documents.AddEx("Computers and Monitors.vss", visOpenRO + visOpenDocked) Connector = AppVisio.Documents.AddEx("Connectors.vss", visOpenRO + visOpenDocked) AppVisio.Windows.ItemEx(1).Activate dXPos = AppVisio.ActivePage.PageSheet.Cells("PageWidth") / […]

使用VBA在Visio中打开embedded的Excel: 我有一个VBA的小问题。我有大约800个带embedded式Excel的Visio文件，如果您双击，将在单独的应用程序中打开。 Excel文件中的代码在Visio2007 / Excel2007中存在一些错误/问题。我已经编写了用于更新Excel VBA代码的代码。我的问题是，我必须让代码运行时，embedded的Excel打开，任何button被按下之前！我只需要知道如何用代码打开embedded式Excel！（我没有find任何地方..）