Tạo mã QRCode từ VBA Excel

B1: tìm các trang web có chia sẽ hình ảnh mã QR Code
Ví dụ https://quickchart.io/qr?text=XIN CHAO&size=150

B2: Code

Sub TaoMaQRCodeVBA()
    Dim noidungtao As String
    Dim QRCodeURL As String
    Dim ws As Worksheet
    Dim img As Picture

    ' Lấy dữ liệu từ ô mà bạn muốn chuyển thành mã QR (ví dụ: ô A1)
    noidungtao = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    
    ' Sử dụng API quickchart để tạo mã QR
    QRCodeURL = "https://quickchart.io/qr?text=" & noidungtao & "&size=150"
    
    ' Xóa mã QR cũ (nếu có)
    On Error Resume Next
    ThisWorkbook.Sheets("Sheet1").Pictures("QRCode").Delete
    On Error GoTo 0

    ' Thêm hình ảnh mã QR vào sheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set img = ws.Pictures.Insert(QRCodeURL)
    
    ' Đặt tên và vị trí cho hình ảnh
    With img
        .Name = "QRCode"
        .Top = ws.Range("B1").Top ' Vị trí mã QR (ô B1)
        .Left = ws.Range("B1").Left
        .Width = 150
        .Height = 150
    End With
End Sub