用宏实现复杂流程图发光效果——强调流程路径,提升可读性

本文介绍如何使用VBA宏在Excel中实现复杂流程图的发光特效,以强调流程路径,提高可读性。作者详细阐述了需求分析、VBA代码测试与调试过程,以及解决的兼容性和对象属性问题。最终提供了适用于Excel2013和365的代码,通过快捷键(Ctrl+Shift+S)触发,可实现单选或多选图形的发光效果,增强用户对流程图的理解。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。

最近画了个节点超过100的流程图,节点关系超过10个的情况非常多,许多连接符在路径、线型和颜色方面多次重合和重复。包括作者在内,基本上不愿意分辨清楚流程节点之间的细节关联,杜绝了追溯和梳理全局流程关系的可能。
所以,为了方便自己,也同时方便他人,有必要做一个可以凸显流程路径的自定义功能来强调关系,增强用户阅读体验。在测试了多种Excel图形默认显示效果之后,最终确定基于“发光”特效的宏最符合需求。具体步骤如下:

  1. 绘制复杂流程图
    简单的流程图就没必要专门搞特效,当然如果有博取关注的需求就另当别论了。以下流程图是用于教程示例,所以不太复杂:
    复杂关系图

  2. 梳理功能需求
    ①对于连接符,需要强调起点图形、终点图形以及连接符本身,从而标记完整关系(如图形1与7);
    ②对于图形元素,需要强调始于和终于图形本身的所有连接符,从而追溯全局关系(如图形Oval 2);
    ③触发方式为选择图形后使用快捷键触发(原本打算用开关按钮启动宏,但是按钮与连接符的AutoShapeType值相同,会导致属性读取bug )。

  3. 测试VBA语句
    A 录制宏中发光特效语句是Selection.ShapeRange.Glow,与预设的宏触发方式冲突。所以参考sevenstar在帖子闪烁效果求助的回复,使用避免选中的语句Sheet1.Shapes.Range(Array(“Flowchart: Alternate Process 1”)).Glow
    B 连接符的属性AutoShapeType为-2,与其他图形不同,可用做判断条件分别实现功能①和②。另外,连接符的.ConnectorFormat.EndConnectedShape.ZOrderPosition属性可用于获取终点图形的索引号,改为BeginConnectedShape即可取得起点图形索引号。
    C 多重选定的图形是

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值