能否通过VBA实现Visio的「Create from Data」同步数据可视化功能？

可以通过Visio对象模型API实现该功能，并且能复刻原生的Excel-Visio数据同步逻辑。原生「Create from Data」的核心是数据记录集（DataRecordset）绑定+自动刷新，以下是具体实现方案：

关键原理 #

Visio的DataRecordsets对象负责管理外部数据源链接，通过设置自动刷新模式，可实现Excel数据变化时Visio内容的自动同步。录制宏无法捕获该功能是因为它是UI层的组合操作，底层由多个对象模型方法协同完成，而非单一可录制的命令。

实现步骤与代码示例 #

1. 建立Excel数据链接并设置自动同步 #

通过DataRecordsets.Add方法导入Excel数据，指定visDataRecordsetLinkRefreshAuto参数开启自动刷新，确保数据变化实时同步。

2. 创建形状并绑定数据字段 #

将Excel字段绑定到形状的文本、样式或自定义属性，实现数据可视化。

完整示例代码 #

Sub VisioCreateFromExcelWithSync()
    Dim visApp As Visio.Application
    Dim visDoc As Visio.Document
    Dim visPage As Visio.Page
    Dim dataRS As Visio.DataRecordset
    Dim targetShp As Visio.Shape
    Dim nameColIdx As Integer, valueColIdx As Integer
    Dim excelPath As String
    
    ' 替换为你的Excel文件路径
    excelPath = "C:\YourExcelData.xlsx"
    
    ' 初始化Visio实例
    Set visApp = New Visio.Application
    visApp.Visible = True
    Set visDoc = visApp.Documents.Add("Basic Diagram.vstmx") ' 使用基础流程图模板
    Set visPage = visDoc.Pages(1)
    
    ' 导入Excel数据，开启自动刷新（同步模式）
    Set dataRS = visDoc.DataRecordsets.Add(excelPath, visDataRecordsetLinkRefreshAuto, "Sales Data")
    
    ' 获取Excel字段的索引（假设Excel有"ProductName"和"Sales"列）
    nameColIdx = dataRS.GetColumnIndex("ProductName")
    valueColIdx = dataRS.GetColumnIndex("Sales")
    
    ' 遍历数据创建形状并绑定数据
    For i = 1 To dataRS.RecordCount
        ' 创建矩形形状，按顺序排列
        Set targetShp = visPage.DrawRectangle(1 + (i - 1) * 3, 8, 3 + (i - 1) * 3, 6)
        
        ' 绑定ProductName到形状文本
        targetShp.DataBindings.Add visAutoLinkShapeText, dataRS.ID, nameColIdx
        
        ' 绑定Sales到形状填充颜色（通过公式关联数值与颜色）
        targetShp.CellsU("FillForegnd").FormulaU = "=GUARD(DATAFIELD(" & dataRS.ID & "," & valueColIdx & ")/100)"
        ' 注：这里简单将数值映射为颜色值，可根据需求替换为更复杂的逻辑或数据图形
    Next i
End Sub

同步机制说明 #

• 当设置visDataRecordsetLinkRefreshAuto时，Visio会自动监控Excel文件的修改，数据记录集（DataRecordset）会实时更新，所有绑定了该数据集的形状属性会自动同步，和原生功能的同步逻辑完全一致。
• 若需手动触发同步，可调用dataRS.Refresh方法；若要处理同步后的自定义逻辑，可监听Visio.Application.DataRecordsetChanged事件。

进阶：应用数据图形 #

如果需要更丰富的可视化效果（如数据条、图标集），可通过DataGraphicSets对象应用预设或自定义的数据图形：

' 给所有形状应用基础数据图形
visDoc.DataGraphicSets("Basic Data Graphic").ApplyTo visPage.Shapes

内容的提问来源于stack exchange，提问作者Danny Boy