怎样快速的绘制流程图中的连接线

mavin

如题，在画流程图，已经绘制好所有的文本框。但是绘制连接线时，总是点“自选图形”、点“连接符”、点“直接箭头连接符”，然后画一根连接线。画第二根时又要重复以上的选择。

我想，肯定是有快捷的操作方法的，只是我不知道。那位先知告诉我一下，谢了先！

子恺

已画好的连接线复制粘贴。

mavin

谢谢楼上的，复制连接线，感觉没快多少，需要移动连接符，还要依次点2个端点，连接上文本框的中点。
我现在使用的方法是用模拟精灵，模拟键盘鼠标的动作，按个快捷键（如F2），自动点击“直接箭头连接符”。类似于宏的操作。
我录制宏也没成功，有没有录制成功的朋友，把VBA代码贴一下给我。

继续求，有没有人知道，怎样连续操作连接符的。

zhoulon

用autocad画流程图吧，很快的，又好控制。

mavin

谢谢楼上的。word文档比较通用，我这里不完全是流程图，前面还有好多文字呢。
以前我用VISIO画流程图的，后来发现，word中也有连接符的，现在决定都在word中画。因为前面还会有很多文字，也因为word比visio更通用，发给别人直接能用。

熟悉cad的，当然用cad画流程图也很方便。我老婆就是设计院的，每天就是画cad。不过CAD也不够通用。

还是坚持用word画流程图。我已经用模拟精灵解决了重复点连接符的问题，也用模拟精灵解决了将文本框设置成等高、等宽、等距离。

那位tx要用同样的功能，我可以将模拟精灵的脚本发给他。

luofeng1982

不错，真的很实用！

doublew

我需要脚本！！谢谢！

YZC51

只删除图片

1. Private Sub CommandButton3_Click()
   
2. Dim shp As Object
   
3. For Each shp In ActiveSheet.Shapes
   
4. If shp.Type = 13 Then shp.Delete
   
5. Next shp
   
6. End Sub

复制代码