Question

我正在尝试将excel图表导出为png。图表由宏构成，标题定义为

.ChartTitle.Text = Area" + NR

其中NR定义为

 NR = Str(Cells(2, 2)).

这是我想要使用的代码：

Charts(ChartName).Activate
With ActiveChart
ActiveChart.Export "D:\My_Charts\ChartName.png"
End With

我找到了将图表导出到png的其他多种方法，问题是我不知道如何为ChartTitle做这个，它不仅仅是纯文本，还包含一个变量。如何填写图表名称以及图表标题的区别是什么？

我希望输出png为Area_NR.png或AreaNR.png

如果我的问题太模糊，我提前道歉，我是新手使用VBA并且我正在尝试解决问题，但我在其他论坛上找到的答案对我来说很难理解。

Answer 1

这是如何通过名称获取图表。 ChartObject 是工作表的成员，因此需要指定工作表。这里的 VariableName 是图表的名称。

Dim MyChart As ChartObject

VariableName = "Chart 1"
Set MyChart = Sheets("SheetName").ChartObjects(VariableName)
MyChart.Export "D:\My_Charts\ChartName.png"

要按标题获取图表，您需要遍历工作表的 ChartObjects 并询问标题。

Dim MyChart As ChartObject

VariableTitle = "Chart Title"

For Each MyChart In Sheets("SheetName").ChartObjects
    If MyChart.Chart.ChartTitle.Caption = VariableTitle Then
        MyChart.Export "D:\My_Charts\ChartName.png"
    End If
Next

视觉基本出口到png

1 个答案: