- 帖子
- 10
- 主題
- 2
- 精華
- 0
- 積分
- 11
- 點名
- 0
- 作業系統
- WIN7 SP1
- 軟體版本
- Office 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2015-6-12
- 最後登錄
- 2023-7-14
|
4#
發表於 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
檔名從101-202就都可以貼上,看來....我要學習的還很多... |
|
