怎样把vb绘出的图形,通过复制、粘贴到excel内(求代码)

Question

怎样把vb绘出的图形,通过复制、粘贴到excel内(求代码)

Answer 1

Private Sub Command1_Click()
    Clipboard.SetData Picture1.Image
    
    Dim oExcel
    Dim oSheet 
    Set oExcel = CreateObject("Excel.Application")
    With oExcel
        .Visible = True
        .Workbooks.Add
        Set oSheet = .ActiveSheet
        oSheet.PasteSpecial "位图"
    End With
End Sub