求救:在VB中如何向EXCEL中插入图片?帮帮我。谢谢

Question

在VB中如何向EXCEL中插入图片?帮帮我。谢谢

Answer 1

以后遇到vba的问题你自己录制宏看看就知道了
工具》宏》录制》操作》查看》vba转化成vb就好了
  xlsheet.Range("B5").Select();
  xlsheet.Pictures.insert(path).Select();

Answer 2

xlsheet.Range("B5").Select
  xlsheet.Pictures.insert(path).Select

Answer 3

Private Sub Command1_Click()
    Dim xlApp As New Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Set xlBook = xlApp.Workbooks().Add
    Set xlSheet = xlBook.Worksheets("sheet1")
    ActiveSheet.Pictures.Insert("F:\aaa.bmp").Select
    xlApp.Visible = True
End Sub

Answer 4

worksheet.Shapes.AddPicture App.Path & "\picture.bmp", msoCTrue, msoCTrue, 1, 382, 372, 412
1,382, 372, 412  起始坐标,宽高
不受单元限制

Answer 5

谢谢你们的回复我当天也是用worksheet.Shapes.AddPicture,做的多谢你们的回复/.当时不会急坏了