[發問] 求助有關輸入檔名直接跳出照片的程式

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-4-30 14:35 | 只看該作者

大家好:

因本身非資訊出生非常不了解程式希望可以求助:
如何在＂清單＂Ｃ欄及Ｅ欄，輸入檔名，（例如　F1.JPG 、R1.JPG）
就能夠分別在＂照片１＂及”照片2”活頁簿自動跳出照片的方法?

請各位幫忙，感謝！

軟體: Office Excel
版本: 2013

2^#

發表於 2015-4-30 14:44 | 只看該作者

回復 1# apple99152

照片儲存資料夾為
D:\TEST

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 2015-5-1 06:28 | 只看該作者

回復 2# apple99152

以下程式碼是對岸的一位老師的教學範例，我修改了一下來符合你的要求，試試

Public Sub 照片1()
For Each shap In Sheets("照片1").Shapes
If shap.Type <> 8 Then shap.Delete
Next
For Each Rng In Sheets("照片1").Range("C2", Range("c2").End(xlDown))
Pat = "D:\TEST\" & Rng
Set rngs = Cells(Rng.Row, "C")
Sheets("照片1").Shapes.AddPicture Pat, True, True, rngs.Left, rngs.Top, Rng.Width, rngs.Height
Next
For Each Rng In Sheets("照片1").Range("E2", Range("E2").End(xlDown))
Pat = "D:\TEST\" & Rng
Set rngs = Cells(Rng.Row, "E")
Sheets("照片1").Shapes.AddPicture Pat, True, True, rngs.Left, rngs.Top, Rng.Width, rngs.Height
Next
End Sub
Public Sub 照片2()
For Each shap In Sheets("照片2").Shapes
If shap.Type <> 8 Then shap.Delete
Next
For Each Rng In Sheets("照片2").Range("B2", Range("B2").End(xlToRight))
Pat = "D:\TEST\" & Rng
Set rngs = Cells(2, Rng.Column)
Sheets("照片2").Shapes.AddPicture Pat, True, True, rngs.Left, rngs.Top, Rng.Width, rngs.Height
Next
For Each Rng In Sheets("照片2").Range("B5", Range("B5").End(xlToRight))
Pat = "D:\TEST\" & Rng
Set rngs = Cells(5, Rng.Column)
Sheets("照片2").Shapes.AddPicture Pat, True, True, rngs.Left, rngs.Top, Rng.Width, rngs.Height
Next
End Sub

複製代碼

靜思自在 : 小事不做、大事難成。