ExcelやWordでバーコードを作成する方法＃３｜Psytec Barcode Label

ExcelやWordを使ったバーコードのつくりかたを紹介いたします。

今回は、前回のフリーソフトを使ったバーコードの作成の応用した内容になります。
手順も記載してますので、ぜひ実践してみてください。

前提として、前回のつづきになりますので、まだご覧になっていないかたは、前回のをご覧になってください。

ExcelやWordでバーコードを作成する方法＃２｜Psytec Barcode Label

1. 今回使用するコントロール
- 1.1. Psytec Barcode Label Control
2. やりたいこと
- 2.1. マクロの修正
  - 2.1.1. Excel画面
  - 2.1.2. ボタンクリック時のプログラム
3. 完成品「step3_PsytecBarcode_sample.xlsm」
- 3.1. 使い方
4. 最後に

今回使用するコントロール

Psytec Barcode Label Control

フリーソフトになります。

サイテック様で制作されたバーコードコントロールになります。
本記事の掲載のご許可を頂きありがとうございます。

セットアップ手順などは、前回のページをご覧ください。

やりたいこと

今までは、バーコード作成ボタンを押したら、１個のバーコードを新しいシートに作成してました。

今回は、バーコード作成ボタンを押したら、５個のバーコードを新しいシートに作成します。

複数に並んだバーコードのシートが出来上がります。

印刷も可能ですので、応用すればシールに印刷するなんて使い方も良いですね。

マクロの修正

今回は、マクロを修正するだけになります。

前提として、前回のつづきになりますので、まだご覧になっていないかたは、前回のをご覧になってください。

Excel画面

以下、画面イメージになります。

セル「B2」にデータを入力
ボタンを選択して、右クリック「マクロの登録」を選択します。

「ボタン1_Click」を選択して、「編集」ボタンを押します。

VBAの編集画面が表示されます。
プログラムを修正します。
５回ループして、バーコードを５個作るように修正します。

ボタンクリック時のプログラム

Sub ボタン1_Click()

    Dim strData As String
    Dim iTop As Integer
    
    'Sheet1のB2のデータを取得
    strData = Sheets("barcode_create").Range("B2").Cells.Value

    '新規シート作成
    sSheetName = Format(Now(), "yyyymmddhhmmss")
    Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = sSheetName
    Sheets(sSheetName).Select

    '小文字があれば、大文字に変換する
    strData = UCase(strData)
    '5個作成
    iTop = 20
    For i = 1 To 5
        With ActiveSheet.OLEObjects.Add(ClassType:="PSYBCLBL.PsyBcLblCtrl.1", _
                                        Link:=False, DisplayAsIcon:=False, _
                                        Left:=20, Top:=iTop, Width:=280, Height:=60).Object
            .Style = 3              'バーコード種別（3 - CODE-39）
            .Value = strData        'シンボルの元となる文字列
            .CheckDigit = 1         'チェックデジット（0-なし、1-あり）
            .ShowData = 0           'データ表示（0-する、1-しない）
            .Direction = 0          '表示角度（0 - 0°）
            .LineWeight = 2         '線の太さ（0 - 1:2、1 - 1:2.5、2 - 1:3）
            .Alignment = 0          '表示位置（0 - マージン規定 中央）
            .Resolution = 6         '解像度（0=96dpi～8=1200dpi）
            .ForeColor = &H0        'シンボルの描画色(BGR)
            .BackColor = &HFFFFFF   'シンボルの背景色(BGR)
            
            iTop = iTop + 80       '高さを変更
        End With
    Next

End Sub