- 帖子
- 2848
- 主題
- 10
- 精華
- 0
- 積分
- 2903
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-7-25
|
本帖最後由 准提部林 於 2019-8-6 10:09 編輯
Excel 2007以上, 無法使用Pictures.Insert方法來插入圖片
沒得測試, 稍修:
Sub InsertFace2Cell()
Dim strFacePath As String, Shp As Shape
strFacePath = "C:\Users\DATA CENTER\Desktop\"
For iNum = 2 To Range("A65535").End(xlUp).Row
With Range("C" & iNum)
Set Shp = ActiveSheet.Shapes.AddPicture(strFacePath & Range("A" & iNum) & ".jpg", 0, 1, .Left, .Top, 75, 11.88)
.Height = Shp.Height
End With
Next iNum
End Sub
=============================== |
|
發表於 2019-8-6 10:00
| 