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 

注：

• エンコードルールを好きなように変更します。この例では、ルールは​​3210です。詳細はhttps://msdn.microsoft.com/en-us/library/hh745901(v=office.12).aspxを参照してください。
• BarcodeWidthインターガーをバーコードに最適に調整します。

BR〜

Answer 2

これは、あなたが必要なもののためにspecced過大規模ですが、必要に応じて、あなたはそれのうちのビットを引くことができます。

Sub Call_Barcode_Service() 

Dim strResource As String 
Dim strSize As String 
Dim iHgt As Integer 
Dim iWth As Integer 
Dim iGap As Integer 
Dim PictureGrab As String 
Dim lngLastRow As Long 

strSize = UCase(InputBox("How Big?", "Small, Medium or Large?", "L")) 

Select Case strSize 

    Case Is = "S" 
     iWth = 150 
     iHgt = 45 
     iGap = 3 


    Case Is = "M" 
     iWth = 150 
     iHgt = 60 
     iGap = 4 

    Case Is = "L" 
     iWth = 240 
     iHgt = 75 
     iGap = 5 

    Case Else 
     iWth = 250 
     iHgt = 75 
     iGap = 5 

End Select 


Set sel = Selection.SpecialCells(xlTextValues) 

Set news = Worksheets.Add() 
news.Name = "Barcodes" 
Set op = news.Range("A1") 

For Each acc In sel 
strResource = acc.Value 

PictureGrab = "http://www.barcodesinc.com/generator/image.php?code=" & strResource & "&style=197&type=C128B&width=" & iWth & "&height=" & iHgt & "&xres=1&font=1" 

Set sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle, op.Left, op.Top, iWth, iHgt) 

With sh 

.Name = strResource 
.Line.Visible = False 
.Fill.UserPicture PictureGrab 

End With 

Set op = op.Offset(iGap + 1, 0).Range("A1") 

Next 

Range("G1").Select 

End Sub