ID非公開

2020/9/27 3:09

11回答

VBA初心者です。

VBA初心者です。 エクセルシートのセルにあるQRコードにしたいURLを Google Chart API を使ってQRコードを作成して そのQRコードをエクセルシートのセルに貼り付け たいのですが可能でしょうか? http ://chart.apis.google.com/chart? cht=qr&chs=130×130&chl=QRコードを作成するURL がGoogle Chart APIのURLです。 何卒宜しくお願い致します。

Excel | Visual Basic28閲覧xmlns="http://www.w3.org/2000/svg">250

ベストアンサー

0

基本はこんなでしょうか。 Sub sample() Dim msg As String msg = "QRコードのメッセージ" ActiveSheet.Pictures.Insert "https://chart.apis.google.com/chart?cht=qr&chs=130x130&chl=" & msg End Sub Shapeとしてtpo=50,Left=100に表示する場合です。 Sub sample() Dim msg As String msg = "QRコードのメッセージ" Dim shp As Shape Set shp = ActiveSheet.Pictures.Insert("https://chart.apis.google.com/chart?cht=qr&chs=130x130&chl=" & msg).ShapeRange(1) shp.Top = 50 shp.Left = 100 End Sub

ThanksImg質問者からのお礼コメント

こちらのコードにより制御することが出来ました。 この度は、丁寧かつ的確なご指導頂きまして大変勉強になりました。 心より感謝を申し上げます。 本当にありがとうございました。

お礼日時:9/27 9:42