這個程式係只是在A欄輸入號碼, C 欄就會插圖入儲存格, 但當我TESTING 時係一切都正常, 但當我另存為*.xlsm之後就會出現error 1004
請問各位大大, 我錯在那里呢??謝謝作者: 准提部林 時間: 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
