1、编制单元格的坐标是3,1，不是1,1，索引从0开始Sheet(3,1).Value = New XLS.Picture(GetImage(ProjectPath & "Temp\编制人.png"),3,3,120,30)
2、表格实际的行数是927行，可能是设置各种格式的原因，这种格式也被当做是有效数据导出pdf的
Dim Book As New XLS.Book( "E:\问题\电气设计表格.xlsx") '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(book.sheets(1).Name) '引用工作簿中的工作表
Output.Show(Sheet.Rows.Count)
3、这个表格受保护被锁住了，不知道是不是这个原因，导致logo问题
或者试试使用vba添加图片，下面代码在没有被锁的execl文件是可以的
Dim App As New MSExcel.Application
try
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("E:\问题\电气设计表格.xlsx")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("B4") '编制单元格的坐标
ws.Shapes.AddPicture("E:\问题\123.gif", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue,Rg.left, Rg.Top, 120, 30)
Wb.SaveAs("E:\问题\电气设计表格4.xlsx")
app.quit
catch ex As exception
msgbox(ex.message)
app.quit
End try
加好友 
发短信
Post By：2020/1/19 17:31:00 [显示全部帖子]
