개요

2019-05-27 추가

실제 예

절차 상세

Sub InsertQrcode()
    Dim i As Long, v As String
    On Error Resume Next
        For i = 1 To 9999
            v = Cells(i, "A").Value
            If v = "" Then Exit Sub 'カラになったら抜ける
            If Left(v, 4) = "http" Then 'httpで始まるurlが対象
                With Cells(i, "A")
                    .RowHeight = 100
                    .VerticalAlignment = xlTop
                End With
                Set obj = ActiveSheet.Pictures.Insert("http://chart.apis.google.com/chart?cht=qr&chs=80x80&chl=" + v)
                With obj
                    .ScaleHeight 1, msoTrue
                    .ScaleWidth 1, msoTrue
                    .Top = Cells(i, "A").Top + 16
                    .Left = Cells(i, "A").Left + 2
                End With
            End If
        Next i
    On Error GoTo 0
End Sub