演示PPT中動態(tài)控制內(nèi)嵌圖表顯示.ppt

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

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

3、的Slide對象相應(yīng)的模塊中加入如下代碼：Option Explicit 聲明公共變量 Dim Wb As Object, Sh As Object, SouceRng As Object, TarCell As Object 當控件獲得焦點時運行 Private Sub ComboBox1_GotFocus() Dim i As Integer 設(shè)置Wb為內(nèi)嵌的Excel工作薄，Sh為指定工作表，SouceRng和TarCell為指定單元格區(qū)域 Set Wb = Me.Shapes(1).OLEFormat.Object Me表示正在播放的Slide Set Sh = Wb.workshee

4、ts(sheet1) Set SouceRng = Sh.Range(B1:D1) Set TarCell = Sh.Range(F1) With ComboBox1 先清除列表 If .ListCount 0 Then .ListIndex = -1 For i = .ListCount - 1 To 0 Step -1 .RemoveItem i Next i End If 加入列表項 For i = 1 To SouceRng.Count .AddItem SouceRng.offset(0, i - 1).Range(A1) Next i 選擇第一項 .ListIndex = 0 修改

5、TarCell單元格中的值 TarCell = .Value End With End Sub,提示：使用后期綁定，所以可以不在VBE的“工具引用”中對Excel庫進行引用。這是考慮對不同Office版本的通用性，如果可以確定版本，還是先引用Excel庫，再用先期綁定好，編程中有自動對象列表，運行速度和穩(wěn)定性也要高。,4.在VBE的Slide對象相應(yīng)的模塊中再加入如下代碼：當控件失去焦點時運行釋放對象變量 Private Sub ComboBox1_LostFocus() Set TarCell = Nothing Set SouceRng = Nothing Set Sh = Nothing Set Wb = Nothing End Sub 當控件值改變時運行對內(nèi)嵌工作薄單元格的改變 Private Sub Combo