![导出 Excel 图表并包含文本框](https://linux22.com/image/1346300/%E5%AF%BC%E5%87%BA%20Excel%20%E5%9B%BE%E8%A1%A8%E5%B9%B6%E5%8C%85%E5%90%AB%E6%96%87%E6%9C%AC%E6%A1%86.png)
我有一段可以导出 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
除了我在图表上添加了一个文本区域,但它没有显示在导出的图像中。有什么建议吗?
答案1
如果在插入文本框之前选择图表,它将成为图表的一部分并正确导出。