纯代码生成 EAN-13 条码

lsdongjh · 发表于 2021-3-20 20:37

lilyhcn1 发表于 2021-3-20 08:21
以研究为目的，还算说的过去。
以使用为目的就无聊了。

目的就是搞清楚各种编码的标准，生成机制其实是简单和次要的

dongdonggege · 发表于 2021-4-1 12:32

老师，如果在ppt中插入，代码如何修改？谢谢。

lsdongjh · 发表于 2021-4-1 13:20

dongdonggege 发表于 2021-4-1 12:32
老师，如果在ppt中插入，代码如何修改？谢谢。

类模块中改一个变量的类型
Private ActSht As Worksheet 改为 Private ActSht As Slide

Set ActSht = ActiveSheet 改为 Set ActSht = ActivePresentation.SlideShowWindow.View.Slide

dongdonggege · 发表于 2021-4-1 15:00

lsdongjh 发表于 2021-4-1 13:20
类模块中改一个变量的类型
Private ActSht As Worksheet 改为 Private ActSht As Slide

谢谢老师，二维码不是很流行的吗？可以钻研。

lsdongjh · 发表于 2021-4-1 15:11

dongdonggege 发表于 2021-4-1 15:00
谢谢老师，二维码不是很流行的吗？可以钻研。

正在研究中，主流是QR，问题不大，但其他的一些没有找到资料

dongdonggege · 发表于 2021-4-1 15:25

做不出来，请老师看看。

lsdongjh · 发表于 2021-4-1 15:36

条形码.rar (57.19 KB, 下载次数: 57)

dongdonggege · 发表于 2021-4-1 16:18

lsdongjh 发表于 2021-4-1 15:36

类模块DrawNum函数，ppt2003版是TextFrame，2007版以上是TextFrame2，还有那个条形码跑到窗口外面了。谢谢老师了。

lsdongjh · 发表于 2021-4-1 16:19

dongdonggege 发表于 2021-4-1 16:18
类模块DrawNum函数，ppt2003版是TextFrame，2007版以上是TextFrame2，还有那个条形码跑到窗口外面了。谢 ...

这只是一个试验品

，你慢慢研究

nicleyuan · 发表于 2022-1-11 16:59

楼主，能否分享一下源码，我要大批量的生成code 128..

谢谢！

		自动登录	找回密码
密码			免费注册

[原创] 纯代码生成 EAN-13 条码