如何在Excel工作表中生成条形码

Question

一个简短的问题，如何在Excel工作表中生成条形码？条形码文本已在单元格中指定。

（不打算大规模生成条形码，否则可以在MS Word中完成。）

Answer 1

选择写入条形码文本的范围：

然后运行以下脚本：

Sub INSERT_BARCODE()
    Const BarcodeWidth As Integer = 156
    Dim ws As Worksheet, WdApp
    Set ws = ActiveSheet
    Set WdApp = CreateObject("Word.Application")
    With WdApp.Documents.Add
        .PageSetup.RightMargin = .PageSetup.PageWidth - .PageSetup.LeftMargin - BarcodeWidth
        .Fields.Add(Range:=.Range, Type:=-1, Text:="DISPLAYBARCODE " & CStr(Selection.Value) & " CODE39 \d \t", PreserveFormatting:=False).Copy
    End With
    ws.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False, DisplayAsIcon:=False
    WdApp.Quit SaveChanges:=False
    Set WdApp = Nothing
End Sub

注意：

• 根据需要更改编码规则。此示例使用CODE39规则。有关详细信息，请参阅https://msdn.microsoft.com/en-us/library/hh745901(v=office.12).aspx。
• 调整BarcodeWidth整数以最适合条形码。

BR〜

Answer 2

这大概超出了您的需求，但您可以根据需要从中提取出来。

createNode