如何在Userform中使用chart作为进度条并实现实时更新

完全不需要放弃环形图（Doughnut Chart）进度条方案回退传统进度条。Userform加载后图表无法正常更新是VBA单线程执行阻塞界面消息队列导致的共性问题，并非图表控件本身不支持动态进度展示，通过简单的重绘触发逻辑即可实现稳定的进度刷新，数分钟时长的macro运行场景下完全可用。

• VBA默认是单线程执行模型，耗时macro运行时会占用全部主线程资源，界面重绘类的系统消息会被阻塞在队列中无法响应，哪怕你已经修改了图表数据源，界面也不会主动更新
• Userform承载的Chart控件默认不会在后台数据源变更时自动触发重绘，尤其是在macro持续占用线程的状态下，系统不会主动分配资源给控件做渲染

方案1：主动触发重绘+释放控制权（最简便，90%场景可用） #

提前将环形图的数据源绑定到隐藏工作表的固定单元格（例如隐藏工作表ProgressCache的A1存已完成进度值，范围0-100；A2存剩余进度值，公式设为=100-A1），不要直接通过操作Chart对象的系列值更新进度，单元格绑定的方式更新效率更高。
每次修改进度单元格数值后，加入两行核心代码强制处理界面消息、重绘窗口：

' 示例：更新进度至40%
ThisWorkbook.Sheets("ProgressCache").Range("A1").Value = 40

' 核心刷新逻辑
DoEvents ' 先处理队列中积压的界面消息
Me.Repaint ' 强制当前Userform重绘所有控件（含Chart）

如果你的macro全程设置了Application.ScreenUpdating = False，需要在更新进度的代码段前临时开启屏幕更新，刷新完成后再关闭，否则会拦截Chart的重绘请求：

Application.ScreenUpdating = True
ThisWorkbook.Sheets("ProgressCache").Range("A1").Value = 40
DoEvents
Me.Repaint
Application.ScreenUpdating = False

方案2：无模式加载Userform（响应更流畅） #

加载进度窗口时，不要使用默认的模态窗口参数，改用无模式加载，可避免窗口阻塞主线程的消息传递，图表刷新响应速度更快：

' 替换原有的 UserForm1.Show 代码
ProgressForm.Show vbModeless

使用无模式窗口时建议临时锁定工作表编辑权限，同时将窗口设为置顶，避免macro运行过程中用户误操作Excel界面触发报错。

方案3：图片替换渲染（极端稳定，适配所有版本Excel） #

如果遇到部分老版本Excel中嵌在Userform的Chart控件偶发不刷新的问题，可以放弃直接嵌入Chart控件，改用图片控件做展示：每次更新进度后，将工作表中预做好的环形图导出为临时图片，加载到Userform的Image控件中即可，本质是替换图片资源，不存在重绘阻塞问题：

Dim tempImgPath As String
tempImgPath = Environ("temp") & "\macro_progress.bmp"

' 导出当前进度对应的环形图
ThisWorkbook.Sheets("ProgressCache").ChartObjects("DoughnutProgress").Chart.Export tempImgPath
' 加载图片到Userform
Me.progressImg.Picture = LoadPicture(tempImgPath)

DoEvents
Me.Repaint

' macro全部运行完成后删除临时文件
Kill tempImgPath

• 不需要每1%进度就触发一次刷新，建议每完成3%-5%的总进度再更新一次，频繁重绘会拖慢macro整体运行速度
• 环形图的配色、标签、边框等样式提前在设计阶段设置好，macro运行过程中只修改数据源数值，不要调整样式属性，能大幅降低重绘开销
• 若macro中包含大量单元格读写、批量计算逻辑，配合Application.Calculation = xlCalculationManual手动控制计算时机，能进一步提升进度刷新的流畅度

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