如何在Visio中创建动态移动的中断连接线？

Visio本身没自带这种动态线条的功能，给你三个可行的实现方向：

方向一：导出SVG加动画（和你要的示例效果最匹配） #

1. 先在Visio里画好你需要的中断连接线，调好样式（比如虚线样式、颜色），然后把绘图导出成SVG格式（文件→另存为→选择SVG）。
2. 用记事本或任意文本编辑器打开这个SVG文件，找到对应连接线的代码块，给它添加CSS动画：
   • 先加stroke-dasharray属性定义虚线的段长和空隙，比如写stroke-dasharray: 10 5；
   • 再加animation属性让虚线动起来，比如animation: dash 2s linear infinite；
   • 最后补充@keyframes规则，通过修改stroke-dashoffset实现移动效果，代码示例：

     @keyframes dash {
       to {
         stroke-dashoffset: -15;
       }
     }
     

3. 保存修改后的SVG，用浏览器打开就能看到动态效果，也可以嵌入网页使用。

方向二：插入GIF动图（适合快速做演示） #

1. 先在Visio外使用PS、AE或在线动图工具，制作一段循环的动态虚线GIF，尺寸和你Visio里的连接线对齐。
2. 回到Visio，插入这个GIF文件（插入→图片→选择本地文件），把GIF精准覆盖在你画的静态连接线上，调整位置和透明度，让它看起来像是线条本身在动。
3. 注意：Visio编辑状态下可能不会自动播放动画，需要导出为支持动图的PDF或者切换到演示模式才能查看效果。

方向三：用VBA宏实现内部动态（仅限Visio里临时演示） #

1. 打开Visio的开发工具选项卡，进入VBA编辑器，新建一个模块。
2. 编写宏代码，通过定时修改连接线的虚线偏移量来模拟移动效果，示例代码：

   Sub AnimateLine()
       Dim targetLine As Shape
       Set targetLine = ActiveWindow.Selection(1) '选中要做动画的线条
       Dim offsetNum As Integer
       offsetNum = 0
       Do While True
           targetLine.Cells("LineDashOffset").FormulaU = offsetNum
           offsetNum = offsetNum - 1
           If offsetNum < -20 Then offsetNum = 0
           DoEvents
           Sleep 50 '控制动画速度，数值越小动得越快
       Loop
   End Sub
   

3. 运行宏后，选中的线条会开始动态偏移，但需要保持宏运行状态，关闭Visio后效果会消失，适合临时展示使用。

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