エクセルを使ってQRコードを作成したい。

エクセルでQRコードを作るには、Microsoft BarCode Control 16.0 を導入して、
=埋め込み("BARCODE.BarCodeCtrl.1","")でのプロパティのValue欄に、URLを入力し、ENTERキーを押すとできるところまでは確認したのですが、エクセル座標のA1にURLを入れてB1にQRコードを表示させることはできないのでしょうか

質問者からの補足コメント

• 

  LinkedCell の欄に、A1を入力してみましたが、だめでした。ValueにURLを入れれば、表示されました。

    補足日時：2024/09/29 13:07

• いろいろ調べたところ、VBAで作成するのがてっとり早いということがわかり
  以下のVBAで解決しました。

    補足日時：2024/09/29 13:26

No.2 ベストアンサー 回答者： bonaron 回答日時： 2024/09/29 12:16

=埋め込み("BARCODE.BarCodeCtrl.1","")でのプロパティの

LinkedCell の欄に、
A1 と入力。

この回答へのお礼

いろいろ調べたところVBAで解決することがわかりました。お騒がせしました。

Sub QRコード作成()

Dim fName As String

Range("B1").Select

開始行 = 2
Selection.End(xlDown).Select
最終行 = ActiveCell.Row

For Rowi = 2 To 最終行

QRname = "QR" & Rowi
fName = "https://api.qrserver.com/v1/create-qr-code/?data=" & Cells(Rowi, 3).Value


With ActiveSheet.Pictures.Insert(fName)
.Name = "QR"
.Height = 100
.Width = 100

.Top = Range(Cells(1, 1), Cells(Rowi - 1, 1)).Height
.Left = Range(Cells(1, 1), Cells(1, 4)).Width
End With


Next Rowi

MsgBox "QRコード貼付　処理終了"

End Sub

お礼日時：2024/09/29 13:30

No.1 回答者： サクラノキ 回答日時： 2024/09/29 09:24

その関数のURLを入れる箇所に、A1とすると上手く行きませんか？