探秘“条形码”控件

守柔

在EXCEL\工具\控件工具箱\其它控件中,选择microsoft barcode control 9.0,进入条形码控件.以下是我对此控件的摸索,以求抛砖引玉: autoload:true/false,自动加载与否，默认情况下为自动加载，即所出现的一个"4901234567894条形码 backcolor\forecolor:背景色与前景色，可调 direction:最关键选项，通过它能实现“刷新”，有四个选项，0~3，其作用分别是将对象的数码放置底部（0），右侧（1），顶部（2），左侧（3） enabled:true/flash，visible:true/flash:这两个选项意义不大。 height\left\top\width:调整对象的位置长宽等属性。 heightweight:条形码中最粗细条的磅数，0~7磅。 locked\printlbject\placement:对应右击对象时出现的设置控件格式，主要是锁定对象、打印（预览）对象、和对象随单元格移动的选择。 shadow:对象的阴影设置，true/falsh style:11种条形码的风格(样式），选项为0~10，每一个数字代表一种风格。需要注意的是每种风格的自动加载项是条形码数字（也有英文字母）有规定，根据试验，如果范例为风格2，默认情况下为13位数，其中最多的样式可写入近34位数（含字母） value:自定义条形码的数码内容，但必须满足不同风格样式的文字要求。 visible\0~3，四种变化，并非适用于所有样式。

Kevin

不错!支持!

守柔

关于Microsoft Barcode Control 9.0控件中的补充： 样式（style)中的十一个样式：0-upc-A;1-UPC-E;2-EAN-13;3-EAN-8;4-CASE-CODE;5-CODABAR(NW-7);6-CODE-39;7-CODE-128;8-U.S POSTNET;9-U.S POSTAL.FIM;10-JP POST. 线条宽度0-细；1-特别细；2-淡；3-普通；4-中等；5-粗；6-浓；7-特别浓。 因E文不懂，只好点到为止。 希望各位有兴趣的，继续。

killer

