Excel ExportAsFixedFormat如果以前在工作表上激活了图表,则不会导出整个工作表

Excel ExportAsFixedFormat如果以前在工作表上激活了图表,则不会导出整个工作表,excel,vba,Excel,Vba,使用数据库跟踪库存,并创建使用和库存预测 所需功能之一是将完整报告导出为PDF格式。我已经创建了一个包含所有图表和所需信息的工作表,这就是我正在导出的工作表 所需的另一个功能是在userform中显示图表 此位将图形加载到用户窗体中。我必须激活它,否则导出的文件是空的。我想这是因为Excel没有绘制图表,因为它不在可见的工作表中 ActiveWorkbook.RefreshAll Sheets("StatisticsPDF").ChartObjects(3).Activate Set MyCha

使用数据库跟踪库存,并创建使用和库存预测

所需功能之一是将完整报告导出为PDF格式。我已经创建了一个包含所有图表和所需信息的工作表,这就是我正在导出的工作表

所需的另一个功能是在userform中显示图表

此位将图形加载到用户窗体中。我必须激活它,否则导出的文件是空的。我想这是因为Excel没有绘制图表,因为它不在可见的工作表中

ActiveWorkbook.RefreshAll
Sheets("StatisticsPDF").ChartObjects(3).Activate
Set MyChart = Sheets("StatisticsPDF").ChartObjects(3).Chart
MyChart.ChartStyle = 209
Fname = ThisWorkbook.Path & "\temp1.bmp"
MyChart.Export filename:=Fname, FilterName:="bmp"
MyChart.ChartStyle = 201
Me.Image2.Picture = LoadPicture(Fname)
Worksheets("Main").Activate
这是我的导出为PDF位。如果我打开工作簿并立即导出,它将按预期工作

Set pdf = Worksheets("StatisticsPDF")
pdf.Visible = xlSheetVisible
fileSaveName = ThisWorkbook.Path & "\Reports\Stationary Report - " & Format(Now(), "DD-MM-YYYY hhmmss")
pdf.ExportAsFixedFormat Type:=xlTypePDF, filename:=fileSaveName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
pdf.Visible = xlSheetVeryHidden

但是,如果我将其中一个图表加载到userform中,然后尝试将工作表导出为PDF,则导出的文件仅包含图表,而不是整个工作表。我已尝试先激活工作表,但似乎没有什么不同。

如果选中,Excel似乎只会打印(或导出)图表。在导出命令完成之前选择单元格