TBarCode Office

下载地址：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