Печать QR-кода в COM/ActiveX и в Excel

Option Explicit
 
Sub QR_Generate()
    Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA")  'позднее связывание
    Dim fileName As String: fileName = Environ("Temp") & "\QR.png" 'печать QR в файл (в пользовательский Temp)
    Dim convertToFile As String: convertToFile = Environ("Temp") & "\QR.tif"
    Dim QRcodeText As String: QRcodeText = "https://www.cyberforum.ru/blogs/829006/blog6514.html"
 
    Dim resultFileName As String
 
    'печать QR в файл (в пользовательский Temp) и вывести на лист Excel
    resultFileName = bVBA.QRcodePrint(QRcodeText, fileName)  'с аргументами по умолчанию
    ActiveSheet.Shapes.AddPicture resultFileName, False, True, 0, 0, -1, -1
 
    resultFileName = bVBA.QRcodePrint(QRcodeText, fileName, 4, 4, 255, 0, 0, 0, 1, 4) 'с нужными аргументами
    ActiveSheet.Shapes.AddPicture resultFileName, False, True, 200, 0, -1, -1
 
     'Конвертировать формат изображения
    bVBA.ConvertFormatImage fileName, convertToFile, 3  'формат (tiff), см. в описании
End Sub

Sub QR_Generate_Fast()
    ActiveSheet.Shapes.AddPicture CreateObject("BedvitCOM.VBA").QRcodePrint("Здесь инфо для печати", Environ("Temp") & "\QR.png"), False, True, 0, 0, -1, -1
End Sub