自动批量生成条形码，可能你用得上，欢迎进来看看

Janxy

coby001 发表于 2015-8-28 19:14
Library BARCODELib
    C:\Program Files\Microsoft Office\OFFICE11\2052\MSBCODE9.OCX
    Microsoft  ...

我找了，没找到有这个文件，然后下载的Code 39 貌似只能安装字体，感觉不对哦。。。。{:soso_e143:}， code39_barcode_font.zip (4.87 KB, 下载次数: 139)

2015-9-1 09:49 上传

点击文件名下载附件

coby001

Janxy 发表于 2015-9-1 09:50
我找了，没找到有这个文件，然后下载的Code 39 貌似只能安装字体，感觉不对哦。。。。，

win 系统版本 和 excel 版本 各有区别，请找对应的目录

Janxy

coby001 发表于 2015-9-1 10:56
win 系统版本 和 excel 版本 各有区别，请找对应的目录

code39_barcode_font.zip (4.87 KB, 下载次数: 116)

2015-9-1 16:56 上传

点击文件名下载附件

大侠：
能否帮我写个VBA代码，将表barcode 3 of 9中B列的10位文本数字指定到J列，然后自动生成表code39_barcode_font中Free 3 of 9 的字体之条码？谢谢！

天堑小舟

收藏学习！

立志做海盗

如何让条码上的字变小一点，图片变得高一点啊？

huang1314wei

立志做海盗 发表于 2016-3-26 09:22
如何让条码上的字变小一点，图片变得高一点啊？

可以设置的

huang1314wei

立志做海盗 发表于 2016-3-26 09:22
如何让条码上的字变小一点，图片变得高一点啊？

代码当中有一个font_size=14  把这个14改成12或者11

立志做海盗

Sub 生成条码()
    Dim i%, str1$, str2$, str3$, d As Object
    Set d = New DataObject
    Application.ScreenUpdating = False
    If Application.CountA(Range("B:B")) = 0 Then
        MsgBox "B列单号为空，程序退出!"
        Exit Sub
    Else
    i = Range("B65536").End(xlUp).Row
    For j = 3 To i
      If Cells(j, 2) <> "" Then
        str1 = "<table><img src=""http://barcode.cnaidc.com/html/cnaidc.php?filetype=PNG&dpi=72&scale=1&rotation=0&font_family=Arial.ttf&font_size=14&text="
        str2 = "&thickness=30&checksum=&code=BCGcode128"" > "
        str3 = str3 & str1 & Cells(j, 2) & str2 & Chr(10)
      End If
    Next
    d.SetText str3
    d.PutInClipboard
    Range("C3").Select
    ActiveSheet.PasteSpecial Format:="Unicode 文本", Link:=False, DisplayAsIcon:=False
    Columns(2).HorizontalAlignment = xlCenter
    Columns(2).VerticalAlignment = xlCenter
    Rows(4 & ":" & i).RowHeight = ActiveSheet.Pictures(1).Height
    Columns(3).ColumnWidth = ActiveSheet.Pictures(1).Width / 4.13
    End If
    Application.ScreenUpdating = True
End Sub

立志做海盗

现在运行说
   Set d = New DataObject
这行未定义怎么回事啊？

立志做海盗

huang1314wei 发表于 2016-3-26 12:06
代码当中有一个font_size=14  把这个14改成12或者11

改了没变啊，大神现在如果数字那列空一个，可是条码不会也空一个，怎么改进啊？