有关图片处理的问题!---急急急

Question

请教在VBA中，怎样从数据库里读取图片格式到Image控件，和怎样把数据库的图片格式或者Image控件里的图片放到Excel里的Sheet或者Range中。非常感谢您的帮助。

Answer 1

image1.picture=loadpicture(app.path & ".jpg")  '读图片到image控件

Answer 2

那保存图片呢？SavePicture Image1.Picture, "C:\KK.BMP"

Answer 3

图片能否直接放到单元格或者工作薄中显示呢？一定要通过控件来显示吗？在EXCEL中可以直接插入图片到工作薄中显示，可是我不知道用代码如何实现

Answer 4

Private Sub Command1_Click()
    Dim xApp As Excel.Application
    Dim xSheet As Excel.Worksheet
    Dim xBook As Workbook
    Dim xR As Range
    
    Set xApp = New Excel.Application
    Set xBook = xApp.Workbooks.Add
    
    Set xSheet = xBook.Worksheets.Add
    Set xR = xSheet.Cells(1, 1)
    xR.Select
    xApp.ActiveSheet.Pictures.Insert("D:\2003 document\My Pictures\017.jpg").Select
'
    xSheet.SaveAs "c:\ssss.xls"
    xApp.Quit
    
    Set xSheet = Nothing
    Set xApp = Nothing
End Sub

Answer 5

上面的代码将硬盘上的一个图片加入到excel单元格中并保存。