yanz(飞燕）请进

[gongwen]

上次你提到的.paste方法(将picture中z做得曲线图拷贝到excel的指定位置),
无法得到，不知是那出问题。能否再指点指点，修改下面，在提供些资料
Set MyXL = CreateObject("Excel.application")
Set MyXL = GetObject(, "Excel.Application")
Set MyXL = GetObject(sFile)
Form1.Picture1.AutoRedraw = True
Clipboard.Clear
Clipboard.SetData Form1.Picture1
MyXL.Application.Visible = True
MyXL.Parent.Windows(1).Visible = True
With MyXL.Worksheets("Sheet1")
'系统参数
.Range("d5").Value = Str$(12345)
.Range("c10").Value = Str$(23456)
.Paste Destination := .Range("c11:f23")
End With
Form1.Picture1.AutoRedraw = False
MyXL.Application.Save
If ExcelWasNotRunning = True Then
MyXL.Application.Quit
End If

excel中的不到曲线图形

[gump2000]

Private Sub Command1_Click()
Dim ee As Excel.Application
Dim ww As Excel.Worksheet

Set ee = CreateObject("Excel.Application")
ee.Workbooks.Add
Set ww = ee.Worksheets(1)

Clipboard.Clear
Clipboard.SetData Picture1

ww.Paste Destination:=ww.Range("A1:A1")

ee.Visible = True
ee.Interactive = True
Set ee = Nothing

End Sub


环境:
VB6(sp5)
win2k pro(sp2)
office 2k

[gump2000]

成功，这样算不算抢分啊？