基于Excel VBA技術的簡易圖像處理系統的設計與實現

摘要：在高校學籍管理工作中，學生圖像信息的管理工作十分重要。文章根據學籍管理中圖像處理存在的檢索困難、處理數量大、圖片檢查與調整需求多等諸多問題，利用Excel VBA編程開發出簡易圖像處理系統，可實現對圖片文件進行檢索、重命名、修改尺寸、自動旋轉、格式轉換、圖像壓縮等多種處理功能。在編程過程中，采用流程化設計方式，依據圖片文件處理需求可將不同功能任意組合，并將最終處理完畢的圖片文件保存到指定位置。該系統的開發實現了圖像文件管理的自動化，極大地提高了工作效率。

關鍵詞：學籍管理；Excel VBA；圖像處理；自動化

中圖分類號：TP311

文獻標志碼：A

0 引言

伴隨著數字化信息時代的到來，加快信息化建設，實現數字化、自動化辦公將成為必然的發展趨勢。學籍照片管理是學校教務管理工作中非常重要的一部分，特別是在高校，每學期采集的學生照片數量少則幾千多則上萬。因此，如何便捷高效地檢索、檢查以及處理照片是教務管理人員必須解決的問題。目前，有很多可用于圖像處理以及管理的軟件，如大家熟悉的PS（Photoshop）、ACDSee、QQ影像等，但是這些軟件無法實現批量、多功能處理的工作需求。如果需要對大量照片進行檢索，重命名，修改圖片尺寸、大小、格式、方向等，必需開發出一套專業的自動化處理工具。

Microsoft Office是日常工作中應用最為廣泛的一款辦公軟件，Excel作為其應用程序之一，擁有較強的數據儲存和處理能力。Visual Basic宏語言（Visual Basic for Application，VBA）是一種面向對象的可視化編程語言，語法簡單易學，交互性強^［1］。VBA語言寄生于應用程序，目的在于增強應用程序的功能，實現自動化操作^［2］。Excel集成了VBA編程環境，具有類型豐富的對象庫，利用Excel VBA編程不僅可以實現功能強大的數據處理能力，還可用于處理圖像文件。本文將以甘肅開放大學學籍照片管理為原型，運用Excel VBA編程開發一套簡易圖像處理系統。

1 需求功能分析

在學籍工作中，由于工作內容的不同，對照片的處理需求有所不同，有以下幾個方面：批量檢索需要的照片，被檢索的照片可能存在于不同的文件夾中，需要將這些照片存放到同一個文件夾；將大量的照片按照指定名稱重新命名；自動檢查照片的尺寸、大小、方向、格式等是否符合要求，如果與要求不符，則進行修改。在不同的工作內容中，有的只需要進行某一項操作，有的需要同時進行好幾項操作。因此，在圖像處理系統的設計中，必須考慮所有的功能操作都是可以實現自由選擇組合的。綜上所述，簡易圖像處理系統的功能結構如圖1所示。

2 界面設計

VBA作為一種可視化的編程語言，可以在其編輯環境下直接進行系統界面設計。進入VBA編輯窗口后，點擊插入用戶窗體，在屬性工具欄修改窗體名稱為Myform，Caption屬性為“圖像處理系統”^［3］。點擊工具欄插入需要的控件，修改其尺寸及位置，并對

其屬性進行修改^［4］。系統界面如圖2所示。

整個系統界面主要分為3個區塊。第一個區塊功能主要用于選擇Excel數據文件、圖片查找目錄以及處理后的圖片的保存位置，并將選擇后的文件名和路徑顯示在文本框中，用一個框架控件將所需的文本框和命令按鈕控件放置到一起。第二個區塊是圖片處理功能區，一個框架控件包含一個可實現功能，修改框架的Caption屬性可顯示功能名稱。修改尺寸功能需要插入復合框控件，用于選擇修改尺寸的方式，可按照原有尺寸比例修改，亦可給長邊或短邊一個固定值的方式進行修改，并增加了自定義方式，自定義方式可分別輸入長邊和短邊的尺寸；自動旋轉功能分別插入兩個選項按鈕控件和標簽控件，提供兩種選擇，即當圖片寬大于高時逆時針或順時針旋轉90°；重命名圖片功能添加一個復選框按鈕和標簽按鈕，當復選框的Value屬性為True時，可按照Excel文件中的數據對圖片重命名；格式轉換功能需要添加一個復選框控件，用于選擇轉換的格式；圖像壓縮功能同樣添加一個復選框控件，可以選擇不同的壓縮方式，本系統設計了按比例壓縮和按指定大小兩種壓縮方式。在下方插入3個命令按鈕控件，一個用于復原功能區的設置以便重新設定需要的功能，一個用于執行程序，一個用于退出程序。第三個區塊是一個標簽控件，主要是為介紹系統的使用方法。

