qrserverapiからWordテーブルへのqrコード
tableのセルにQRコードを作成しようとしています.スタックオーバーフローのヒントに基づいて、Excelでも同様のことを行いました
https://stackoverflow.com/questions/16143331/generated-2d-pdf417-or-qr-barcodes-using-Excel-vba
これは高速で無料なので、QRServerを使用しています
次のスタブはExcelVBAで機能し、アクティブなブックのacticeセルにQRCodeを挿入します.追加のライブラリへの参照を必要としないため、組織に簡単に展開できます.
Excel VBA:
サブGenQRCodeNoParam()
surl= "https://api.qrserver.com/v1/create-qr-code/? "+" size= 200x200 "+"&data= Test "
'Debug.Print surl
ActiveSheet.Pictures.Insert(surl)
サブの終了
Wordでも同じことをする必要があり、次のコードが機能します
Word VBA:
サブtestQRCode()
Const surl As String= "https://api.qrserver.com/v1/create-qr-code/? "+" size= 100x100 "+"&data= Test "Debug.Print surl
サブの終了
QRCode画像を取得し(確認する方法はありますか)、それをドキュメントに転送するだけでよいと思います(表1、行1、列1).私はWordについてあまり書いておらず、オブジェクトモデルをよく知りません.返されたオブジェクトにアクセスしてtableに配置するにはどうすればよいですか+
編集; (テスト後も)このコンテキストでは意味がないと思われるデバッグ行を削除しました.
返信リスト(回答:6)
次のコードを使用してください
ActiveDocument.Fields.Add Selection.Range、wdFieldEmpty、 "DISPLAYBARCODE"&Chr(34)&"Test"&Chr(34)&"QR\h1440"、False
応答2# ->にスキップ1 #SamSyveおかげで、私はセルを選択しました
......
ActiveDocument.Tables(1).Cell(1、1).Select
Selection.Collapse.....
崩壊部分が必要だと理解するのに少し時間がかかりました
QRコードをより大きくスケーリングしようとしていますが、/h1440をたとえば/h3000に変更できると思いました.サイズは変わっていないようですが、トリックは何ですか?
編集:解決策が見つかりました./hパラメーターはQRコードでは機能しません.代わりに、/sパラメータを使用します.ここで、100はスケーリングなし、200はダブルサイズです.最終的なコードは次のとおりです:
サブtestQRCode()
ActiveDocument.Tables(1).Cell(1、1).Select
Selection.Collapse
ActiveDocument.Fields.Add Selection.Range、wdFieldEmpty、 "DISPLAYBARCODE"&Chr(34)&"Test"&Chr(34)&"QR\s200"、False
サブの終了
これを試してみてください:
ActiveDocument.Tables(1).Cell(1、1).Range.InlineShapes.AddPicture FileName:= surl、LinktoFile:= True、SaveWithdocument:= True
応答6# ->にスキップ3 #SamSyveコードをありがとう、このようなものを探していました.投稿された文字列は
「ファイル名」は次のとおりです. https://api.qrserver.com/v1/create-qr-code/?size=100x100&data=Test
これは、Excelで成功して投稿されたものと似ています.しかし、ここで私は以下のエラーメッセージを受け取ります.理由は何ですか?