excel文件中添加图片脚本

Sub jpg()
Dim wj, wj2, wj3 As String
Dim rng As Range
dim colSku,colImg as long
colSku=4  '设置sku列
colImg=5 '设置图片列
Application.ScreenUpdating = False
ThisWorkbook.Activate
x = [a65536].End(xlUp).Row '取得最后一行的行号
For i = 2 To x
    na = Trim(Cells(i, colSku))
    
    wj = "Z:\800X800PNG" & "\" & na & ".png" 
    wj2 = "Z:\Reebonz\800X800" & "\" & na & ".jpg" 
    wj3 = "Z:\Reebonz\800X800全图" & "\" & na & ".jpg" 
    If IsFileExists(wj) =True Then
        Cells(i, colImg).Select
        ActiveSheet.Shapes.AddPicture(wj, False, True, 1, 1, -1, -1).Select
        Set rng = Cells(i, colImg) 
        With Selection
            .Top = rng.Top + 1
            .Left = rng.Left + 1
            .Width = rng.Width - 1
            .Height = rng.Height - 1
        End With
    ElseIf IsFileExists(wj2) =True Then
        Cells(i, colImg).Select
        ActiveSheet.Shapes.AddPicture(wj2, False, True, 1, 1, -1, -1).Select
        Set rng = Cells(i, colImg) 
        With Selection