WindowsでQRコードを生成(VBScript)

概要

  • Windows環境でVBScriptを使用してQRコードを生成する方法を紹介します。
  • このVBScriptは、Excelを起動し、バーコードコントロールを使ってQRコードを生成しています。
  • 動作確認で使用した環境は次の通りです。
    • Windows 10(64ビット)
    • Microsoft Office Home and Business(Microsoft Excel 2019 MSO 64ビット)
    • Microsoft Access Runtime 2016
      (バーコードコントロールはAccessに付属するもので、AccessまたはAccess Runtimeが必要になります。)
  • Excel VBAでQRコードを作成したい場合は別のサイトをご覧ください。
  • より高度なことを行う場合、開発効率が良いExcel VBAや.NET等のプログラミング言語での実装をお薦めします。

サンプルコード

サンプルコードは次の通りです。
こちらからダウンロードできます。

  • バーコードコントロールを追加し、各種プロパティを指定してQRコードを生成します。
    コントロールの説明やプロパティ・メソッドは次のサイトやヘルプファイル(CHM形式)をご覧ください。

    1. Microsoft バーコード ActiveX コントロール | Microsoft Docs
    2. Download Microsoft バーコード コントロール 9.0 リファレンス from Official Microsoft Download Center
  • バーコードコントロールを表示状態でプロパティを設定しても、QRコードの画像が生成されません。この状態でコピーしても、やはりQRコードの画像を取得できません。
    バーコードコントロールを非表示の状態(Visible=False)でプロパティを設定する必要があるようです。(結構ハマりました…)
  • バーコードコントロールのQRコードを画像ファイルとして保存するためにチャート(Chart.Export)を使用しています。
  • タイミング?によってコピペが失敗する場合があり、その調整を行うためにコピペ処理前後に待機時間を設けています。環境に応じてCOPY_PASTE_INTERVALの値を変更してください。

実行結果の例

前述のサンプルでファイルにエクスポートしたQRコード(300x300px)を次に示します。
(画像の切れ目が分かるよう枠線を入れていますが、画像に枠線は含まれません。)