劉廣忠，齊傳輝

(河北工程技術(shù)高等專科學(xué)校，河北 滄州 061001)

在做報告、產(chǎn)品推介、教師授課等場合，往往需要制作幻燈片以增強生動、直觀的效果。在特效要求不太高的情況下，一般首選Microsoft Office Power Point(以下簡稱PPT)作為幻燈片制作工具。PPT就像一個容器，用戶可以將文字、圖片、聲音甚至影像等媒體元素加入其中，但這些元素都是靜態(tài)的，一旦設(shè)計完成，在播放時用戶不可更改。缺乏用戶的交互操作，使得靈活性不足，限制了PPT的使用效果。然而，在實踐中，經(jīng)常會遇到諸如課堂互動教學(xué)練習(xí)[1][4]、會議發(fā)言順序提示等應(yīng)用實例。這些應(yīng)用實例都有一個顯著特點：用戶界面布局基本相同，而數(shù)據(jù)需要不斷變化。解決這類問題，一般采用反復(fù)復(fù)制/粘貼幻燈片，然后再進行修改的方法。該方法雖然簡單易行，但存在播放時用戶不能交互操作、操作繁瑣易出錯、文件存儲空間大等問題。本文提出了一種基于二層結(jié)構(gòu)的交互式動態(tài)PPT幻燈片的設(shè)計方法，即利用PPT內(nèi)置的VBA進行二次開發(fā)[2]，很好地解決了以上問題。

1 動態(tài)PPT總體結(jié)構(gòu)框架設(shè)計

圖1 二層結(jié)構(gòu)

將 PPT 的幻燈片作為客戶(Client)端界面，使數(shù)據(jù)進行格式化顯示；用 SQL Server、FoxBASE、Excel等數(shù)據(jù)庫作為服務(wù)器(Server)端，為客戶端界面提供數(shù)據(jù)支持；通過VBA編程，實現(xiàn)客戶端與服務(wù)器端的數(shù)據(jù)連接，該結(jié)構(gòu)如圖1所示。

由于Microsoft Office Excel在數(shù)據(jù)編輯和管理方面表現(xiàn)突出，且已被廣泛使用，本文采用PPT+Excel+VBA作為總體結(jié)構(gòu)框架，通過讀取Excel文件中的記錄，使數(shù)據(jù)以適當(dāng)?shù)姆绞斤@示在幻燈片上，發(fā)揮了PPT與Excel各自的優(yōu)勢。

2 設(shè)計實例

以“某公司房屋銷售統(tǒng)計分析”為例，說明如何通過VBA編程將PPT與Excel結(jié)合起來的設(shè)計方法。

2.1 主要解決的問題

本示例的設(shè)計主要包括界面設(shè)計、建立Excel文件、創(chuàng)建PPT與Excel的連接和數(shù)據(jù)輸出4項內(nèi)容。界面設(shè)計：不同于一般的演示文稿制作，要使用“控件工具箱”中的控件。建立Excel文件：文件名任意，無題目，編寫若干條記錄，文件結(jié)構(gòu)如圖2所示。PPT與Excel的連接：通過ADODB部件來創(chuàng)建PPT與Excel數(shù)據(jù)庫的連接。數(shù)據(jù)輸出設(shè)計：通過控件的事件過程來實現(xiàn)。

圖2 Excel文件結(jié)構(gòu)

2.2 實現(xiàn)過程

圖3 PPT主界面布置

2.2.1 PPT界面設(shè)計在PowerPoint 工具欄上單擊右鍵，選擇“控件工具箱”，打開“控件工具箱”窗口，在幻燈片上添加三個命令按鈕(打開文件：cmdOpen File；下一條：cmdNext；上一條：cmdPrevious)、一個列表框(ListBox1)、一個標簽控件(Label1)。單擊“其他控件”，在“其他控件”列表中添加一個圖形控件(Microsoft office chart，Chart Space1，一般 有 多個版本，可以選擇最高版本，本示例采用11.0版本)、一個通用對話控件(Microsoft Common Dialog Control，CommonDialog1)。界面布置如圖3所示。

2.2.2 引用ADO部件

雙擊界面中任何一個控件，打開VBA代碼編輯窗口，單擊菜單“工具”——“引用”，在“可使用的引用”對話框中，找到“Microsoft ActiveX Data Objects”并勾選，一般選擇列表中的最高版本，本示例中使用的是2.8版本。

2.2.3 建立數(shù)據(jù)庫連接并創(chuàng)建記錄集

為使模塊具有通用性，在工程VBAProject中添加一個模塊，為此，在VBAProject上右擊，在右鍵菜單中選擇“插入”——“模塊”，該模塊默認名為“模塊1”，可不做修改。在其中編寫如下函數(shù)：

2.2.4 讀取記錄集并填充列框表

打開Excel文件，將數(shù)據(jù)讀入記錄集，并將“部門”字段的數(shù)據(jù)填充到ListBox1列表框中。因此，在PPT頁面上雙擊“打開文件”按鈕，在打開的VBA編程環(huán)境中，寫入如下示例代碼：

2.2.5 運行結(jié)果

最后的運行結(jié)果如圖4所示。

3 功能擴展

為了突出重點和簡單起見，以上內(nèi)容主要以一個動態(tài)繪制單柱圖的形式說明了實現(xiàn)交互動態(tài)PPT的過程，但在此基礎(chǔ)上，稍作修改，可以很容易的實現(xiàn)功能擴充。如圖5所示。具體過程不再贅述。

圖4 運行結(jié)果

4 結(jié)論

通過以上設(shè)計和編程，實現(xiàn)了僅用一張幻燈片動態(tài)顯示多組數(shù)據(jù)的效果，從而將繁瑣的幻燈片設(shè)計問題轉(zhuǎn)化為簡單的Excel文件建立問題，擴展了PPT的功能，實現(xiàn)了PPT的交互性、動態(tài)性和靈活性。另外，本示例方法具有很強的通用性和重復(fù)使用價值。

需要特別說明的是，由于本示例中包含宏代碼，必須將PPT的宏安全設(shè)為“中”或“低”，否則看不到正常的播放效果。

圖5 多圖對比分析圖

[1]邱三平.PPT+VBA+Excel增強教學(xué)課件交互性研究[J].中國科教創(chuàng)新導(dǎo)刊，2010(14)：188-189.

[2]陳思敏.利用Application對象事件實現(xiàn)動態(tài)設(shè)定演示文稿放映內(nèi)容[J].電腦知識與技術(shù)，2007(12)：743-744.

[3]Guy Hart-Davis，楊密，等譯.VBA編程從入門到精通[M].北京：電子工業(yè)出版社，2008.

[4]唐麗，鄒縣芳.交互式課件設(shè)計中VBA技術(shù)應(yīng)用探究[J].阜陽師范學(xué)院學(xué)報：自然科學(xué)版，2011，28(2)：107-109.