Vba 强制文档呈现图表

作为Word VBA例程的一部分，我在将图表导出到图像时遇到问题。在创建图表的过程中，在整个过程完成之前，图表不会显示在屏幕上。因此，当使用导出图像时

doc.InlineShapes（1）.Chart.Export文件名：=ThisDocument.Path&“\Chart.bmp”，过滤器名：=“bmp”

程序完成后，分辨率远低于屏幕上显示的分辨率。为清晰起见，下图在底部显示原始图表，在顶部显示导出的图像

我知道当图表在屏幕上呈现时，这是有效的，因为在中断模式下单步执行代码会导致导出更高分辨率的图像

我尝试使用以下方法强制图表在导出图像之前进行渲染：

    doc.Activate
    doc.InlineShapes(1).Chart.Select
    Application.ScreenRefresh
    Sleep 10000
    ActiveWindow.SmallScroll

欢迎提出任何建议