坐标图保存问题
Private Sub Command1_Click()Dim wd As Object
On Error Resume Next
Set wd = CreateObject("Word.Application") '注意这一段中word的使用
wd.Visible = True
wd.Documents.Add
Clipboard.Clear
Clipboard.SetData Picture1.Picture, 8
wd.Selection.Paste
wd.PrintPreview = True
'Exit Sub
'objError:
'If err <> 429 Then
' MsgBox Str$(err) & Error$
'Set wd = Nothing
' Exit Sub
End Sub
我是在pictureBox中绘制一段坐标图画的曲线图，为什么我用以上一段程序无法将此坐标曲线图保存到word文档中呢
