如何使用vba

Question

我想将单元格A1作为图表标题。我使用下面给出的代码。但它没有奏效。

ActiveChart.SetElement (msoElementChartTitleAboveChart)
ActiveChart.ChartTitle.Text = "HSI of" & Cells(1, 1).Value

我希望图表标题为“HSI”“*******单元格值（在我的情况下为A1）**********”

Answer 1

在分配标题之前，请将图表的HasTitle属性设置为True。

ActiveChart.HasTitle = True
ActiveChart.SetElement (msoElementChartTitleAboveChart)
ActiveChart.ChartTitle.Text = "HSI of " + Cells(1, 1).Value

Answer 2

您的第二行代码看起来不错。让我们看看您是否可以调整第一行以获得所需的结果。试试这个，假设你的图表是活动表中的第一个：

ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartTitle.Text = "HSI of " & Cells(1,1).Value

此代码激活当前工作表中的第一个图表对象，然后更改标题。