我想用 barcode 控件生成条形码，但需要一个个地插入并设置LINKCELL 属性和调整大小， 不知是否可以批量处理？

第一个按钮是初始化【控件必须建成控件数组】
Private Sub Command1_Click()
BarCodeCtrl1(0).Style = 7          '标准code_128
BarCodeCtrl1(0).LineWeight = 1     '线宽
BarCodeCtrl1(0).Direction = 0      '方向
BarCodeCtrl1(0).Value = 1234567890 '条码数字
BarCodeCtrl1(0).Width = 2000       '条码宽度
BarCodeCtrl1(0).Height = 1000      '条码高度
BarCodeCtrl1(0).Top = 100
End Sub
，第二个按钮是复制第一个控件【只复制了10个】
Private Sub Command2_Click()
For i = 1 To 10
Load BarCodeCtrl1(i)            '生成控件
BarCodeCtrl1(i).Value = 98765000 + i   '条码数字
BarCodeCtrl1(i).Top = 1100 + 1000 * i '生成控件位置
BarCodeCtrl1(i).Visible = True       '显示新生成控件
Next i
End Sub

[此贴子已经被作者于2018-4-21 20:32编辑过]

谢谢大神关注回复！

本人对数组不是很了解。以下代码不是很明白，还请指教：

控件必须建成控件数组----具体如何操作？
BarCodeCtrl1(0)，BarCodeCtrl1(i) ----代表什么意思？
BarCodeCtrl1(i).Value = 98765000 + i   ----代表什么意思？ 我想每个值需与单元格数据连接

候复，感谢！！

[此贴子已经被作者于2018-4-22 10:45编辑过]

正常你放一个条码控件，名称为BarCodeCtrl1，这时他只是普通的一个控件，它的index是空的，你应用时就用他的名字以及属性。

如果你复制，再粘贴会提示你是否创建数组控件，如果是那么原来的控件名称不变，但是它的index就会变为0，新粘贴的名称与原控件相同，他的index为1，之后类似。
不过这时候，你在使用第一个控件时，名称就变为元原来BarCodeCtrl1(0),之后的依次类推。
当然，你放完了第一个控件后，直接把index写成0，那么他也就变为数组控件，引用名称就必须是BarCodeCtrl1(0)

BarCodeCtrl1(0)：是一个BarCodeCtrl1控件，它的index=0，不过他是排在第一个的
BarCodeCtrl1(i)：是一个BarCodeCtrl1控件，他们的index=1，2，3，...n。么一个不同的index相当于一个独立控件。
          通过index你能用循环变量控制每个空间的属性。
BarCodeCtrl1(i).Value = 98765000 + i：是条码控件的条码序号【98765000】是你要产生的条码序号，你可以改为任意数字，i控制你要连续产生的数量
         假如i=1 to 10，那么产生的条码为：98765001、98765002、98765004、...\098765009、98765010

见识了！

先试试，再研究下，感谢！

在研究一下谢谢

自已试了一下，这样的确可以做到批量插入。但位置只可以纵向或橫向增加，我有上千个条码要插入，想放在A4纸大小打印出来，一页满后，自动插入下一页并打印，不知怎样才能实现？ 求大神回复，谢谢。

==......