ppt宏中內(nèi)嵌excel的動態(tài)圖表

1、PPTPPT宏中內(nèi)嵌宏中內(nèi)嵌ExcelExcel的動態(tài)圖表的動態(tài)圖表在excel中可以通過窗體或ActiveX控件達(dá)到動態(tài)控制圖表顯示的目的，但當(dāng)Excel圖表作為對象內(nèi)嵌到PPT后，在PPT播放模式下，所有在Excel對象中的控件都是不可選的，只能在PPT的編輯模式下雙擊對象后在Application.Excel中進(jìn)行控制。那么怎樣才能在PPT播放模式下可以控制插入的Excel圖表動態(tài)顯示？一個方法是借助PPT中的VBA編程，用PPT

2、中的ActiveX控件(注意在PPT中沒有窗體工具中的控件)控制內(nèi)嵌的Excel對象中的相關(guān)單元格區(qū)域，達(dá)到動態(tài)控制。這里指的ActiveX控件就是在“視圖→工具欄→控件工具箱”中的控件。下面是具體的步驟：①在PowerPoint的編輯模式下需要插入圖表的頁面中用“插入→對象→MicrosoftExcel圖表”插入一個內(nèi)嵌的Excel圖表，編輯數(shù)據(jù)及圖表(最好是用一個圖表工作表顯示圖表)，用一個工作表中的單元格放入數(shù)據(jù)作為控制圖表顯示的

3、單元格(這個只是為了方便理解，其實用VBA不要輔助單元格也可以直接改變圖表數(shù)據(jù)引用的)。②退出Excel編輯，在PPT選擇“視圖→工具欄→控件工具箱”打開“控件工具箱”，在圖表所在頁插入一個組合框。插入“組合框”控件后，按AltF11就可以在VBE中看到工程中顯示出了一個Slide對象(只有加入了ActiveX控件后才能在工程資源管理器中出現(xiàn)Slide對象)，如下圖：③在VBE的Slide對象相應(yīng)的模塊中加入如下代碼OptionExpl

4、icit聲明公共變量DimWbAsObjectShAsObjectSouceRngAsObjectTarCellAsObject當(dāng)控件獲得焦點時運行PrivateSubComboBox1_GotFocus()DimiAsInteger設(shè)置Wb為內(nèi)嵌的Excel工作薄，Sh為指定工作表，SouceRng和TarCell為指定單元格區(qū)域SetWb=Me.Shapes(1).OLEFmat.ObjectMe表示正在播放的SlideSetSh=