QQ登录

只需一步,快速开始

查看: 12947|回复: 8
收起左侧

CDR VBA GMS 源码分享 群组批量导图

[复制链接]
累计签到:656 天
连续签到:1 天
发表于 2019-6-1 21:46:44 | 显示全部楼层 |阅读模式
群组批量导图这功能经常用到,这里分享现成代码。复制粘贴就能用。一分钟就成大神。

Sub exportGroups()
Dim groups As ShapeRange
Dim group As Shape
Dim groupname As String, path As String
Set groups = ActiveSelectionRange

For i = 1 To groups.Count
groupname = groups.Shapes(i).Name
groups.Shapes(i).CreateSelection
path = "c:\" & groupname & ".png"
Set expflt = ActiveDocument.ExportBitmap(path, CDRPNG, cdrSelection, cdrRGBColorImage, 0, 0, 300, 300, cdrNormalAntiAliasing, False, True, True, False, cdrCompressionNone)
With expflt
.interlaced = True
.Transparency = 0
.invertmask = False
.Color = 0
.Finish
End With
Next i

华印网相关搜索

累计签到:635 天
连续签到:2 天
发表于 2019-6-1 22:21:43 | 显示全部楼层
想问下,导出的东西到哪了? CDR VBA GMS 源码分享  群组批量导图{tag}(1)
回复 支持 反对 送花

使用道具 举报

累计签到:1149 天
连续签到:41 天
发表于 2019-6-1 22:56:51 来自手机 | 显示全部楼层
不错,收集起来,做参考!
回复 支持 反对 送花

使用道具 举报

累计签到:515 天
连续签到:1 天
发表于 2019-6-2 10:17:24 | 显示全部楼层
彩广告 发表于 2019-6-1 22:21
想问下,导出的东西到哪了?

在C盘啊   你仔细看看
回复 支持 反对 送花

使用道具 举报

累计签到:656 天
连续签到:1 天
 楼主| 发表于 2019-6-2 13:15:29 | 显示全部楼层
彩广告 发表于 2019-6-1 22:21
想问下,导出的东西到哪了?

path = "c:\" & groupname & ".png"  路径在这儿。 可以做个界面,把路径输进去,或者直接浏览定位。
回复 支持 反对 送花

使用道具 举报

累计签到:855 天
连续签到:10 天
发表于 2022-5-7 09:06:11 | 显示全部楼层
怎么这种导图多个选择导一个图自动就群组了,用自带慢慢点就不会群组
回复 支持 反对 送花

使用道具 举报

累计签到:168 天
连续签到:3 天
发表于 2022-5-7 16:56:31 | 显示全部楼层
看不太懂,先留着有需要再研究。谢谢分享!
回复 支持 反对 送花

使用道具 举报

累计签到:1 天
连续签到:1 天
发表于 2024-10-21 16:55:14 | 显示全部楼层
大佬,请问一个三角形和一个矩形,它两不挨着一起,怎么一次导出两张图片呀?只求一个思路
回复 支持 反对 送花

使用道具 举报

累计签到:37 天
连续签到:1 天
发表于 2024-10-21 21:03:20 | 显示全部楼层
大佬 代码怎么设置保存用户选择的路径?
回复 支持 反对 送花

使用道具 举报

您需要登录后才可以回帖 登录 | 注册帐号

本版积分规则

关闭

注意注意注意:必看上一条 /1 下一条

华印网 - 华印社区
Share More 周一至周日:09:00 - 21:00
华印网旗下的设计印刷制作类专业技术站点
请勿发布违反国家法律法规的内容,会员观点不代表本站立场
企鹅群号:119572101

华印网汇集印前印后技术、PDF拼版、防伪包装、数码印刷、合版印刷、图文设计、平面设计、数码印刷及CTP等最新印刷技术,提供软件汉化、插件汉化、cdr插件、ai插件、ps插件、pdf插件、印刷流程、ctp输出、印刷软件、印能捷、esko、CorelDRAW、InDesign、Illustrator、CTP、CDR以及PDF软件下载的综合性印刷论坛社区!

Powered by Discuz! X3.4 © 2001-2021,Tencent Cloud.

站点地图|小黑屋|手机版|Archiver|华印 ( 粤ICP备19020152号-1 )

GMT+8, 2024-12-21 01:42 , Processed in 0.070945 second(s), 35 queries , Gzip On, Yac On.

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