条形码复制

yanhj

在EXCEL表页做了条形码,想复制到另页面,请高手指教.

yanhj

由于条形码有自己的属性，从一页复制到另一页面，属性值没有跟着变化，从而复制不成功。本人用VBA生成法做，取得成功。
J4单元格输入数据
第一页的条形码生成程序
Private Sub CommandButton1_Click()
With Worksheets(1).OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1")
    .Left = 370
    .Top = 5
    .Width = 180
    .Height = 60
    .Object.Style = 7
    .Object.ShowData = 1
    .LinkedCell = "j4"
End With
End Sub
第二页条形码生成程序

Private Sub CommandButton2_Click()
Sheets(2).Activate
Sheets(2).Cells(4, 10) = Sheets(1).Cells(4, 10)
Shapes("BarCodeCtrl1").Select   '选择条形码
Selection.Delete      ‘删除前次生成的条形码
With Worksheets(2).OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1")
    .Left = 370
    .Top = 5
    .Width = 180
    .Height = 60
    .Object.Style = 7
    .Object.ShowData = 1
     .LinkedCell = "j4"
End With
End Sub
自己的问题自己解决。