excel - 将图形提取为图像

Question

我正在尝试根据图表的标题从工作表中提取图表。
例如，我在一张纸上有五组图表，每组都以一周中的每个工作日命名。我只想提取图表标题中包含“星期二”的图表。
在网上研究并找到如何将所有图形提取为图像后，我尝试了:

Dim objCht as ChartObject
For each objCht in Activesheet.Chartobjects
objCht.Chart.ChartTitle("Tuesday").Export "C:\folder\" & objcht.topleftcell.Value & ".jpg", "JPG"
next objCht

Answer 1

Dim objCht As ChartObject
For Each objCht In ActiveSheet.ChartObjects
    If objCht.Chart.ChartTitle.Text = "Tuesday" Then
        'Use your code to export 
Next objCht

如果您只是将图表命名为“星期二”，那会更简单。您可以立即将其导出，而无需遍历工作表上的所有其他图表。