导出 Excel 图表并包含文本框

Question

我有一段可以导出 Excel 图表的代码，并且运行良好。

Sub ExportChart(ByVal fileName As String)
     '   Export a selected chart as a picture    
    Const sPicType$ = ".png"
    Dim sChartName$
    Dim objChart As ChartObject 
    Set objChart = ActiveSheet.ChartObjects(1)
    If objChart Is Nothing Then
        Exit Sub
    End If
    sPath = fileName & sPicType
    objChart.Chart.Export fileName:=sPath, FilterName:="PNG"
    Application.DisplayAlerts = False
    ActiveWorkbook.Saved = True     
End Sub

除了我在图表上添加了一个文本区域，但它没有显示在导出的图像中。有什么建议吗？

Answer 1

如果在插入文本框之前选择图表，它将成为图表的一部分并正确导出。