如何在VBA中添加来自OLEobjects的二维码作为图像

Sub AddQRCode()
    Dim obj As OLEObject
    Set obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, DisplayAsIcon:=False, Left:=10, Top:=10, Width:=200, Height:=200)
    
    ' 生成二维码图像
    Dim qrCodeText As String
    qrCodeText = "https://www.example.com" ' 替换为二维码包含的文本
    
    Dim qrCodeImage As Object
    Set qrCodeImage = CreateObject("Forms.Image.1")
    qrCodeImage.PictureSizeMode = 3 ' 按比例拉伸
    qrCodeImage.Picture = GenerateQRCode(qrCodeText) ' 生成二维码图像
    
    ' 将二维码图像赋值给OLE对象
    obj.Object = qrCodeImage
End Sub

Function GenerateQRCode(text As String) As IPictureDisp
    ' 调用第三方库生成二维码图像，这里以QRCodeEncoder为例
    ' 请自行下载并将其引入到VBA项目中
    Dim encoder As New QRCodeEncoder
    encoder.Encode text
    Set GenerateQRCode = encoder.Image
End Function