编历修改工作表中的控件属性(更新条形码)

=EMBED("BARCODE.BarCodeCtrl.1","")

宏：

Sub 按钮86_Click()

Dim i As Integer
For i = 1 To 40
Sheet1.Shapes("BarCodeCtrl" & i).Height = 1
Sheet1.Shapes("BarCodeCtrl" & i).Height = 35.25
Next

End Sub