【转载】EXCEL中条码问题：条形码能插入，但只有一种类型，数字不能改，修改属性后也不显示

以下是引用linlifei在2008-1-17 19:30:11的发言：

2.在看《非常接触》碰到的一个问题，P160：条形码

条形码能插入，但只有一种类型，数字不能改，修改属性后也不显示。

请参考:

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2008-1-20 11:10:35
' 仅测试于 System: Windows NT Word: 11.0 Language: 2052
'№ 0310^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub Example()
    Dim myBarCodeCtrl1 As BARCODELib.BarCodeCtrl
    'Code-39 条形码符号
    ' 可以表示出英文数字和字母的条形码符号,从 FA(Factory Automation) 开始,被广泛的应用在工业上。
    ' 由于 Code-39 条形码符号的长度可变，所以对数据的字节数并没有限制。
    Dim myValue As String
    myValue = InputBox(prompt:=" 指定所产生的条形码符号的值 ", Title:="ExcelHome", Default:="*123456 CODE-39*")
    Set myBarCodeCtrl1 = ActiveDocument.BarCodeCtrl1
    With myBarCodeCtrl1
        .Style = 6    '即 Code-39
        .Value = myValue
        .Refresh
    End With
End Sub
'----------------------

有些东西你需要自己参悟,多修改属性,手动也能的.看代码更简洁一些.

天道酬勤