QRコード（Google先生）

Google Chart API。パラメータ詳細は調べてません。URLエンコードすれば多分漢字が使える！
ブラウザなどで以下のURLにアクセスするとQRコード画像が返される。さすGoogle先生

myURL = "https://chart.apis.google.com/chart?cht=qr&chs=100x100&chl=TEST"

'エクセルシートでオートシェイプに読み込む例
Set myShape = ActiveSheet.Shapes.AddPicture( _
    Filename:=myURL, _
    LinkToFile:=False, _
    SaveWithDocument:=True, _
    Left:=Range("A2").Left, _
    Top:=Range("A2").Top, _
    Width:=-1, _
    Height:=-1)

'QRコードの周りの空白を非表示にする例。
'データ量によって画像密度が変わるので、実際に使うのは難しいかも。
With myShape
    .PictureFormat.CropTop = 10
    .PictureFormat.CropBottom = 10
    .PictureFormat.CropLeft = 10
    .PictureFormat.CropRight = 10
End With

以上。