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
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
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
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
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
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
'引用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