我用VBA 插入图片后，图片不能随excel保存，要怎么办？代码如下 Sub AAAA() Dim i, myPath$ &n

芯友网首页 VBA 插入图片保存 2020-02-27 07:56:42

我用VBA 插入图片后，图片不能随excel保存，要怎么办？代码如下 Sub AAAA() Dim i, myPath$ &n

呀哎.州广

我用VBA 插入图片后，图片不能随excel保存，要怎么办？
代码如下
Sub AAAA()
    Dim i, myPath$
    myPath = ThisWorkbook.Path & "\"
    For i = 2 To 260
        Range("F" & i).Select
        ActiveSheet.Shapes.AddPicture(myPath & "AAAAA\" & Range("D" & i) & ".jpg").Select
    Next i
End Sub

虫懒.东山

ActiveSheet.Pictures.Insert((myPath & "AAAAA\" & Range("D" & i) & ".jpg")试试行吧

想联.苏江

前面多个括号

呀哎.州广

ActiveSheet.Pictures.Insert  这个应该只能插入图片吧
Sub 批量导入相片()
    Dim i, myPath$
    myPath = ThisWorkbook.Path & "\"
    For i = 2 To 260
        Range("F" & i).Select
        ActiveSheet.Pictures.Insert(myPath & Range("D" & i) & ".jpg").Select
    Next i
End Sub
现在用的是这个
插入图片后保存，excel文件只有36k

想联.苏江

这个就是变成同目录了
也可以加个参数设置指定的目录

呀哎.州广

其实我希望做到图片直接跟execl文件，不需要附加一个文件夹的
有办法么

子公七龙.通南

把所有图片放在EXCEL中呗