演示PPT中動態(tài)控制內(nèi)嵌圖表顯.ppt
-
資源ID:6349166
資源大?。?span id="reydxcs" class="font-tahoma">400.34KB
全文頁數(shù):5頁
- 資源格式: PPT
下載積分:9.9積分
快捷下載
會員登錄下載
微信登錄下載
微信掃一掃登錄
友情提示
2、PDF文件下載后,可能會被瀏覽器默認(rèn)打開,此種情況可以點擊瀏覽器菜單,保存網(wǎng)頁到桌面,就可以正常下載了。
3、本站不支持迅雷下載,請使用電腦自帶的IE瀏覽器,或者360瀏覽器、谷歌瀏覽器下載即可。
4、本站資源下載后的文檔和圖紙-無水印,預(yù)覽文檔經(jīng)過壓縮,下載后原文更清晰。
5、試題試卷類文檔,如果標(biāo)題沒有明確說明有答案則都視為沒有答案,請知曉。
|
演示PPT中動態(tài)控制內(nèi)嵌圖表顯.ppt
在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中的ActiveX控件 注意在PPT中沒有窗體工具中的控件 控制內(nèi)嵌的Excel對象中的相關(guān)單元格區(qū)域 達(dá)到動態(tài)控制 這里指的ActiveX控件就是在 視圖 工具欄 控件工具箱 中的控件 下面介紹具體的步驟 1 在PPT的編輯模式下需要插入圖表的頁面中用 插入 對象 MicrosoftExcel圖表 插入一個內(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的Slide對象相應(yīng)的模塊中加入如下代碼 OptionExplicit 聲明公共變量DimWbAsObject ShAsObject SouceRngAsObject TarCellAsObject 當(dāng)控件獲得焦點時運行PrivateSubComboBox1 GotFocus DimiAsInteger 設(shè)置Wb為內(nèi)嵌的Excel工作薄 Sh為指定工作表 SouceRng和TarCell為指定單元格區(qū)域SetWb Me Shapes 1 OLEFormat Object Me表示正在播放的SlideSetSh Wb worksheets sheet1 SetSouceRng Sh Range B1 D1 SetTarCell Sh Range F1 WithComboBox1 先清除列表If ListCount 0Then ListIndex 1Fori ListCount 1To0Step 1 RemoveItemiNextiEndIf 加入列表項Fori 1ToSouceRng Count AddItemSouceRng offset 0 i 1 Range A1 Nexti 選擇第一項 ListIndex 0 修改TarCell單元格中的值TarCell ValueEndWithEndSub 提示 使用后期綁定 所以可以不在VBE的 工具 引用 中對Excel庫進(jìn)行引用 這是考慮對不同Office版本的通用性 如果可以確定版本 還是先引用Excel庫 再用先期綁定好 編程中有自動對象列表 運行速度和穩(wěn)定性也要高 4 在VBE的Slide對象相應(yīng)的模塊中再加入如下代碼 當(dāng)控件失去焦點時運行釋放對象變量PrivateSubComboBox1 LostFocus SetTarCell NothingSetSouceRng NothingSetSh NothingSetWb NothingEndSub 當(dāng)控件值改變時運行對內(nèi)嵌工作薄單元格的改變PrivateSubComboBox1 Change 改變內(nèi)嵌工作薄中相應(yīng)單元格的值TarCell ComboBox1 ValueEndSub 點擊返回 謝謝觀看 供大家參考