能否在这代码内加上先删除J1的图片再执行下面的代码

w8899

Private Sub CommandButton1_Click()

    Call QRMain(TextBox1.Value)
    Call CreateBitmapQRCode(RGB(0, 0, 0), RGB(255, 255, 255))
    Call QRCodeToClipboard
    Image1.Picture = QRCodeToPicture

    ActiveSheet.Range("J1").Select  '选中粘贴位置
        ActiveSheet.Paste  '粘贴剪切板内的图片
        Application.CutCopyMode = False

        With Selection       '设置图片：位置和大小
            .ShapeRange.Height = 99
            .ShapeRange.Width = 99
            End With
    Dim b2() As Byte
    Dim s As String
    Dim i As Long, m As Long
    '    For i = 0 To cmb1.UBound
    '        If cmb1(i).ListIndex < 0 Then Exit Sub
    '    Next i
    s = TextBox1.Text
    m = Len(s)
    i = m * 3 + 64
    ReDim b2(i)
    s = StrConv(TextBox1.Text, vbFromUnicode)
    b2 = s
    m = LenB(s)
    SavePicture Image1.Picture, ThisWorkbook.Path & "\二维码\" & Format(Now, "MMDDHHMM") & ".jpg"

    Unload UserForm9  '//关闭窗体
End Sub

liulang0808

建议楼主上传附件吧
j1里的图片是什么情况，没有附件不了解，不过楼主可以自行遍历图片，根据图片位置判断是否在j1单元格内

w8899

liulang0808 发表于 2018-9-24 08:29
建议楼主上传附件吧
j1里的图片是什么情况，没有附件不了解，不过楼主可以自行遍历图片，根据图片位置判断 ...

谢谢，已经解决了