ちらしいQRコードを張る方法です. .ScaleWidth 1, True google_ad_client = "ca-pub-1622763865675818"; i = InputBox(“バーコードタイプを0~12で指定” & vbCrLf & _ エクセルにて下記のバーコードを生成し画像として挿入する方法をご紹介します。 WORD ワードの上で. バーコード挿入した時に、写真のように大きくならず小さくなってしまいます。 MiBar.BarScale = 1 Dim Code As String Dim MyVer, MyAns Dim i As Integer google_ad_width = 336; End With End If For a = 0 To 39 SendKeys "{kanji}" MyVer = Array(16, 32, 52, 76, 104, 130, 150, 186 _ "9:CUSTOMER" & vbCrLf & _ a = a + 3 google_ad_slot = "7420561081"; MiBar.Code = c.Value MiBar.QRVersion = a With shapeToCrop.Duplicate こちらでも色々とやっていますが、解決策が未だでていません。 右クリックで貼り付けます。「作成されるqrコード」で大きさを選択することも出来ます。 サイズが決まったら「ok」ボタンをクリックします。 作成したqrコードの上で右クリックし、「画像編集」→「ウェブアートデザイナーを起動」します。 .Left = c.Offset(0, s).Left + (c.Offset(0, s).Width-.Width) / 2 インスタグラムで誰かをフォローする際、id検索が面倒に感じる人もいるでしょう。qrコードを使えば簡単にフォローできます。ここではqrコードの作成方法、読み取り方、qrコードを作成するメリットなどをご紹介します。これでよりインスタグラムが便利に使えます。 JAN/CODE-39/NW-7/ITF/UPC/CTF/IATA/MATRIX/NEC/CODE128/CODE93/QR2, ※ちなみに私が今回の記事を書くにあたり、ちゃんと読み取れるか試したのはJANコードとQRコードだけです。 origHeight = .Height "7:MATRIX" & vbCrLf & _ バーコードの大きさは、基本的にはセル大きさに合わせるようになっています。 例えば、この記事のURLのQRコードを300×300pxの画像で表示したい場合は下記のように指定します。, 上記の指定をすると、デフォルトのパラメータを上記のパラメータに置換して関数を実行します。 a = a + 3 上記のコードを知るまでは、QRコードは別のサイト様で作成してから貼り付けるようにしていましたが、 .ScaleWidth 1, True 素人の書いた記事であることを前提にしていただき、あくまでも自己責任で使ってください。 End If QRコードの上で. "6:IATA" & vbCrLf & _ .Height = c.Height - 4 'セルの高さよりちょっと低くする "8:NEC" & vbCrLf & _ a = InputBox("バージョンを半角1~40で指定してください") 今後極力ミスが起こらないよう注意してまいります。, こんにちは. With Selection イベント作成画面. Next a , 1556, 1686, 1788, 1894, 2004, 2120 _ cropPoints_h = origHeight * 0.5 「標準モジュール」をクリック, Sub MiBcdInsert() .Delete Dim a As Integer エクセルファイルの列構成はあらかじめ調整しておいてください(先頭から最後まで同じ列なら問題ありません) vectorからダウンロード, vectorのページの緑のリンク画像(ダウンロードはこちら → ダウンロードページへ → このソフトを今すぐダウンロード)をクリックしていくと「mibarcd62.exe」の保存先を選択するダイアログが出るので、「mibarcd62.exe」をデスクトップに保存します。 このQRコードをショートコードだけで張り付けてしまいましょう!, コードの4行目で’url’ => ‘home_url(‘/’)’と指定しているのはサイトのアドレス、 End If (挿入した画像をトリミングします), Sub MiBcdInsert() 具体的には下図のように、作成された画像の左上1/4のスペースにバーコードができてしまう、というものです。, 根本的な解決ではありませんが、もし同じことが起きるという場合は下記コードを試してください。 "11:CODE93" & vbCrLf & _ .Width = c.Offset(0, s).Width - 4 'セルの幅よりちょっと狭くする C:\Program Files\Mibarcode, Mibarcodeの設定をします。 shapeToCrop.PictureFormat.CropBottom = cropPoints_h 注意:最適なアプリで開けないqrコードもある shapeToCrop.PictureFormat.CropRight = cropPoints_w .Height = c.Height-4 MiBar.CodeType = i MyAns = MsgBox(“QRコードのバージョンを指定しますか?” & vbCrLf & “「いいえ」を指定した場合、自動で設定します”, vbYesNo) If c.Offset(0, s).Width > c.Height Then またマイクロQRコードに関しても、MiBarcodeでは作成できないため、対応は困難です。 "5:CTF" & vbCrLf & _ MyAns = MsgBox("QRコードのバージョンを指定しますか?" & vbCrLf & "「いいえ」を指定した場合、自動で設定します", vbYesNo) 早速修正させていただきました。 For a = 0 To 39 Else End If cropPoints_w = origWidth * 0.5 End If ↓ cropPoints_w = origWidth * 0.5 Exit For End If 記事に貼り付け. .Top = c.Offset(0, s).Top + (c.Offset(0, s).Height - .Height) / 2 '縦位置 セルの中央に配置 End Sub, エラー424「オブジェクトが必要です」がでました。 解決できるか分かりませんが、もう少々お待ちください. ちょっと画像がきれてしまいましたが…, すいません origWidth = .Width "5:CTF" & vbCrLf & _ google_ad_height = 280; 下記リンクからMibARCODEをダウンロードします。 , 554, 620, 690, 768, 820, 876, 960 _ "8:NEC" & vbCrLf & _ MiBar.QRVersion = a .Left = c.Offset(0, s).Left + (c.Offset(0, s).Width-.Width) / 2 c.Offset(0, s).PasteSpecial End With .Height = c.Height - 4 'セルの高さよりちょっと低くする Dim MyVer, MyAns 解決方法があればお願いします。, こんにちは , 1556, 1686, 1788, 1894, 2004, 2120 _ Else End If Set MiBar = Nothing Set shapeToCrop = ActiveWindow.Selection.ShapeRange(.Name) With Selection .Width = c.Offset(0, s).Width - 4 'セルの幅よりちょっと狭くする , 554, 620, 690, 768, 820, 876, 960 _ End With キャンバスにqpコードが表示されますが、今のままだとサンプルのurlなので qrコードにしたいurlを文字の欄に貼り付けます。 qrコードは自由にサイズや位置を変更できます. URLを変更するだけで対処できるようになったので非常に楽になりました。, 今回紹介したプログラムの参考にさせていただいたサイト様は下記になります。 If MyAns = vbYes Then Next a Dim s As Integer origHeight = .Height "1:UPC" & vbCrLf & _ google_ad_client = "ca-pub-1622763865675818"; Dim MyVer, MyAns .Top = c.Offset(0, s).Top + (c.Offset(0, s).Height - .Height) / 2 '縦位置 セルの中央に配置 Dim s As Integer , 554, 620, 690, 768, 820, 876, 960 _ コードの8行目でGoogle Chart APIのQRコード作成機能を使用してQRコードを作成しています。 上記のコードを実行すると、サイトのホームURLのQRコードを150×150pxの画像で表示できます。 Next c .ScaleWidth 1, True s = InputBox("何列右にバーコードを貼り付けますか?") 解決できるか分かりませんが、imgurなどの画像アップローダにキャプチャー画像をアップして、コメントにリンクを貼ってみてください。 google_ad_width = 336; Set shapeToCrop = ActiveWindow.Selection.ShapeRange(.Name) これでQRコードが張り付けられます. .ShapeRange.LockAspectRatio = msoFalse 'バーコードの縦横比を固定しない その配列ですが、QRコードに格納する文字数を判定するための配列です。 なお、下の3工程ですが、インストールした時にデフォルトで設定されているかもしれません。, C:\Program Files\Mibarcode の 「Mibarcd.exe」を開いてください。, ③エクセルの準備 google_ad_width = 336; a = InputBox(“バージョンを半角1~40で指定してください”) If MyVer(a) / LenB(StrConv(c, vbFromUnicode)) > 1 Then 下記URLにある表から、「誤り訂正レベルM」の「漢字」を基準にして設定した配列です。(漢字を基準にLENB関数で判定しているので倍にしています) 当たり前の話ですが、GIFやJPG、PNGなどのビットマップ画像を拡大・縮小してしまうのは、オススメできません。そこで、作成したQRコードをIllustratorのEPSベクトルデータに変換する方法をメモしておきます。 それでは見ていきましよう。 1.QRコードを作成 kiwamiです! 今回は「送られてきたLINEのQRコードの画像を読み込む方法」についてご紹介します。 送る時は考えも着かなかったのですが、いざ送られてみると「これってどうすればいいの?」という状況になることに気付きました。 ですが以下の方法で解決します。 , 222, 262, 310, 354, 408, 446, 508 _ "4:ITF" & vbCrLf & _ End If MiBar.BarScale = 1 End If cropPoints_h = origHeight * 0.5 「挿入」をクリック End If 環境が違う場合、MiBarcodeのインストール先などが違ったり、プログラムが動かない可能性もありますので、あらかじめご了承ください。. “7:MATRIX” & vbCrLf & _ WordやExcelでQRコードを貼り付けるとボケてしまう。 いちいち印刷のサイズだとか調整するので手間がかかるし、変更を加えにくい。と、ふと思ったのですがSVG画像ってofficeソフトではちゃんと扱える … , 222, 262, 310, 354, 408, 446, 508 _ .Left = c.Offset(0, s).Left + (c.Offset(0, s).Width - .Width) / 2 '横位置 セルの中央に配置