これは何かというと
URL文字列をQRコードにしてPDFで保存するVBScriptです。
以前作った以下の記事の焼き直しです。
(必要な環境も前回に準じます。Microsoft Office (Excel + Access) 2016 以降、のはず。)
コード
QRPDF.vbs
QRPDF "Qiita", "https://qiita.com/", "Qiita_QR"
'URL文字列をQRコードにしてPDFで保存する関数
Function QRPDF(strTitle, strURL, strFileName)
Dim app, wb, ws
Dim wTitle, wQR, wURL
Set app = CreateObject("Excel.Application")
Set wb = app.Workbooks.Add
Set ws = wb.Worksheets.Add
With ws
Set wTitle = .Range("A1")
Set wQR = .Range("A2")
Set wURL = .Range("A3")
End With
With ws.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
.Object.Style = 110
.Top = wQR.Top
.LinkedCell = wURL.Address
.Width = .Height
wQR.RowHeight = .Height
wTitle.Value = strTitle
wURL.Value = strURL
wURL.EntireColumn.ColumnWidth = 30
wURL.ShrinkToFit = True
End With
With ws.PageSetup
.PrintArea = ws.UsedRange.Address
.Orientation = 2 'xlLandscape
.Zoom = 300
End With
ws.ExportAsFixedFormat 0, strFileName '0: xlTypePDF
wb.Close False
app.Quit
End Function
結果イメージ
今後の展開
以下の記事の処理と組み合わせて、Web会議のURLをQRコード化するVBScriptを作る予定です。