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

[發問] 插圖

mdr0465

中學生 Rank: 2

帖子: 159
主題: 44
精華: 0
積分: 241
點名: 15
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2024-4-16

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-8-5 21:53 | 只看該作者

[發問] 插圖

各位大大:

這個程式係只是在A欄輸入號碼, C 欄就會插圖入儲存格, 但當我TESTING 時係一切都正常, 但當我另存為*.xlsm之後就會出現error 1004

請問各位大大, 我錯在那里呢??謝謝

Insert Pic.rar (11.63 KB)

插圖

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-15

2^#

發表於 2019-8-6 10:00 | 只看該作者

本帖最後由准提部林於 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

===============================

TOP

mdr0465