VBA word生成统计图时，如何关闭闪动的Excel？

[lizjf]

RT，word生成统计图，有Excel一直闪动直到word生成完毕？如何解决呢

[milaoshu1020]

我试了一下,下边这句能把Excel隐藏的:

aChart.ChartData.Workbook.Application.Visible = False

你为什么给注释掉了?是不是位置不对效果不好?

[lizjf]

我就放在对应的位置，然后没有隐藏，你是放在哪里？

[milaoshu1020]

就这三行,你可以试试将这三行代码放到一个过程里,然后F5运行一下,看能不能隐藏:

dim aChart as chart
set achart = selection.inlineshaptes.addchart(xl3dcolumnclustered,selection.range).chart
aChart.ChartData.Workbook.Application.Visible = False

如果不确定是第三行隐藏的,可以注释掉第三行,再运行看还能不能隐藏.

[lizjf]

引用 3 楼 milaoshu1020 的回复:

就这三行,你可以试试将这三行代码放到一个过程里,然后F5运行一下,看能不能隐藏:

dim aChart as chart
set achart = selection.inlineshaptes.addchart(xl3dcolumnclustered,selection.range).chart
aChart.ChartData.Workbook.Application.Visible = False

如果不确定是第三行隐藏的,可以注释掉第三行,再运行看还能不能隐藏.

加了，也不好使

[milaoshu1020]

因为Excel打开的速度比较慢,所以打开以后会有一段时间没隐藏的,这种情况我也没办法.