转贴文章一篇，原文发表于《电脑商情报》，文中虽然介绍是在Word2000中制作条形码的方法，但也可以用于Excel中。 用Word 2000制作条形码 作者：周进 现在条形码的应用范围非常广泛，在各种商品外包装上或者出版物封面中都可以看到它的踪影。但令人奇怪的是，在微软公司大名鼎鼎的文字处理软件Word 2000中，微软公司却将制作条形码这项非常有用的功能隐藏在一个不易被人发觉的地方，导致许多朋友都以为Word 2000并不具有制作条形码的功能。所以就会看到有用户利用Word 2000的绘图功能来制作条形码的例子。 一、Word 2000中条形码制作功能的藏身之处 在Word 2000常用工具栏中和菜单中，你找不到制作条形码的按钮或菜单，要想制作条形码，用户必须按照如下的操作方法进行操作。 1、选择“视图”菜单下“工具栏”子菜单中的“控件工具箱”命令，在屏幕中显示“控件工具箱”工具栏。如图1所示。 2、在“控件工具箱”工具栏上单击“其它控件”按钮，在弹出的“其它控件”下拉列表中向下拖动滚动条，找到一个名为“Microsoft Barcode Control 9.0”的控件，用鼠标单击此控件。如图2所示。 3、这时在Word 2000编辑区中就会出现一个系统默认的条形码。如图3所示。 二、编辑条形码 在Word 2000中，条形码控件(“Microsoft Barcode Control 9.0”)的功能相当强大，用户通过设置可以制作出完全符合用户实际使用需要的各种类型的条形码控。下面就向大家介绍具体的操作方法。 1．选择条形码类型 在我们制作条形码时，首先必须确定条形码类型。在Word 2000中系统提供了11种条形码类型供用户选择。它们分别是：UPC-A、UPC-E、JAN-13、JAN-8、Casecode、NW-7、Code-39、Code-128、US Postnet、US Postal FIM和JP Post。Word 2000系统缺省显示的是JAN-13条形码类型。 在Word 2000中选择条形类型的方法是： (1)在条形码图案上单击鼠标右键，从弹出的快捷菜单中选择“Microsoft Barcode Control 9.0对象”子菜单中的“属性”命令，打开“Microsoft Barcode Control 9.0 属性”对话框。如图4所示。 (2)单击“样式”下拉箭头，在样式下拉列表中显示出Word 2000所支持的全部条形码类型名称。用户可以从中选择一种合适的条形码类型。例如目前在杂志、书籍中普遍使用的条形码类型为JAN-13。JAN-13 条形码一般是由 2 位数的国码、 5 位数的货物码、 5 位数的货物项目码，再加上校验位所构成的。 2、指定条形码编号 当条形码类型确定后，接下来就需要指定所产生的条形码符号的编号。指定条形码编号的方法是： (1)选中需要为其指定编号的条形码，单击“其它控件”工具栏上的“属性”按钮，打开条形码“属性”对话框。如图5所示。 (2)在属性名称栏中选中“Value”属性，然后在“Value”名称右侧输入条形码编号。 (3)单击“关闭”按钮，将“属性”对话框关闭。 经过上述操作后，细心的朋友可能注意到了，在Word 编辑区中显示的条形码还是老样子，并没有发生变化。不要着急，这是因为你目前还处于控件设计模式当中，这时只要单击“其它控件”工具栏上的“退出设计模式”按钮(这是一个退出\进入设计模式的切换按钮，处于设计模式时，该按钮为按下状态，退出设计模式后，该按钮为弹起状态)，怎么样，编辑区中的条形码就刷新为正确的式样了。如图6所示。 二、高级使用技巧 在Word 2000中用户除了可以选择条形码的类型、设置条形码编号外，还可以指定是否要验证数据的有效性，并且还能够非常方便地设置条形码符号的颜色、条形码的显示方向、条形码符号的的线条宽度等。 1、验证数据的有效性 为了防止因为用户输入错误数据，从而导致产生无效的条形码符号，用户可以在条形码控件属性中指定对数据进行有效性验证。具体设置方法是：在条形码图案上单击鼠标右键，从弹出的快捷菜单中选择“Microsoft Barcode Control 9.0对象”子菜单中的“属性”命令，打开“Microsoft Barcode Control 9.0 属性”对话框。单击“有效性验证”下拉列表，选择“1-无效时修复”或“2-无效时空白”选项。 如果用户选择“1-无效时修复”，当用户输入的数据内不含校验位的话，那么系统会自动将正确的校验位值加入数据内；如果用户输入的校验位数据无效的话，系统则会以正确值替换用户输入的错误内容。 如果用户选择“2-无效时空白”选项，那么只有在数据的位数正确，而且校验位的值也相等的情况下才会产生条形码符号。否则就显示空白。 2、设置条形码符号的线条宽度、显示方向 在“Microsoft Barcode Control 9.0 属性”对话框，单击“线条宽度”下拉列表，可以从八种线条宽度中进行选择，此外还可以在“方向”下拉列表中将条形码的显示方向设置为“0度”、“90度”、“180度”或“270度”中的一种。 3、设置条形码颜色 用户可以很方便地设置条形码符号的前景、背景颜色。设置方法是：在条形码图案上单击鼠标右键，从弹出的快捷菜单中选择“Microsoft Barcode Control 9.0对象”子菜单中的“属性”命令，打开“Microsoft Barcode Control 9.0 属性”对话框。单击”颜色“选项卡”，在“属性”列表框中选择“BackColor(背景)”或者“ForeColor(前景)”，然后从右侧的“调色板”下拉列表中选择合适的背景或前景颜色。 需要注意的是，当用户对条形码属性进行修改后，必须退出控件设计模式才能看到修改后的条形码显示效果。如图7所示条形码是将线条宽度设置为“7-特别浓”、“方向”为“90度”、背景颜色设置为黄色后所得到的显示效果。 用户除了可以通过“Microsoft Barcode Control 9.0 属性”对话框设置条形码外，还可以通过图5所示的条形码“属性”对话框直接设置条形码项目。当你详细掌握条形码控件各种属性的具体涵义后，你将发现使用这种方法设置条形码会更加简单方便。 在下面的列表中给出了属性对话框中各种属性的简单说明。 属性 说明 Style 指定条形码符号的样式。 SubStyle 指定更详细的样式。 Validation 指定是否要验证数据的有效性。 LineWeight 指定条形码符号的线条粗细。 Direction 指定条形码控件的显示方向。 ShowData 指定是否要显示数据数值。 ForeColor 指定条形码符号的前景颜色。 BackColor 指定条形码符号的背景色。 Value 指定所产生的条形码符号的值。

zmwwh

不知如何在EXCEL中批量打印条形码，各位有何高见？

Rowen

建议: 1. 工作表某区域 "Range(MyBarCodeArea)" 放置一条码控件, 调整到适当大小, 设置好相关属性 2. 循环读取各条码值, 并将之赋值给条码控件的 VALUE 3. 每赋值一项, 复制条码区域 "Range(MyBarCodeArea)" 的 "照片", 并帖到 SHEET2 中 , 这样做的好处是只要一个条码控件. With sheet2
.Activate ' 对条码区域进行摄影,并帖到SHEET2中
Sheet1.Range(MyBarCodeArea).CopyPicture Appearance:=xlScreen, Format:=xlPicture
.Range("A1").Select
.Paste
.... end with

zmwwh

我试试，谢谢!

taller

哪位能上传或者发个控件的文件给我,我的机器上没有 microsoft barcode control 9.0

taller

以下是引用xiaog在2004-3-19 23:50:00的发言：

应该是自带的，不行就重装一下。

拷贝一个注册一下不行吗?

taller

多谢chenjun版主