标签打印时自动填充产品二维码图片

jmhjgsxdq

求助说明：产品型号对应的二维码图片放在产品图片文件夹中，点击标签打印，自动填充sheet1标签模板二维码图片位置。

约定的童话

用VBA可以实现，论坛类似帖子很多

jmhjgsxdq

约定的童话 发表于 2020-1-26 17:26
用VBA可以实现，论坛类似帖子很多

论坛里找了一下，还是有些不同

3190496160

Private Sub CommandButton1_Click()
Dim i%
If [f3] > [f4] Then MsgBox "起始必须小于结束！": [f3] = "": [f4] = "": Exit Sub
     Dim intr As Integer
     intr = MsgBox("认真检查起始序号和结束序号,确定要打印吗?", vbYesNo + vbQuestion, "提示")
     If intr = vbYes Then
     For i = [f3] To [f4]
       With Sheets("Sheet2")
            [Sheet1!c5] = .Cells(i + 6, 2)
            [Sheet1!f7] = .Cells(i + 6, 3)
            [Sheet1!c7] = .Cells(i + 6, 4)
            [Sheet1!f5] = .Cells(i + 6, 5)
            [Sheet1!c9] = .Cells(i + 6, 6) & "元"
            [Sheet1!c10] = .Cells(i + 6, 7)
            [Sheet1!c11] = .Cells(i + 6, 8)
            fs1 = ThisWorkbook.Path & "\产品图片\" & .Cells(i + 6, 2) & ".jpg"
            If Dir(fs1) <> "" Then
                Sheet1.Select
                   Sheet1.Range("f9:f11").Select
                   ActiveSheet.Pictures.Insert(fs1).Select
               With Selection.ShapeRange
                 Selection.ShapeRange.LockAspectRatio = msoFalse
                    .Top = Sheet1.Range("f9:f11").Top + 1
                    .Left = Sheet1.Range("f9:f11").Left + 1
                    .Width = Sheet1.Range("f9:f11").Width
                    .Height = Sheet1.Range("f9:f11").Height
                End With
            End If
        End With
        Sheet1.PrintOut
        For Each s In Sheet1.Pictures
            s.Delete
        Next s
    Next i
     End If
End Sub

3190496160

标签打印.zip (343.17 KB, 下载次数: 16)

2020-1-26 21:43 上传

点击文件名下载附件

jmhjgsxdq

3190496160 发表于 2020-1-26 21:43

感谢帮助，可以使用了，再次感谢！