在数据库上工作,以跟踪库存并创建使用和库存预测。
所需的功能之一是将完整的报告导出为PDF。我已经创建了一个包含所有所需图表和信息的工作表,这就是我要导出的工作表。
另一个需要的功能是在用户表单中显示图表。
此位将图形加载到用户表单中。我必须激活它,否则导出的文件是空的。我认为这是因为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位。如果我打开Workbook fresh并立即导出,它会按预期工作。
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但是,如果我将其中一个图表加载到用户表单中,然后尝试将工作表导出为PDF,则导出的文件仅包括该图表,而不是整个工作表。我已经尝试先激活工作表,但似乎没有什么不同。
发布于 2019-04-20 03:26:05
如果选择了图表,Excel似乎只会打印(或导出)图表。在export命令之前选择一个单元格已经完成了这项工作。
https://stackoverflow.com/questions/55766448
复制相似问题