我自己编写了一个程序,程序中部分代码如下:
Private Sub Command1_Click()
If Combo1.Text = "" Then
MsgBox "请输入井名", vbOKOnly, "提示信息"
Exit Sub
End If
If Combo1.Text = "Esh" Then
Call Esh
Exit Sub
End If
If Combo1.Text = "J1b" Then
Call J1b
Exit Sub
End If
If Combo1.Text = "J1s" Then
Call J1s
Exit Sub
End If
End Sub
其中的Esh、J1b、J1s函数均为在EXCEL中画图的宏过程。现在要的做的是将所画的图在VB界面中的控件内显示出来。该怎么实现呢?EXCEL中本来是没有图的。
Private Sub Command1_Click()
If Combo1.Text = "" Then
MsgBox "请输入井名", vbOKOnly, "提示信息"
Exit Sub
End If
If Combo1.Text = "Esh" Then
Call Esh
Exit Sub
End If
If Combo1.Text = "J1b" Then
Call J1b
Exit Sub
End If
If Combo1.Text = "J1s" Then
Call J1s
Exit Sub
End If
End Sub
其中的Esh、J1b、J1s函数均为在EXCEL中画图的宏过程。现在要的做的是将所画的图在VB界面中的控件内显示出来。该怎么实现呢?EXCEL中本来是没有图的。
xlSheet.Shapes("Chart 1").Select '选定excell的图片
xlApp.Selection.CopyPicture '复制到剪切板
Picture1.Picture = Clipboard.GetData '粘贴到vb的Picture1