十万火急，送一百分！

Question

Private Sub Command2_Click()
    Dim xlapp As New Excel.Application
    Dim xlbook  As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
    
    xlapp.Caption = "test"
    Set xlbook = xlapp.Workbooks.Add
    Set xlsheet = xlbook.Worksheets(1)
    
    xlapp.ActiveSheet.Pictures.Insert("C:\Documents and Settings\wangbing\桌面\未命名.bmp").Select
    xlapp.Visible = True
End Sub
我把一张图片导入EXCEL表格中，但每次却总是把该图片放在表格的最左上角，我想把该图片插入到第一行第二列中，不知道该怎么办，望高手指点！

Answer 1

这样就行了Private Sub Command2_Click()
    Dim xlapp As New Excel.Application
    Dim xlbook  As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
    
    xlapp.Caption = "test"
    Set xlbook = xlapp.Workbooks.Add
    Set xlsheet = xlbook.Worksheets(1)    xlapp.Range("B1").Select
    xlapp.ActiveSheet.Pictures.Insert("C:\Documents and Settings\wangbing\桌面\未命名.bmp").Select
    xlapp.Visible = True
End Sub

Answer 2

同意楼上.xlapp.Range("B1").Select'选中第一行第二列的格子就行了.

Answer 3

Set xlsheet = xlbook.Worksheets(1)
这句是插入图片或任何内容的位置,自己思考一下怎么添加吧!