VB6怎么获取Excel工作表中插入的图片

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

  
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

[其他解释]
ActiveSheet.Shapes(0).Copy
Image1.Picture = Clipboard.GetData

保存就不用说了吧
[其他解释]

引用:

ActiveSheet.Shapes(0).Copy
Image1.Picture = Clipboard.GetData

保存就不用说了吧

谢谢了，可以用，但是在image上显示的图片比原图差很多，不清晰，几乎就看不清，这是怎么回事？
[其他解释]
Image1设置的stretch设置为false
[其他解释]

引用:

VB code

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.Pic……

不行呀，图片很在，用Image1.Stretch = False 窗口装不下
[其他解释]

引用:

VB code

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.Pic……

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

VB6怎么获取Excel工作表中插入的图片

热点推荐