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工作表中插入的图片

相关推荐