Access挑戰(zhàn)Excel第十五期：圖片瀏覽

roych

出于減少代碼量的考慮，這里不打算自定義文件夾（所以解壓后不要改變相對路徑哦），連按鈕都省掉了，點擊下方的導航器即可跳轉(zhuǎn)記錄。
代碼不多，加上錯誤處理也就7行。

1. Private Sub Form_Current()
   
2.     On Error GoTo Err_Handler
   
3.     Me.imgPicture.Picture = CurrentProject.Path & "\img" & Me.UserName & ".jpg"   
   
4. Err_Exit:
   
5.     Exit Sub
   
6. Err_Handler:
   
7.     MsgBox "無圖片"
   
8.     GoTo Err_Exit
   
9. End Sub

復(fù)制代碼

當然，也可以強行忽略錯誤，即改為（不過不太建議這么做）：

1. Private Sub Form_Current()
   
2.     On Error Resume Next
   
3.     Me.imgPicture.Picture = CurrentProject.Path & "\img" & Me.UserName & ".jpg"
   
4. End Sub

復(fù)制代碼

此外，我還寫了一個宏。顯然，宏在錯誤處理方面比較弱，進入新紀錄時會彈出無法打開文件夾的錯誤提示。

-------------------------------------------------------------------------------------------------------------------

Excel據(jù)說是可以做到的，不過需要一點小技巧。

游客，如果您要查看本帖隱藏內(nèi)容請回復(fù)

這里使用了定義名稱和引用，不過當然是做不到子窗體模式的效果的。

tmtony

圖片在企業(yè)管理中使用比較多。有實用價值
來自: 微社區(qū)

紙鴿

里面是一個工作簿兩個工作表，分別是列表模式和按鈕模式。
我這個就用到了3行代碼

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Application.Calculate
   
3. End Sub

復(fù)制代碼

不過里面用到了公式，和技巧。
用到的函數(shù) cell函數(shù) indirect函數(shù)
用到的技巧有照相機，定義名稱。

這個應(yīng)該是最容易學的做法，不知道大神們有沒有辦法優(yōu)化。

這個做的太簡陋了，不能隨著文件夾的內(nèi)容更改圖片增刪數(shù)量，如果要實現(xiàn)這些，需要不少的代碼。我想到了方法，不過好像不知道代碼的語法。。。。

@小妖同學   @藍色幻想

紙鴿

用vlookup的話不能做列表模式吧，我這個也要預(yù)先插入圖片，不過這個可以通過代碼解決，但是我不會寫。。。。。

purplerose

^=^  ^-^

紙鴿

謝謝

不過我想的不是批量插入圖片，是動態(tài)插入圖片，比如根據(jù)文件夾內(nèi)的圖片，每次打開工作簿，添加新的人，比如 文件夾內(nèi) 添加了一個照片，文件名是周伯通131022111111111111男20160407后勤部13111111111，下次在打開這個工作簿，就自動添加這個人的信息和照片在表里了�；蛘撸�在表內(nèi)新添加一個人的信息，會自動在添加與這個人名字對應(yīng)文件名的照片。

roych

紙鴿 發(fā)表于 2016-4-7 16:28
謝謝

不過我想的不是批量插入圖片，是動態(tài)插入圖片，比如根據(jù)文件夾內(nèi)的圖片，每次打開工作簿，添加新 ...

大概需要執(zhí)行一個插入圖片的操作吧。
方法1、增刪改時，先刪除所有舊的圖片，然后批量插入（鏈接已經(jīng)給過了）。
方法2、由于圖片沒有filename屬性，因此需要在單元格存儲，然后通過歷遍單元格來插入圖片。

紙鴿

roych 發(fā)表于 2016-4-7 17:30
大概需要執(zhí)行一個插入圖片的操作吧。
方法1、增刪改時，先刪除所有舊的圖片，然后批量插入（鏈接已經(jīng)給 ...

應(yīng)該不用吧，我想的是打開工作簿的時候，先用dir提取文件夾里的圖片文件名與最后修改時間存儲在數(shù)組變量里，然后在用表內(nèi)現(xiàn)在有人員信息與之作對比，多出來的圖片直接添加，已經(jīng)存在圖片對比最后修改日期，如果有變動就直接修改，沒變動就不用動了，這樣不知道能不能實現(xiàn)，如果能，占用內(nèi)存大小如何。。。。。

紙鴿

roych 發(fā)表于 2016-4-7 17:30
大概需要執(zhí)行一個插入圖片的操作吧。
方法1、增刪改時，先刪除所有舊的圖片，然后批量插入（鏈接已經(jīng)給 ...

VBA可以直接調(diào)用CMD執(zhí)行dir命令然后存儲結(jié)果嗎

764300778

eeee