TBarCode Office

最新推荐文章于 2020-12-29 02:29:07 发布

weixin_30787531

最新推荐文章于 2020-12-29 02:29:07 发布

阅读量132

点赞数

原文链接：http://www.cnblogs.com/ranlx/p/3229654.html

版权

下载地址：TBarCode Office,傻瓜式安装，重新打开Excel后，在加载项菜单下会看到如下菜单项：

问题一、动态赋值数据：

解决方法：

①开发工具->设计模式，以便能选中TBarCode控件

②右键属性，将所需关联的Cell值赋值到LinkedCell属性中。

问题二、在批量打印时会产生条形码不刷新的问题。

解决方法：在VBA窗口，相应Sheet对象下添加如下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
For Each BarCode In ActiveSheet.OLEObjects
    If LCase(BarCode.Name) Like "barcodectrl*" Then
        With BarCode
        m = .Height
        .Height = m - 1
        .Height = m
        End With
    End If
Next
End Sub

转载于:https://www.cnblogs.com/ranlx/p/3229654.html