ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 5063|回复: 17

word中实现一键截图

[复制链接]

TA的精华主题

TA的得分主题

发表于 2014-8-21 09:00 | 显示全部楼层 |阅读模式
目前本人常用的截图工具有360浏览器的截图和QQ的截图,前提是必须打开二者中的一个。
而这里的方法是,只需启动并激活word文档,便能实现word文档内截图,功能很简单,用处不大,不过有些时候还是能用上的:
思路来自:屏幕截图软件--QQ截图新用法
http://blog.163.com/mwd_3330410/blog/static/1609525620089983716436/
本人将此功能挪移到了word中:
将文件CameraDll.dll放进windows文件夹,然后word中运行此代码:
Sub qq截图()
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyQ, wdKeyAlt), KeyCategory:=wdKeyCategoryMacro, Command:="qq截图"
    Shell "rundll32.exe CameraDll.dll CameraSubArea"
End Sub

即可实现按ALt+q快捷键实现截图功能,只要窗口处于激活状态,都可以使用
360截图20140821085700933.jpg
缺点:只能截图进行文档内的粘贴,无法保存到外面成为jpg文件。
哪位若知道有更完美的方法,可跟帖讨论
CameraDll.rar (34.73 KB, 下载次数: 37)

TA的精华主题

TA的得分主题

发表于 2014-8-21 09:29 | 显示全部楼层
哟iuyong   用用很好

TA的精华主题

TA的得分主题

发表于 2014-8-21 11:17 | 显示全部楼层
欣赏楼主的钻研精神。
我记得安装摄像头的时候出现CameraDll.dll文件的选择安装,没想到就是这。如果能找到摄像头的摄像功能,在word运行程序,打开摄像头,是否能自我照相、摄像。记得kongs版主曾做个摄像的,好像在我的2003中不成功。
好多安装软件的dll文件功能都是我们不了解的。有了shell命令,dll文件就不用注册了哈。
如果程序能隐藏运行,截取屏幕的选择范围更广,选择性更强。

TA的精华主题

TA的得分主题

发表于 2014-8-21 11:24 | 显示全部楼层
我刚看了这篇文章,QQ抓图功能的提取(dll使用示例) ,http://www.cnblogs.com/dongzhiqu ... /06/30/1994822.html,实际不用那么费事,直接使用就能调出摄像功能。
  1. Sub m()
  2. Shell "rundll32.exe CameraDll.dll CameraSubArea"
  3. End Sub
复制代码
至于另存为jpg文件,论坛好像有图片另存为的宏,楼主搜搜。

TA的精华主题

TA的得分主题

发表于 2014-8-21 13:06 | 显示全部楼层
word中调用摄像头程序,参考论坛的,我已经成功,vba的,能看到正在word中摄像。怎么保存图片,或保存视频。不知道怎么弄,需要的话,请回复,我会上传的。
吃饭去了,虽然累,很高兴

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-8-21 13:30 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 zhanglei1371 于 2014-8-21 14:31 编辑
banjinjiu 发表于 2014-8-21 13:06
word中调用摄像头程序,参考论坛的,我已经成功,vba的,能看到正在word中摄像。怎么保存图片,或保存视频。 ...

有意思,那就上传个附件和使用说明吧。
此外,我想实现这样一个功能【到现在还未能实现】:在word中选取一段内容,运行vba代码,出现的结果:被选中的图片直接转换为了图片。而且这个图片另存为jpg后是正常的白底图案,而非window图元文件【图元文件由于存在透明区域,故保存后成为一堆黑块】。不知你有没思路。
至于CameraDll.dll这个东西,必须是特定的版本,新版的"Camera.dll已经用不成了。原来设想能否实现调用qq的截图实现自动获取选定区域进行一键截图和保存,但苦于找不到任何资料。没能实现
另外,这个问题顺便帮忙解决下,对于你而言应该不是问题
http://www.rapidbbs.cn/thread-71875-1-1.html

TA的精华主题

TA的得分主题

发表于 2014-8-21 14:53 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2014-8-21 15:14 | 显示全部楼层
《VBA摄像头拍照程序》http://club.excelhome.net/thread-998491-1-1.html
我的是模仿的,窗体运行,模块1的
  1. Sub show()
  2.     UserForm1.show 0
  3. End Sub
复制代码
窗体能看到。暂时不知道如何保存图片、视频在文档或另存。
另外你的问题,我明天要开会,两天后再看能否帮你。

照相.rar

15.75 KB, 下载次数: 21

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-8-22 22:21 | 显示全部楼层
banjinjiu 发表于 2014-8-21 15:14
《VBA摄像头拍照程序》http://club.excelhome.net/thread-998491-1-1.html。
我的是模仿的,窗体运行,模块 ...

你自己将保存图片的代码给注释掉了,肯定不行。我修改了下,可以保存了。附件如下:

word API调用摄像头照相.rar

16.94 KB, 下载次数: 39

TA的精华主题

TA的得分主题

发表于 2014-8-22 23:41 | 显示全部楼层
zhanglei1371 发表于 2014-8-22 22:21
你自己将保存图片的代码给注释掉了,肯定不行。我修改了下,可以保存了。附件如下:

你没理解我的意思,
1、我是说图片能保存在文件中。
2、窗体能有个菜单,保存图片,保存视频。
3、随着鼠标点击,能控制摄像头录像起点,终点,既可以保存在文档,也可以保存在文件。
我的那个程序注释的是只能保存在文件中的,没达到上面第2、3条要求,所有注释了。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-1-16 20:07 , Processed in 0.029190 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表