msgbox(projectPath)
Sheet2(r+3,6).Value = New XLS.Picture(GetImage(projectPath & "RemoteFiles\进货检验照片\不良照片\" & bb7.rows(r)(nms3(5))),5,5,130,130)