|
|
本DLL，应用于EXCEL，通过VB实现Camera设备图片的截取，并自动压缩为JPG格式，节约磁盘空间。
适用于，公司员工或商品照片的批量截取。
内置了多种灵活的处理方式，方便从EXCEL直接VBA引用。
具体参数设置，请看附件中的相关文档。
可应用于Excel 2000后的各个版本。
注：很久以前发布过一个简单版本的，现在应很多朋友的要求小小的升级了一下， 谢谢使用。
操作说明：
1.启动程序，画面如下：
注：如果Camera设备（摄像机，照相机，视频，摄像头……）没插好，上面将会是一片空白，请关闭本窗口，安装好设备后再运行。
2 .右击列表框(右边那个大空白的区域)，会弹好如下，选择待摄像人员的对话框。
注：本程序只提取单一的数据，换话句说，读到列表框的东西，将会自动进行过滤，避免重复数据的出现。
再注：所选择名字将会出现在待摄影列表，请务必选择正确。跨表读取请先激活该工作表，然后再运行本命令。这里要说的不是那个错别字，跨表读取，就是要选切换到该工作表，然后再右击列表框运行里面的添加待摄像列表。
3.读入数据后，效果如下图：
4.点击拍照，然后在视频区域会出现一个黑框，移动黑框，选择所需要的图片，然后点击裁剪，图片将以列表框中第一个数据为文件名，保存在工作簿所有文件夹下的Pic文件夹中。并且删除列表框中的第一个数据。
注：批量操作中，录入者，只要在导入待摄像人员后，点击-拍照-选择区域-裁剪，这样的重复动作来完成所需操作。
再注：图片质量下水平滚动条可用于调节生成图片的质量。可选范围50-100，值起小质量越差所生成的文件也就越小，90的质量对于100的质量，体积就差好几倍。所有生成图像尺寸为：156*188，对于任何证件的应用应该是足够了。
三注：将会替换同名的文件。
没安置任何后门，不倒置怀二胎，请安心放心舒心，最后谢谢使用。
Camera_Photo.rar
(386.2 KB, 下载次数: 1842)
请先运行压缩包里的 请先运行本文件注册组件.bat 批处理文件，否则，应该会出现 找不到工程或库 。
出现如下情况，步骤：
１:把丢失:GetPhoto前的勾去掉，然后确定
２:点击 工具－引用－浏览－（找到目录文件下的yvhf.dll）－打开－保存，再使用就可以了。
[ 本帖最后由 yvhf 于 2010-9-3 16:36 编辑 ] |
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2010-4-8 13:20
楼主
