ExcelVBA@施工照片整理的應用範例

前言：

施工照片或者查驗照片對於許多工程人員來說，是個繁瑣的麻煩事。畢竟照片只是一張圖片，需要用人眼去判讀才有辦法了解內容是什麼，因為通常會有一張白板與工地現場進行合照，然而當撰寫白板的人寫字醜到不行時，會使人瘋狂。因此在施工照片的整理上，只要能解決照片的資訊標示與報表位置自動貼附並調整大小，想必會讓各位有此類需求的工程人員節省許多時間。

相片的收集來源有以下方式

1. 從相機的SD卡或手機連接USB直接進行下載，其檔案名稱通常為IMG_XXXX 或 DCIM_XXXX 。
2. 透過LINE社群中建立相簿，並將同類屬性的照片丟進同一個相簿中，爾後再透過LINE電腦版將整本相簿進行下載，其檔案名稱通常為 LINE_ALBUM_相簿名稱_XXXX 。

上述兩種方式為筆者曾經使用過的方法，於資料夾檢視情況下僅有縮圖及沒有資訊標示的檔案名稱，需要雙擊展開大圖後才有辦法判讀該相片的用途，雖然上面有一張小白板的合照，但還是需要點開之後才有辦法了解內容是什麼，而【點開】並做【資訊標示】，本身就是一件很麻煩的事。

解決方案：

筆者的作法是將照片先整理至一個資料夾的底下，並透過LINE相簿在進行批次下載時指定其子資料夾名稱。之後便透過我所撰寫的【施工照片瀏覽及更名】的VBA小程式進行照片的資訊標示與報表輸出，詳細操作流程如下

1. 點擊【取得資料夾】按鈕，選取已整理好的根資料夾位置。
2. 點擊【貼上結果】按鈕，選取是否要在工作表上顯示縮圖及大小。
3. 移動至工作表(Result)，若於工作表(Main)中有設定顯示大圖，則進入工作表(Result)中便會根據滑鼠選取的欄位顯示相對應的大圖資訊，並留有資訊標示欄位供使用者輸入做修改。



圖一、施工照片大圖資訊



4. 有關施工照片資訊標示均輸入完畢之後，移動至工作表(Main)點擊【更換檔名】按鈕，以VBA可判讀的資訊標示的格式進行檔案名稱儲存，未來若有相對應的格式，系統會自動判讀並做預先設定，不用再輸入一次。
5. 點擊【列印報表】按鈕，將會依照排序方法(時間或者項目)，依序將照片自動貼上於報表中並轉換成XLS或PDF，製作成PDF才有辦法將檔案發布給其他人使用，如為XLS則會在自身電腦中並帶有照片原始檔的狀況下才能看到圖片。

圖三、施工照片報表輸出PDF模式。

圖三、施工照片報表輸出XLS。

若有施工照片需要的朋友們

施工照片VBA買斷版連結

*0313更新，日期浮水印及名稱顯示問題修復

*0905更新，新版上線

*0914更新，施工照片在建築工程應用範例