将二维码插入数据库

Question

我有一些代码可以根据填写的用户表单插入二维码。 qrcode 正确插入，但是，我无法将 qrcode 插入到 G 列的最后一个单元格中。在用户表单中输入的信息被输入到数据库中，所以我在思考并找到最后一个条目并使用 .offset，但我可以不让它工作。这是我的代码：

    Sub GenerateSingleQRCode()
    Dim QRPic As String, QRURL As String, QRData As String, ForeCol As String, BackCol As String
    Dim QRSize As Long, LastRow As Long, ItemRow As Long
    Dim targetRow As Integer
    Dim rngAnchor As Range
    Dim Sh As Shape
    
    With Worksheets("Database")
            
            
            On Error Resume Next
            .Shapes("QRItemPic").Delete
            On Error GoTo 0
            QRData = vbNewLine & "Part Number: " & txtPartNumber & vbNewLine & "Description: " & txtDescription & vbNewLine & "Supplier: " & txtSupplier & vbNewLine & "Product Line: " & partInfoProductLine  'Item Name (QR Data)
            QRSize = Worksheets("Setup").Range("C5").Value 'Large QR Size
            ForeCol = Right("00000" & Hex(Worksheets("Setup").Range("C4").Value), 6)
            ForeCol = Right(ForeCol, 2) & Mid(ForeCol, 3, 2) & Left(ForeCol, 2)
            BackCol = Right("00000" & Hex(Worksheets("Setup").Range("C3").Value), 6)
            BackCol = Right(BackCol, 2) & Mid(BackCol, 3, 2) & Left(BackCol, 2)
            QRURL = "https://api.qrserver.com/v1/create-qr-code/?data=" & QRData & "&size=" & QRSize & "x" & QRSize & _
            "&charset-source=UTF-8&charset-target-=UTF-8ecc=L&color=" & ForeCol & "&bgcolor=" & BackCol & _
            "&margin=0&qzone=1&format=png"
            With Worksheets("Database").Pictures.Insert(QRURL)
                
                
            End With
            End With
    End Sub

Answer 1

请使用下一种方式：

替换这部分代码：

        With Worksheets("Database").Pictures.Insert(QRURL)
                
                
        End With

用这个：

            Set wsDB = Worksheets("Database")
            Set rng = wsDB.Range("G" & wsDB.Range("F" & rows.count).End(xlUp).row)
            With .Pictures.Insert(QRURL)
                .top = rng.top + (rng.height - .height) / 2
                .left = rng.left + (rng.width - .width) / 2
            End With

此修改会将二维码放置在 G:G 的最后一个单元格中，但基于 F:F 列中的最后一个值。我的意思是，二维码将放置在 F:F 中最后一个值附近的单元格中...以 G:G 列的单元格为中心。