在Access中嵌入生成的Excel圖表

Question

MS Access 2010的普通圖表小部件的外觀並不十分吸引人。

是否有可能（以及如何？）在Access中嵌入相當吸引人的Excel圖表，並用查詢（動態）填充數據？

PS：

因爲我想更新根據用戶輸入使用樞軸圖表的圖表是不可能的。

Answer 1

使用圖表其他

Sub OpenMyChart() 
''You could do this part without code, but let use say you want VBA 
sSQL = "SELECT Table1.AText AS ACategory, Table1.ANumber AS AData, " _ 
    & "Table1.ADate AS AFilter, Table1.ATime AS ASeries " _ 
    & "FROM Table1 WHERE Table1.ADate=#1/20/2012#" 

''This is the query that my Chart form uses 
CurrentDb.QueryDefs("Chart").SQL = sSQL 

''You can use a Where statement for opening the form, too 
DoCmd.OpenForm "Chart", acFormPivotChart, , "ACategory='Bob'" 
End Sub 

兩種方法使用類似的設置，與子窗體的一些注意事項。

/1。使用鏈接兒童和主域

主字段設置列表框控件和鏈接子字段的名稱的鏈接設置爲圖表的相關字段：

Link Master Field: List1;List2 
Link Child Field: AFilter;ACategory 

點擊相應的控制重繪圖表。

/2。使用查詢並強制重繪：

Private Sub List1_Click() 
sSQL = "SELECT Table1.AText AS ACategory, Table1.ANumber AS AData, " _ 
    & "Table1.ADate AS AFilter, Table1.ATime AS ASeries " _ 
    & "FROM Table1 WHERE Table1.ADate=#" _ 
    & Format(Me.List1, "yyyy/mm/dd") & "#"1/13/2013#" 

''This is the query that my Chart form uses 
CurrentDb.QueryDefs("Chart").SQL = sSQL 

''Chart is the name of the subform control, and confusingly, 
''the name of the embedded form. 
Me.Chart.SourceObject = "Chart" 
End Sub