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

  

原文地址:https://www.cnblogs.com/ranlx/p/3229654.html