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

zhgx998

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

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

彩广告

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

绿草地

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

494525777

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

在C盘啊   你仔细看看

zhgx998

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

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

nn028

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

petergh

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