版块 › CorelDRAW专区 › CDR VBA GMS 源码分享 群组批量导图

zhgx998 发表于 2019-6-1 21:46:44

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

群组批量导图这功能经常用到，这里分享现成代码。复制粘贴就能用。一分钟就成大神。

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

彩广告 发表于 2019-6-1 22:21:43

想问下，导出的东西到哪了？ :lol

绿草地 发表于 2019-6-1 22:56:51

不错，收集起来，做参考！

494525777 发表于 2019-6-2 10:17:24

彩广告 发表于 2019-6-1 22:21
想问下，导出的东西到哪了？

在C盘啊   你仔细看看

zhgx998 发表于 2019-6-2 13:15:29

彩广告 发表于 2019-6-1 22:21
想问下，导出的东西到哪了？

path = "c:\" & groupname & ".png"路径在这儿。 可以做个界面，把路径输进去，或者直接浏览定位。

nn028 发表于 2022-5-7 09:06:11

怎么这种导图多个选择导一个图自动就群组了，用自带慢慢点就不会群组

petergh 发表于 2022-5-7 16:56:31

看不太懂，先留着有需要再研究。谢谢分享！

查看完整版本: CDR VBA GMS 源码分享 群组批量导图