基于VBA 提升PPT 文檔智能化的研究與應(yīng)用

李進(jìn)豪

（廣東省海洋工程職業(yè)技術(shù)學(xué)校，廣州510320）

0 引言

隨著新一代信息技術(shù)的發(fā)展與應(yīng)用，智慧教學(xué)已成為教育信息化發(fā)展的新形態(tài)。基于信息技術(shù)與學(xué)科教學(xué)深度融合全面推進(jìn)“精準(zhǔn)教學(xué)+個(gè)性化學(xué)習(xí)+深度學(xué)習(xí)+融合創(chuàng)新+重構(gòu)再造”等教育教學(xué)理念，提升教育教學(xué)質(zhì)量，培養(yǎng)智慧型、創(chuàng)新型人才，是職業(yè)教育的使命，是職教人的初心。在眾多的信息化教學(xué)輔助工具與教學(xué)資源中，PPT 因其簡(jiǎn)便、易學(xué)、高效，深得師生的喜愛(ài)。如何基于VBA 提升PPT 文檔智能化，切實(shí)減少教師的設(shè)計(jì)工作量，提升PPT 的自適應(yīng)性與容錯(cuò)性等，值得我們探討和深思。

1 問(wèn)題的提出

1.1 分時(shí)展示系列圖片

在實(shí)際的PPT 設(shè)計(jì)中，我們經(jīng)常需要通過(guò)分時(shí)展示系列圖片（圖片動(dòng)態(tài)輪換）來(lái)生動(dòng)直觀地呈現(xiàn)需要表達(dá)的核心內(nèi)容，用“有圖有真相”打動(dòng)“觀眾”。如果采用常規(guī)的PPT 設(shè)計(jì)方法，當(dāng)系列圖片需要更換順序或者更新圖片或者增減圖片時(shí)，我們需要在PPT 中進(jìn)行重新設(shè)計(jì)（圖片等相關(guān)信息），煩瑣且工作量大。如何基于VBA 實(shí)現(xiàn)分時(shí)展示系列圖片的智能化，是我們必須解決的問(wèn)題之一，有較強(qiáng)的實(shí)用價(jià)值。

1.2 不同頁(yè)面系列圖片的自適應(yīng)顯示與編號(hào)

在PPT 的整體設(shè)計(jì)中，我們經(jīng)常需要讓系列圖片有序顯示并對(duì)圖片進(jìn)行編號(hào)，以提高PPT 中圖片的邏輯性和閱讀性。如果采用常規(guī)方法對(duì)圖片進(jìn)行更新和編號(hào)，當(dāng)系列圖片需要進(jìn)行增減或調(diào)整順序時(shí)，則所有圖片的先后順序和編號(hào)就需要重新進(jìn)行編整，稍不留意還會(huì)導(dǎo)致編號(hào)的重復(fù)或錯(cuò)誤等，這給PPT 設(shè)計(jì)者造成了較大的困擾。基于VBA 實(shí)現(xiàn)不同頁(yè)面系列圖片的自適應(yīng)顯示與編號(hào)智能化，將有助于提高PPT 的設(shè)計(jì)效率，提升設(shè)計(jì)者的幸福感與獲得感。

2 PPT文檔的常用屬性

2.1 ActivePresentation

返回一個(gè)Presentation 對(duì)象，該對(duì)象代表活動(dòng)窗口中打開(kāi)的演示文稿（PPT 文檔）。

應(yīng)用案例：通過(guò)該屬性可以獲取當(dāng)前文檔的路徑和文件名。

2.2 Shapes

返回一個(gè)Shapes 集合，該集合代表已經(jīng)在指定的幻燈片、幻燈片母版或幻燈片范圍中放置或插入的所有元素。

應(yīng)用案例：通過(guò)該屬性可以檢索指定名稱的元素。

2.3 View

返回一個(gè)SlideShowView 對(duì)象，使用View 屬性可以執(zhí)行退出當(dāng)前幻燈片放映等操作。

應(yīng)用案例：通過(guò)該屬性可以實(shí)現(xiàn)PPT 文檔的翻頁(yè)操作。

2.4 Fill

返回一個(gè)FillFormat 對(duì)象，該對(duì)象包含指定形狀的填充格式屬性。

應(yīng)用案例：通過(guò)該屬性可以給指定的形狀（元素）設(shè)置指定的填充圖片。

2.5 Slides

返回一個(gè)Slides 集合，該集合代表指定演示文稿中的所有幻燈片。

應(yīng)用案例：通過(guò)該屬性可以獲取PPT 文檔的總頁(yè)數(shù)。

2.6 TextRange

返回一個(gè)TextRange 對(duì)象，該對(duì)象代表指定文本框架中的文本。

