PPT宏中內(nèi)嵌Excel的動(dòng)態(tài)圖表

1、PPT宏中內(nèi)嵌Excel的動(dòng)態(tài)圖表在excel中可以通過(guò)窗體或ActiveX控件達(dá)到動(dòng)態(tài)控制圖表顯示的目的，但當(dāng)Excel圖表作為對(duì)象內(nèi)嵌到PPT后,在PPT播放模式下，所有在Excel對(duì)象中的控件都是不可選的,只能在PPT的編輯模式下雙擊對(duì)象后在Application.Excel中進(jìn)行控制。那么怎樣才能在PPT播放模式下可以控制插入的Excel圖表動(dòng)態(tài)顯示？一個(gè)方法是借助PPT中的VBA編程，用PPT中的ActiveX控件（注意在PPT中沒(méi)有窗體工具中的控件）控制內(nèi)嵌的Excel對(duì)象中的相關(guān)單元格區(qū)域，達(dá)到動(dòng)態(tài)控制。這里指的ActiveX控件就是在“視圖一工具欄一控件工具箱”中的控件。下面是

2、具體的步驟：在PowerPoint的編輯模式下需要插入圖表的頁(yè)面中用“插入f對(duì)象fMicrosoftExcel圖表”插入一個(gè)內(nèi)嵌的Excel圖表，編輯數(shù)據(jù)及圖表（最好是用一個(gè)圖表工作表顯示圖表），用一個(gè)工作表中的單元格放入數(shù)據(jù)作為控制圖表顯示的單元格（這個(gè)只是為了方便理解，其實(shí)用VBA不要輔助單元格也可以直接改變圖表數(shù)據(jù)引用的）。退出Excel編輯，在PPT選擇“視圖f工具欄f控件工具箱”打開“控件工具箱”，在圖表所在頁(yè)插入一個(gè)組合框。插入“組合框”控件后，按Alt+Fll就可以在VBE中看到工程中顯示出了一個(gè)Slide對(duì)象（只有加入了ActiveX控件后才能在工程資源管理器中出現(xiàn)Slide對(duì)

3、象），如下圖：IlicrosoftVisualBasic-演示PPT中功嘉控制內(nèi)11曲文件電）-編輯視圖電）插A.G）格式調(diào)試運(yùn)衍bII底曇工覆-TBiProject回s.：lide5-VBAFroject強(qiáng)示FFT中動(dòng)龕控制內(nèi)嵌尿表昱示一ppt）-MicroscftFowerFoint對(duì)象在VBE的Slide對(duì)象相應(yīng)的模塊中加入如下代碼OptionExplicit聲明公共變量DimWbAsObject,ShAsObject,SouceRngAsObject,TarCellAsObject當(dāng)控件獲得焦點(diǎn)時(shí)運(yùn)行PrivateSubComboBox1_GotFocus()DimiAsInteger

4、設(shè)置Wb為內(nèi)嵌的Excel工作薄，Sh為指定工作表，SouceRng和TarCell為指定單元格區(qū)域SetWb=Me.Shapes(1).OLEFormat.ObjectMe表示正在播放的SlideSetSh=Wb.worksheets(sheet1)SetSouceRng=Sh.Range(B1:D1)SetTarCell=Sh.Range(F1)WithComboBoxl先清除列表If.ListCount0Then.Listindex=-1Fori=.ListCount-1To0Step-1.RemoveItemiNextiEndIf加入列表項(xiàng)Fori=1ToSouceRng.Count.AddItemSouceRng.offset(O,i-1).Range(A1)Nexti選擇第一項(xiàng).ListIndex=0修改TarCell單元格中的值TarCell=.ValueEndWith當(dāng)控件失去焦點(diǎn)時(shí)運(yùn)行釋放對(duì)象變量PrivateSubComboBox1_LostFocus()SetTarCell=NothingSetSouceRng=NothingSetSh=NothingSetWb=NothingEndSub當(dāng)控件值改變時(shí)運(yùn)行對(duì)內(nèi)嵌工作薄單元格