3 功能實現

Excel VBA作為一種面向對象的可視化編程語言，可通過各種事件（操作）來觸發一段程序代碼。當界面設計好后，雙擊控件可進入控件事件的代碼編輯窗口，選擇相應的事件過程，寫入需要執行的程序代碼即可。

3.1 定義公共變量和自定義函數

在代碼編輯窗口，首先定義字符型公共變量 File、cfolder、bfolder，分別用來記錄Excel數據文件名、查找文件目錄，保存文件夾路徑。編寫兩個自定義函數，都可以定義FileDialog對象變量，引用不同的對象方法可以選擇文件夾或文件。在執行事件過程中，可以顯示選擇對話框，兩個自定義函數返回值均是字符串型。

3.2 事件過程

（1）窗體的activate事件過程^［5］。這一事件過程是當窗體被激活時對不同控件的屬性進行初始化設置。所有的文本框控件的Value值設置為空，Locked 屬性設置為False^［6］；復選框和選項按鈕控件的Value值設置為False^［7］；復合框控件用List方法和Array函數添加值序列，將ListIndex值設置為0，這是顯示序列中的第一個值，作為功能提示性信息，Style屬性設置為2，目的在于使得復合框只可選擇而不能輸入其他值。

（2）“選擇Excel數據文件”命令按鈕的click事件過程^［8］。首先調用自定義函數 Selected_File（），并將返回值賦值給變量File。如果File值為空，則顯示提示對話框，提示未選擇Excel文件，否則對應的文本框顯示出選擇的文件名。

（3）“選擇查找位置”命令按鈕的click事件過程^［8］。調用自定義函數Selected_Folder（），將返回值賦值給變量cfolder，如果cfolder值為空，則顯示提示對話框，提示未選擇查找位置，否則對應的文本框顯示出選擇的查找目錄，位置可以是一個磁盤或文件夾，文件夾下可包含子文件夾。

（4）“選擇保存位置”命令按鈕的click事件過程^［8］。調用msgbox函數，顯示提示對話框，提示“選擇的文件夾會被清空（包括子文件夾），請確保無重要文件”，這一步驟在于確保所選擇的文件夾為空文件夾，以防止刪掉原有數據；再調用自定義函數 Selected_Folder（），將返回值賦值給變量bfolder。如果bfolder值為空，則顯示提示對話框，提示未選擇保存位置，否則對應的文本框顯示出選擇的文件夾路徑。

（5）修改尺寸功能復合框控件和文本框控件的change事件過程。如復合框的顯示值不是“選擇修改尺寸方式”，即發生了變化，這時顯示輸入提示信息標簽以及文本框。當選擇的方式為“按比例修改尺寸”時，后面的提示內容為“%”。當選擇的方式為“長邊固定尺寸”或“短邊固定尺寸”時，后面的提示內容為“像素”，文本框可輸入數值。當復合框的顯示值為“選擇修改尺寸方式”時，隱藏提示信息標簽和文本框。自定義修改尺寸的文本框可輸入數值。當輸入時復合框的顯示值復原為“選擇修改尺寸方式”下面的提示信息和文本框隱藏，文本框的值為空。

（6）圖像壓縮功能復合框控件change事件過程。如復合框的顯示值不是“選擇壓縮方式”，這時顯示輸入提示信息標簽以及文本框。當選擇的方式為“按比例壓縮”時，后面的提示內容為“%”。當選擇的方式為“壓縮至指定大小”時，后面的提示內容為“KB”，文本框可輸入數值。當復合框的顯示值為“選擇壓縮方式”時，隱藏提示信息標簽和文本框。

（7）“重設參數”命令按鈕的click事件過程^［9］。這一過程將功能區所有參數初始化，保留選擇的數據文件、查找目錄和保存文件夾信息。調用窗體的activate事件過程，再將公共變量的值重新顯示在文本框中。

