VB6如何获取Excel工作表中插入的图片？

Question

我想从Excel工作表中获取图片，并在image控件上显示，最后另存起来。该如何操作？请高手指教！

Answer 1

ActiveSheet.Shapes(0).Copy
Image1.Picture = Clipboard.GetData保存就不用说了吧

Answer 2

谢谢了，可以用，但是在image上显示的图片比原图差很多，不清晰，几乎就看不清，这是怎么回事？

Answer 3

  
Private Sub Image1_Click()
Dim s As Excel.Application
Set s = GetObject(, "Excel.Application")
Dim sh As Worksheet
Set sh = s.Sheets(1)
sh.Shapes(1).Copy
Image1.Stretch = False
Image1.Picture = Clipboard.GetData
End Sub

Answer 4

不行呀，图片很在，用Image1.Stretch = False 窗口装不下

Answer 5

不行呀，图片很大，用Image1.Stretch = False 窗口装不下