有相當(dāng)一段時(shí)間沒碰代碼了，這次應(yīng)朋友之邀，做了點(diǎn)工作，略記如下：

一、需求分析

1、朋友需求

需求還是比較明確的，就是利用電腦自帶的攝像頭，在Excel中調(diào)用，拍照，插入到指定位置。簡(jiǎn)稱“即拍即插”。

2、方法原理

初步分析，認(rèn)為理論可行，基本步驟為：

1. 啟動(dòng)攝像頭小窗
2. 點(diǎn)擊截屏
3. 生成臨時(shí)圖片文件
4. 圖片文件處理
5. 作為圖片插入當(dāng)前位置

二、條件準(zhǔn)備

1、查找資料

互聯(lián)網(wǎng)的便利性就在于不用重復(fù)發(fā)明輪子，上網(wǎng)上搜搜，也許就找到了答案，至少提供基礎(chǔ)的參照，所以第一步是去找樣例參考。
分別在ExcelHome搜索到問題，因?yàn)闆]有圓滿的答案，繼續(xù)找；后來 從CSDN上搜索到樣例，不過下載需積分。

• 掃碼關(guān)注微信號(hào)
• 在微信中輸入“答案”獲得答案
• 點(diǎn)擊“領(lǐng)取獎(jiǎng)勵(lì)”的網(wǎng)頁
• 輸入答案，獲得積分
• 下載樣例
• 運(yùn)行樣例，發(fā)現(xiàn)沒裝Excel

2、配置環(huán)境

找了個(gè)Excel 2010試用版，發(fā)現(xiàn)不習(xí)慣，重新?lián)QExcel 2003吧。
運(yùn)行案例，發(fā)現(xiàn)無視頻，想起來攝像頭好像一直有問題，難道是驅(qū)動(dòng)問題？
按Fn+F6，出現(xiàn)視頻監(jiān)控信息，無視頻圖像，顯示“攝像頭被其他應(yīng)用占用”。暈，于是有了下面的猜想：

a) 被誰占用，聯(lián)想電腦你告訴我呀
b) 聯(lián)想說微軟沒告訴我，我也不知道
c) 微軟說我定了規(guī)范，應(yīng)用程序不遵守，我也不知道被誰調(diào)用
d) 用戶你就猜吧。

搜索類似問題，網(wǎng)上一大堆，看來是一個(gè)比較普遍性的問題，上聯(lián)想網(wǎng)站更新驅(qū)動(dòng)吧。該網(wǎng)站提供給了3種方法查詢驅(qū)動(dòng)：

聯(lián)想網(wǎng)站驅(qū)動(dòng)服務(wù)

方法1：需要機(jī)器ID，按提示拆電池找ID，哈哈，機(jī)器居然關(guān)機(jī)了（初時(shí)沒反應(yīng)過來），幸虧沒有什么重要的東西沒保存的。總算找了一個(gè)有點(diǎn)象的，重啟電腦，輸入該ID，結(jié)果不正確。看來此路不同。
看到方法3，準(zhǔn)備按類別篩選，點(diǎn)“筆記本”，結(jié)果顯示

:(
抱歉，您請(qǐng)求的頁面現(xiàn)在無法打開！
您所訪問的頁面不存在于support.lenovo.com.cn網(wǎng)站上。 反饋給我們
可能的原因：
可能您輸入的URL 地址拼寫錯(cuò)誤
您要尋找的頁面或文件已被刪除、過期或不再提供。

回頭看方法2，發(fā)現(xiàn)可下載“Lenovo聯(lián)想驅(qū)動(dòng)管理”，一鍵搞定那是最好了，于是下載、安裝、檢測(cè)，沒有發(fā)現(xiàn)攝像頭驅(qū)動(dòng)有問題或需要更新。

看來此路不通，怎么辦？老辦法，卸載重裝。卸載現(xiàn)有攝像頭驅(qū)動(dòng)重新安裝，無果；卸載Communication Utility，重新安裝后，居然OK了。不知所以然。

三、開發(fā)調(diào)試

1、層層過關(guān)

環(huán)境終于搞定，開始跑案例，居然一次通過，Good！
問題是，不能總在這個(gè)文件中使用插入照片吧，要有全局性的入口，于是自定義工具欄來了：

1. 通過“工具-自定義”對(duì)話框，新建一個(gè)工具欄
2. 加入按鈕，定義文字和圖標(biāo)
3. 給這個(gè)按鈕分配宏
4. 試驗(yàn)運(yùn)行，OK

問題繼續(xù)：文件關(guān)閉了，這個(gè)工具欄按鈕就不能Work了。
看來要讓文件一直在后臺(tái)跑。
怎么辦？使用加載宏。
問題繼續(xù)：全局自定義工具欄按鈕無法與加載宏文件中的宏關(guān)聯(lián)。
怎么辦？需要寫代碼實(shí)現(xiàn)自定義工具欄按鈕。

2、編寫代碼

VBE編程環(huán)境好久沒碰，只能重頭再來。這個(gè)時(shí)候系統(tǒng)提供的幫助就太重要了。還好，畢竟有基礎(chǔ)，很快上路。末了發(fā)現(xiàn)自定義按鈕的Icon沒有，按鈕圖標(biāo)怎么改？搜，查到了FaceID，為什么commandbar幫助中沒有這個(gè)屬性呢？

FaceID屬性跑到哪里去了？

問題繼續(xù)：用哪個(gè)FaceID值呢？查幫助，沒有FaceID與圖標(biāo)的對(duì)照表。

FaceID到底張什么樣？給個(gè)對(duì)照表好嗎？

繼續(xù)試驗(yàn)可用，還好比較順利，終于搞定。

四、測(cè)試交付

拿著做好的加載宏文件到第二臺(tái)機(jī)器上測(cè)試，一次性通過，Good！
在Excel 更高版本上可用嗎？簡(jiǎn)單測(cè)試發(fā)現(xiàn)在Excel 2010上可用。
發(fā)給朋友測(cè)試，靜候佳音。順附使用指南：

1. 將附件xla文件下載到本地硬盤
2. 打開Excel 2003，點(diǎn)擊“工具-加載宏”菜單，彈出對(duì)話框，點(diǎn)擊右側(cè)的“瀏覽”按鈕，選擇步驟1下載的文件，則“用攝像頭拍照”加載宏添加到右側(cè)列表中了，點(diǎn)擊勾選中它，點(diǎn)擊左側(cè)確定關(guān)閉對(duì)話框
3. 此時(shí)會(huì)出現(xiàn)一個(gè)“新工具”工具欄，其中有一個(gè)“插入照片”按鈕
4. 點(diǎn)擊該按鈕，進(jìn)行初始化攝像頭（第一次用可能要幾秒鐘），出現(xiàn)攝像頭畫面
5. 單擊畫面，則自動(dòng)生成截圖，并插入到當(dāng)前光標(biāo)所在單元格
6. 移動(dòng)光標(biāo)到其他單元格，點(diǎn)擊攝像頭畫面，可繼續(xù)插入截圖，以此類推
7. 關(guān)閉攝像頭畫面，插圖完畢。
8. 下次啟動(dòng)Excel后，包含“插入照片”按鈕的“新工具”工具欄會(huì)自動(dòng)出現(xiàn)，位置可任意調(diào)節(jié)。