不太清楚怎么表达, 请忽略标题
具体就是在function方法中使用 activeSheet.OLEObject.add 方法新添加一个oleobject对象无法继续执行下去.
如果在单独的sub中使用这个方法可以, 而且必须是宏运行的方式, 函数调用也是不行的.
详细代码:
Function BAR_CODE(codeValue)
Dim vtrue
Dim barObj
If IsEmpty(codeValue) Then
Exit Function
End If
If TypeName(codeValue) = "Range" Then
vtrue = codeValue.Value
Else
vtrue = codeValue
End If
//call insertBarCode
With ActiveSheet
Set tmp = .OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1")
With tmp
.Object.Style = 7
.Object.Value = "11234325"
.Width = 100
.Height = 50
.Top = 10
.Left = 10
End With
End With
If TypeName(barObj) = "Object" Then
With barObj
.Object.Style = 7
.Object.Value = "11234325"
.Width = 100
.Height = 50
.Top = 10
.Left = 10
End With
End If
End Function
Sub insertBarCode()
With ActiveSheet
Set tmp = .OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1")
With tmp
.Object.Style = 7
.Object.Value = "11234325"
.Width = 100
.Height = 50
.Top = 10
.Left = 10
End With
End With
End Sub
单独调试insertbarcode 没有问题, 但通过函数bar_code是没法调用的.
我知道oleobject Add方法会暂时跳出当前进程, 通过ole server 创建.
怎么才能如单独运行宏一样的返回呢?
