Dim path As String = ProjectPath & "Attachments/" & Tables("生产进度表").current("图片") If FileSys.FileExists(path) Then Wb.WorkSheets("Sheet1").range("L14").Select() Wb.WorkSheets("Sheet1").Shapes.AddPicture(path, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue,0, 0, 100, 80) End If