Se você selecionar o gráfico antes de inserir a caixa de texto, ele fará parte do gráfico e será exportado corretamente.
Eu tenho este código que exporta um gráfico do Excel e está funcionando bem.
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
Só que adicionei uma área de texto no gráfico e isso não aparece na imagem exportada. Alguma sugestão?