查看: 800|回复: 1
Word可以作为二维码设计的好帮手
阅读权限30
在线时间 小时
& & & & & & & &
好长时间不到论坛逛，这几天研究了一下如何在word中画二维码，发现Word可以作为二维码设计的好帮手。
录制了一个屏幕动画（），展示一下，抛砖引玉，有兴趣的朋友可以探讨一下。
阅读权限30
在线时间 小时
还存在很多改进的位置，先弄个简单的效果。
20:52 上传
点击文件名下载附件
787.52 KB, 下载次数: 68
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 726|回复: 10
求能在一个单元格输入文字，在另外一个单元格自动生成二维码
阅读权限20
在线时间 小时
在A3单元格输入文字，在B3单元格生成二维码
20:44 上传
点击文件名下载附件
6.56 KB, 下载次数: 54
阅读权限95
在线时间 小时
(32.36 KB, 下载次数: 101)
21:06 上传
点击文件名下载附件
阅读权限50
在线时间 小时
本帖最后由 fxl 于
22:01 编辑
Public Function zm(s As String)
Dim dom As Object
Set dom = VBA.CreateObject(&htmlfile&)
Set owindow = dom.parentWindow
dom.write &&Script&&/Script&&
zm = owindow.encodeURI(&/share/qrcode?w=150&h=150&url=& & s)
Set dom = Nothing
Set owindow = Nothing
End Function
Sub LoadPic(ByVal URL As String, ByVal rng As Range) 'URL为图片网络地址，rng为图片放置单元格位置
With CreateObject(&new:{1C3BCE-B9EA-00AA006B1A69}&) '调用剪切板
& & .settext &&table&&img src=&&& & URL & &&&&& '设置文本
& & .putinclipboard '放入剪切板
& & ActiveSheet.Paste Destination:=rng '设置放置位置
End With
Application.CutCopyMode = False '释放剪切板
End Sub
Sub 二维码()
Dim s As String
s = zm([A3]) '转码
LoadPic s, [B3] '加载图片
End Sub复制代码
方法比较新颖
阅读权限50
在线时间 小时
我去啊。动不动就要审核。改了代码一个后缀名又来一次。我服。。。
利用百度网盘的分享接口来生成二维码。
(16.91 KB, 下载次数: 101)
22:06 上传
点击文件名下载附件
阅读权限20
在线时间 小时
太厉害了，朋友！！！！
阅读权限20
在线时间 小时
我去啊。动不动就要审核。改了代码一个后缀名又来一次。我服。。。
利用百度网盘的分享接口来生成二维码。 ...
大神，还有一个问题，用你这个软件，假如我那个文档有一个图片，用你这个，原文档的图片也会随之消失，求大神解决，谢谢
阅读权限50
在线时间 小时
& & & & & & & &
ActiveSheet.DrawingObjects.Delete
这句是删除所有的图片，然后再生成二维码。主要避免你重复点击会生成重复的二维码图片。你可以遍历删除，排除掉自己的图片。你可替换为下面的代码：
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
& & If shp.TopLeftCell.Address = &$B$3& Then
& && &&&shp.Delete
& & End If
Next shp复制代码
阅读权限20
在线时间 小时
& & & & & & & &
ActiveSheet.DrawingObjects.Delete
这句是删除所有的图片，然后再生成二维码。主要避免你重复点击会生成 ...
为什么，你这个二维码，不能生成带&#&字符的文本
阅读权限50
在线时间 小时
为什么，你这个二维码，不能生成带&#&字符的文本
嗯，接口本身不支持
阅读权限20
在线时间 小时
& & & & & & & &
ActiveSheet.DrawingObjects.Delete
这句是删除所有的图片，然后再生成二维码。主要避免你重复点击会生成 ...
帮我看一下，出现错误，谢谢
01:16 上传
点击文件名下载附件
20.13 KB, 下载次数: 8
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师excel表格中怎么制作个性二维码?
不用PS制作个性二维码。
1、打开表格新建文件。调整表格的行距和列宽，正方形更加容易对比。
2、插入二维码，也可以直接从文件夹拖进去。
3、根据二维码的规律，用油漆桶给格子填充颜色（快捷键F4），需要耐心完成。
4、完成后可以用打印预览检查二维码是否能扫出来。
5、根据以上方法也可以插入喜欢的图片、CION、系列图标等。& &用Excel里的图片格式进行排版。
顶一下(0) 踩一下(0)
热门标签：}