- 精华
- 活跃值
-
- 积分
- 7482
- 违规
-
- 印币
-
- 鲜花值
-
- 在线时间
- 小时
累计签到:656 天 连续签到:1 天
|
群组批量导图这功能经常用到,这里分享现成代码。复制粘贴就能用。一分钟就成大神。
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
|
|