以下是引用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
'----------------------
有些东西你需要自己参悟,多修改属性,手动也能的.看代码更简洁一些.
'* 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
'----------------------
有些东西你需要自己参悟,多修改属性,手动也能的.看代码更简洁一些.
天道酬勤
版权声明：本文为pangdola原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接和本声明。