图表无法从Excel正确复制到Access

Question

使用Access中的数据，我在Excel中创建了折线图。当我将图表复制/粘贴到我的数据库的报告中时，图像不一样。但是，如果我将相同的图像粘贴到工作文档或Outlook电子邮件中，它看起来很好。如果我将其粘贴到msPaint中，则会出现相同的扭曲版本。请参阅附图的截图。最大的问题是x轴标签。这是我的复制/粘贴代码。

Dim objChart As Chart    
objChart.CopyPicture xlScreen, xlBitmap, xlScreen
DoCmd.OpenReport ReportName:="rptDeptWindowChart", View:=acViewDesign

ctlC = Reports!rptDeptWindowChart.Controls.Count

Do
    For Each ctl In Reports!rptDeptWindowChart
        ctl.Name = "ctlDelPic"
        DeleteReportControl "rptDeptWindowChart", "ctlDelPic"
    Next

ctlC = Reports!rptDeptWindowChart.Controls.Count

Loop Until ctlC = 0

DoCmd.RunCommand acCmdPaste

Answer 1

访问并不以其图表功能而闻名。如果我是你，我会坚持使用Access管理大型数据集，并将查询的最终结果导出到Excel，并在Excel中进行图表/绘图/绘图。 Word非常适合创建文档，PowerPoint非常适合演示文稿等。您需要使用正确的工具来完成正确的工作。