麻辣家族討論版版 » Excel程式區 » EXCEL2010 想批次匯入圖片

返回列表下一主題上一主題發帖

[發問] EXCEL2010 想批次匯入圖片

小學生 Rank: 1

帖子: 10
主題: 2
精華: 0
積分: 11
點名: 0
作業系統: WIN7 SP1
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2015-6-12
最後登錄: 2023-7-14

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-6-12 02:07 | 顯示全部帖子

[發問] EXCEL2010 想批次匯入圖片

小弟最近工作上遇到一個問題
每個車站掉漆照片約1.2百張,有6個車站
照片檔案我已經依照時間排好為001.002.003.........這樣下去

VBA要如何寫出批次貼上???
如圖,當我選到O13這車站,會自己從O13資料夾把照片存到儲存格,且符合儲存格大小
從C3開始一直貼完

謝謝高手前輩指教,我看了一些類似的還是沒辦法領悟

收藏

小學生 Rank: 1

帖子: 10
主題: 2
精華: 0
積分: 11
點名: 0
作業系統: WIN7 SP1
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2015-6-12
最後登錄: 2023-7-14

2^#

發表於 2015-6-12 02:12 | 顯示全部帖子

小弟忘了說
當我選到其他車站也是一樣自己從相對應的資料夾把照片存到儲存格,且符合儲存格大小
不是只有O13一個車站喔!!

小學生 Rank: 1

帖子: 10
主題: 2
精華: 0
積分: 11
點名: 0
作業系統: WIN7 SP1
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2015-6-12
最後登錄: 2023-7-14

3^#

發表於 2015-6-14 01:25 | 顯示全部帖子

回復 3# lpk187

謝謝這位大哥熱心教導,不過小弟真的還是試不成功,可能我要再慢慢體會
我用另一位大哥寫的,稍作修改,成功的符合我要求

還是謝謝你的熱心,尤其你的解說讓不懂得語法的我也感到你的貼心
謝謝,最後附上我的程式碼

Sub ChangeSize()
Dim Mypath As String, E As Range, MyPic As Object
Mypath = "C:\Users\Administrator\Desktop\掉漆\O13\"
With Sheets("O13")
.Pictures.Delete
For Each E In .Range("c3", .Range("c" & .Rows.Count).End(xlUp))
'For Each : 依序處裡集合的成員
'集合的成員: .Range("a2") 到 .Range("a" & .Rows.Count).End(xlUp))的儲存格
'(從最儲存格底部的列往到有資料的儲存格)
If Dir(Mypath & E & ".jpg") <> "" Then
Set MyPic = ActiveSheet.Pictures.Insert(Mypath & E & ".jpg")
With MyPic
.ShapeRange.LockAspectRatio = msoFalse
.Left = E.Cells(1, 1).Left
.Top = E.Cells(1, 1).Top
.Width = E.Cells(1, 1).Width
.Height = E.Cells(1, 1).Height
End With
End If
Next
End With
End Sub

複製代碼

不知道為何圖片如果從001-102,只有100.101.102圖片貼得上
檔名從101-202就都可以貼上,看來....我要學習的還很多...

小學生 Rank: 1

帖子: 10
主題: 2
精華: 0
積分: 11
點名: 0
作業系統: WIN7 SP1
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2015-6-12
最後登錄: 2023-7-14

4^#

發表於 2015-6-14 01:44 | 顯示全部帖子

回復 5# lpk187

謝謝大哥
又教我一招,這論壇真的都是好人
我在別的論壇都沒人理我
更過分的還有人私信,說2000元就幫我做
真的是....

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。

返回列表下一主題上一主題