匯出 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

如果在插入文字方塊之前選擇圖表，它將成為圖表的一部分並正確匯出。