紧急求助，在线等呀

Question

如何在用ＶＢ．６在控制一Ｅｘｃｅｌ，在固定的位置加图片。（图片有路径）

Answer 1

Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add
xlApp.Visible = True
xlSheet.Range("a11:k40").Select
ActiveSheet.Paste '粘贴图片到指定的位置
end sub

Answer 2

Range("E10").Select'设置插入位置E列10行
ActiveSheet.Pictures.Insert("C:\Test.jpg").Select'插入图片Selection.ShapeRange.IncrementLeft -38.25'可以设置图片位置
Selection.ShapeRange.IncrementTop -16.5
Selection.ShapeRange.ScaleWidth 0.77, msoFalse, msoScaleFromTopLeft'设置图片大小
Selection.ShapeRange.ScaleHeight 0.77, msoFalse, msoScaleFromTopLeft

Answer 3

Private Sub Command1_Click()
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xSheet As Excel.Worksheet
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Open("C:\Book1.xls")
    Set xSheet = xBook.Worksheets(1)    
    xSheet.Range("E10").Select'设置插入位置E列10行
    xSheet.Pictures.Insert("C:\Test.jpg").Select'插入图片    xSheet.Selection.ShapeRange.IncrementLeft -38.25'可以设置图片位置
    xSheet.Selection.ShapeRange.IncrementTop -16.5
    xSheet.Selection.ShapeRange.ScaleWidth 0.77, msoFalse, msoScaleFromTopLeft'设置图片大小
    xSheet.Selection.ShapeRange.ScaleHeight 0.77, msoFalse, msoScaleFromTopLeft
    xlBook.Close False
    xlApp.Quit
    Set xlBook = Nothing
    Set xlApp = Nothing
end sub

Answer 4

Private Sub Command1_Click()
'引用EXCEL9.0
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add
xlApp.Visible = True
    xlApp.Range("D6").Select '图片左上角所在单元格
    xlApp.ActiveSheet.Pictures.Insert("D:\My Documents\My Pictures\13.TIF").Select '图片路径
'...
End Sub