紧急求助，在线等呀

[adong1980]

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

[lxcy]

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

[faysky2]

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

[faysky2]

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

[jxgzay]

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