Question

我在VBA中找到了一个代码，可以将工作簿中的所有图表导出到指定的文件夹中。它使用工作表名称保存，但我希望使用图表名称进行保存。

我试过

cht.Chart.Export "C:\Users\----\Desktop\ExcelCharts\" & Range("A1").Value & ".jpg", "JPG"

此代码只生成一个文件，但名称为“我想要”

cht.Chart.Export "C:\Users\----\Desktop\ExcelCharts\" & cht.Name & ".jpg", "JPG"

此代码生成图像1和图像10，而我的图表在表1中命名为Hydralaz 20，在表2中命名为Hydralaz 10。

以下是成功导出工作簿中所有图表的脚本。

Sub Test()

Dim sht As Worksheet, cht As ChartObject
Dim x As Integer

    For Each sht In ActiveWorkbook.Sheets
        x = 1
        For Each cht In sht.ChartObjects
            cht.Chart.Export "C:\Users\----\Desktop\ExcelCharts\" & sht.Name & ".jpg", "JPG"
            x = x + 1
        Next cht

    Next sht

End Sub

感谢您的帮助！

Answer 1

将sht.Name更改为cht.Chart.ChartTitle.Text

更改jpeg图像从工作表到图表名称的导出

1 个答案: