是否可将修改后的MS Visio绘图反向转换为对应的VBA代码？

结论 #

完全可以实现，Visio本身没有内置一键导出的功能，但你可以通过额外编写VBA宏，读取修改后形状的所有属性参数，自动拼接生成对应的VBA创建代码。

实现思路 #

• 首先选中你修改完成的目标形状
• 编写VBA遍历该形状的类型、坐标、尺寸、文本、格式、公式等所有你需要保留的属性
• 将读取到的属性值拼接成对应VBA赋值语句，输出为可直接运行的宏代码

参考导出代码示例 #

下面是针对单个矩形形状的简易导出代码，你可以根据自己的需求扩展支持更多属性和形状类型：

Sub ExportShapeToVBA()
    Dim vsoShape As Visio.Shape
    Set vsoShape = ActiveWindow.Selection.PrimaryItem
    If vsoShape Is Nothing Then Exit Sub
    
    ' 输出生成代码
    Debug.Print "Sub GenerateModifiedShape()"
    Debug.Print "    Dim vsoShape As Visio.Shape"
    ' 读取当前矩形的坐标参数，DrawRectangle参数规则为(左,上,右,下)
    Dim left As Double, top As Double, right As Double, bottom As Double
    left = vsoShape.Cells("PinX") - vsoShape.Cells("Width") / 2
    top = vsoShape.Cells("PinY") + vsoShape.Cells("Height") / 2
    right = vsoShape.Cells("PinX") + vsoShape.Cells("Width") / 2
    bottom = vsoShape.Cells("PinY") - vsoShape.Cells("Height") / 2
    Debug.Print "    Set vsoShape = ActivePage.DrawRectangle(" & left & ", " & top & ", " & right & ", " & bottom & ")"
    ' 导出文本属性
    Debug.Print "    vsoShape.Text = """ & Replace(vsoShape.Text, """", """""") & """"
    ' 导出字体大小属性
    Debug.Print "    vsoShape.Cells(""Char.Size"").Formula = """ & vsoShape.Cells("Char.Size").Formula & """"
    ' 导出填充颜色属性
    Debug.Print "    vsoShape.Cells(""Fillforegnd"").Formula = """ & vsoShape.Cells("Fillforegnd").Formula & """"
    Debug.Print "    vsoShape.BringToFront"
    Debug.Print "End Sub"
End Sub

运行上述代码后，修改后的形状对应的VBA代码会输出到VBA编辑器的立即窗口（按Ctrl+G可调出），直接复制即可使用。

注意事项 #

• 如果需要处理组合形状、连接线、自定义母版形状等复杂元素，需要额外补充对应形状类型的属性读取逻辑
• 如果你需要导出整个页面的所有形状，只需要在代码中增加遍历ActivePage.Shapes集合的逻辑即可

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