PPT宏中內嵌Excel的動態(tài)圖表

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

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

3、資源管理器中出現Slide對象），如下圖：NVisual Basi.c演7KPPT中動態(tài)捽制內曲文件電）編輯©觀圖迪插入格式©調試運行re - TBAProject-"/iAFroject (S諒?FT中動態(tài)控麗聯國表昱示.p忑-1 Microsoft Fowerfomt 對象 在VBE的Slide對象相應的模塊中加入如下代碼Opti on Explicit'聲明公共變量Dim Wb As Object, Sh As Object, SouceR ng As Object, TarCell As Object當控件獲得焦點時運行Private Sub Co

4、mboBox1_GotFocus()Dim i As In teger'設置Wb為內嵌的Excel工作薄，Sh為指定工作表，SouceRng和TarCell為指定單元格 區(qū)域Set Wb = Me.Shapes(1).OLEFormat.Object 'Me 表示正在播放的 SlideSet Sh = Wb.worksheets("sheet1")Set SouceR ng = Sh.Ra nge("B1:D1")Set TarCell = Sh.Ra nge("F1")With ComboBoxI'先清除列表

5、If .ListCount > 0 Then.ListI ndex = -1For i =丄istCount - 1 To 0 Step -1.Removeitem iNext iEnd If'加入列表項For i = 1 To SouceR ng.Cou nt.Additem SouceR ng.offset(0, i - 1).Ra nge("A1") Next i'選擇第一項.ListI ndex = 0'修改TarCell單元格中的值TarCell = .V alueEnd WithEnd Sub在VBE的Slide對象相應的模塊中再加入如下代碼'當控件失去焦點時運行釋放對象變量Private Sub ComboBox1_LostFocus()Set TarCell = Noth ingSet SouceR ng = Noth ingSet Sh = Nothi ngSet Wb = Nothi ngEnd Sub'當控件值改變時運行對內嵌工作薄單