（8）“執行”命令按鈕的click事件過程^［9］。這一過程是最終的執行過程，是最主要的過程。這一過程首先需要檢查是否選擇了數據文件、查找位置以及保存位置，其次檢查功能設置數據填寫是否完整。如果選擇了調整尺寸方式或壓縮方式，而沒有填寫相應的數值，則會提示補充數據。如果選定了重命名功能，還需檢查數據文件中數據的完整性。如果數據文件中第一列查找的圖片名不為空，第二列相應的重命名名稱也不能為空。

選擇的保存位置文件夾必須是空文件夾，當所有數據檢查完后，將會清空保存文件夾下所有文件，包括子文件夾，在清空前會提示是否繼續操作。如果設定壓縮功能，通過fso對象的createfolder方法在保存文件夾下創建一個名為“壓縮”的子文件夾。

下一步將根據數據文件中的圖片名從查找位置中逐個查找同名的圖片文件，通過調用自定義函數cfpath（）可以遍歷查找文件夾下所有的文件，包括子文件夾下的文件。本研究需要的照片可能存在于查找目錄下不同的文件夾中。自定義函數cfpath（）采用遞歸方法遍歷所有圖片文件。如果查找到圖片，則返回圖片文件的絕對路徑，否則返回為空。

在VBA中可以創建WIA（Windows數字圖像獲取服務）的imageFile對象來獲取圖像文件的相關屬性，通過ImageProcess對象來處理圖像。在功能實現上，可以將ImageProcess對象處理圖像的不同功能封裝成不同的自定義函數，這樣可以簡化主程序的編寫過程。

對于圖像的處理過程，采用流程化設計，既按照“調整尺寸”——“旋轉”——“轉換格式”——“重命名”——“壓縮”的步驟來處理。當沒有選擇某一功能時，則跳到下一步驟。這樣可實現不同功能的自由組合。所有功能都不選擇時，則只將查找到的圖片復制到保存文件夾里。主過程設計流程如圖3所示。

4 結語

總結學籍照片管理中存在的問題，基于VBA技術結合Excel二次開發的簡易圖像處理系統，采用流程化設計思路，可方便不同的處理需求任意組合，實現了圖像處理的自動化。在信息化時代，提高工作人員信息化工作水平，實現辦公自動化是管理的重點要求。實踐表明，簡易圖像處理系統的開發極大地提高了管理質量和效率，有效緩解了管理人員工作強度。

參考文獻

［1］王白英.鐵塔放樣及角鋼優化下料軟件設計［D］.武漢：湖北工業大學，2007.

［2］王慶華，耿豪劼，沈華.ExcelVBA在鋼筋算量中的應用［J］.南通職業大學學報，2016（3）：100-104.

［3］仝海燕，呂洪善，秦春影，等.基于VBA的交互性習題的設計［J］.韶關學院學報，2014（6）：24-29.

［4］印金國.Matlab可視化界面設計與控件使用［J］.電腦編程技巧與維護，2007（1）：30-35.

［5］秦曉明，趙建功.VB窗體加載過程中有關事件的特點和應用分析［J］.漯河職業技術學院學報，2005（1）：8-9，18.

［6］戴維斯.VBA從入門到精通［M］.楊密，楊樂，柯樹森，譯.北京：電子工業出版社，2008.

［7］章銳.VB技術在教學中的應用［J］.上海電機技術高等專科學校學報，2000（3）：3.

［8］龍馬高新教育.VBAOffice從新手到高手［M］.北京：人民郵電出版社，2015.

［9］郭剛.ExcelVBA入門與應用典型實例［M］.北京：科學出版社，2009.

（編輯 王永超）

Design and implementation of simple image processing system based on Excel VBA technology

Zhang Wanchang， Li Xumin， Huang Ning

（Gansu Open University， Lanzhou 730030， China）

Abstract： In the management of college student information， the management of student image information is very important. In this paper， according to the problems of image processing in the management of student status， such as difficulties in retrieval， large number of processing， and many demands for image inspection and adjustment， a simple image processing system is developed by using Excel VBA programming， which can realize various processing functions such as image file retrieval， renaming， size modification， automatic rotation， format conversion， image compression， etc. In the programming process， the flow design method is adopted. Different functions can be combined at will according to the image file processing requirements， and the final processed image file can be saved to the specified location. The development of the system realizes the automation of image file management and greatly improves the work efficiency.

Key words： student information management; excel VBA; image processing; automation