Экспортируйте диаграмму 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

Если вы выберете диаграмму до того, как вставите текстовое поле, она будет частью диаграммы и будет правильно экспортирована.