这时,“控件工具箱”中的“退出设计模式”按钮变成了“设计模式”按钮,条形码控件也变成不可选择的状态,如果要修改条形码控件属性,可以再次单击“控件工具箱”中的“设计模式”按钮。
如果出现当A1单元格中条形码数字改变后,条形码控件变成空白,可能是A1单元格中的条形码数字不正确所致,例如,当使用默认的EAN-13条码时,如果其中包含字母或长度不为13位时,条形码控件就会变成空白。
5.打印条形码。
打印条形码会出现不能自动刷新的问题,即当更改A1单元格中的条形码数字后,条形码会进行相应更改,但打印预览还是上一次的条形码。这个问题可能是该控件的一个Bug,解决的方法有下面两种:
方法一:单击菜单“文件→页面设置→打印预览”,这时看到的就是更新后的条形码。
方法二:使用VBA代码。按Alt+F11,打开VBA编辑器,在“工程”窗口中双击该工作簿中的当前工作表名称,在右侧代码窗口中输入下列代码:
Private Sub Worksheet_Change(ByVal Target As Range)
For Each barcode In ActiveSheet.OLEObjects
If LCase(barcode.Name) Like "barcodectrl*" Then
With barcode
m = .Height
.Height = m - 1
.Height = m
End With
End If
Next
End Sub
上述代码利用了“Worksheet_Change”事件,当A1单元格中的条形码数字改变后,将工作表中所有条形码控件的高度改变后再还原,以实现打印时自动更新。