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

텍스트 상자를 삽입하기 전에 차트를 선택하면 차트의 일부가 되어 제대로 내보내집니다.