如果我没有选择单元格，图表将无法正常工作

Question

为什么下面的这一行不起作用？

ActiveSheet.Shapes.AddChart2(204, xlColumnClustered).Select

但是这个可以做到

graphe_clos.Cells(2, 1).Select
ActiveSheet.Shapes.AddChart2(204, xlColumnClustered).Select

我打算在同一张纸上创建多个图表和数据透视表，所以我需要始终指定一个单元格吗？

Answer 1

使用.AddChart代替.AddChart2。这对我行得通。然后，您可以在With块中编辑图表属性。

Answer 2

这应该有效（必须在.Chart语句中添加with）

with ActiveSheet.Shapes.AddChart2(204, xlColumnClustered).Chart
    .ClearToMatchStyle 
    .ChartStyle = 257 
    .HasTitle = True 
    .ChartTitle.Text = " Nombre d'évènement" 
end with

但是，属性.ShowValueFieldButtons和.ShowValueFieldButtons无效（我认为它们仅对数据透视图有效）。无论是否使用ActiveChart，它都会给出错误消息。

一般建议：阅读How to avoid using Select in Excel VBA