應(yīng)用案例：通過(guò)該屬性可以自適應(yīng)顯示用戶所需的文字。

3 基于VBA提升PPT文檔智能化的基本原理

3.1 VBA

VBA（Visual Basic for Applications）是新一代標(biāo)準(zhǔn)宏語(yǔ)言，它提供了相當(dāng)完整的程序設(shè)計(jì)語(yǔ)言，以子過(guò)程和函數(shù)為單位進(jìn)行編寫。它沒(méi)有自己獨(dú)立的工作環(huán)境，必須依附于某一個(gè)主應(yīng)用程序（例：Office）。正因?yàn)閂BA 與主應(yīng)用程序的這種依附關(guān)系，使得它與主應(yīng)用程序之間的通信變得簡(jiǎn)單而高效，因此在Office 中使用VBA 進(jìn)行二次開(kāi)發(fā)，效率非常高。

3.2 基本原理

圖1

3.3 PPT文檔的“變量”

（1）“變量”的命名

圖1 提及的“變量”，本文特指PPT 文檔中的元素（含控件等），其名稱在符合命名規(guī)則的前提下可以由用戶自由定義。例如：我們可以將一個(gè)“形狀（矩形）”的名稱指定為mypicture。

（2）“變量”的訪問(wèn)

在PPT 文檔中，所有的“變量”都可以基于VBA 進(jìn)行合理、有效的訪問(wèn)（讀寫）。例：我們可以改變PPT 文檔中第i 張幻燈片的一個(gè)形狀（名稱為mypicture）的填充圖片。

●通過(guò)名稱（mypicture）獲取“形狀”在第i 張幻燈片中的順序號(hào)（j）；

●使用Fill 屬性的UserPicture 方法改變“形狀”的填充圖片（Myfile）；

●核 心 代 碼：ActivePresentation.Slides（i）.Shapes（j）.Fill.UserPicture Myfile。

4 基于VBA提升PPT文檔智能化的核心技術(shù)

4.1 獲取當(dāng)前路徑

4.2 獲取文件名

4.3 判斷文件是否存在

4.4 圖片的更新

4.5 分時(shí)展示系列圖片

4.6 讀取文本文件

4.7 隨機(jī)抽取

4.8 倒計(jì)時(shí)

4.9 不同頁(yè)面系列圖片的自適應(yīng)顯示

4.10 頁(yè)面跳轉(zhuǎn)方法

5 案例

5.1 案例1：分時(shí)展示系列圖片

（1）需求

作為省名師工作室主持人，為了更好地發(fā)揮名師工作室的引領(lǐng)示范作用（例：信息技術(shù)與學(xué)科教學(xué)的融合創(chuàng)新），在專題講座中常需要通過(guò)分時(shí)展示教科研成果系列圖片（直觀）來(lái)分享工作室的經(jīng)驗(yàn)與做法。但由于工作室的教科研成果是增量且面向的聽(tīng)課對(duì)象是可變的，因此不同的講座需要篩選不同的教科研成果圖片，以提升專題講座的宣講效果（針對(duì)性）。

（2）基本原理

圖2

5.2 案例2：不同頁(yè)面系列圖片的自適應(yīng)顯示與編號(hào)

（1）需求

作為一位專業(yè)教師，在《就業(yè)指導(dǎo)》的教學(xué)過(guò)程中，為了發(fā)揮榜樣（學(xué)長(zhǎng)）的作用，常需要在課堂教學(xué)中引用優(yōu)秀畢業(yè)生的心路歷程。但優(yōu)秀畢業(yè)生是增量且在不同教學(xué)環(huán)境下需要的案例資料不盡相同，因此PPT文檔中的優(yōu)秀畢業(yè)生呈現(xiàn)增減在所難免，這樣將涉及不同頁(yè)面系列圖片的自適應(yīng)顯示與編號(hào)智能化編排，以保證PPT 文檔的邏輯性與科學(xué)性。

（2）基本原理

圖3

6 結(jié)語(yǔ)

VBA 提供了面向?qū)ο蟮某绦蛟O(shè)計(jì)方法，各種VBA應(yīng)用小程序可以讓許多復(fù)雜的工作簡(jiǎn)單化。在PPT 文檔中，我們可以通過(guò)VBA 實(shí)現(xiàn)智能化自適應(yīng)讀取外置文件（圖片、數(shù)據(jù)源等），可以減少許多不必要的重復(fù)性工作，有利于提高工作效率，有利于助推信息技術(shù)與學(xué)科教學(xué)的深度融合。文中提及的代碼全部在“Windows 10+Office 2016”環(huán)境下調(diào)試通過(guò)，并應(yīng)用于實(shí)際工作中，效果好。