求问这个vba里为啥运行到一半停止le

alexaxis

运行到 with cell.addcomment那里停止了。为啥啊

file:///C:\Users\pccho\AppData\Local\Temp\mx3B5FC.pngSub AddABunch()    For Each cell In Selection
    Pics = "E:\Pictures\2015\Lego" & cell.Value & ".jpg"
    With cell.Addcomment
      .Shape.Fill.UserPicture PictureFile:=Pics
      .Shape.Height = 100
      .Shape.Width = 100
    End With
    Next cell
    End Sub