|
|
@@ -1,3 +1,8 @@
|
|
|
+' 指定导出分辨率，其他质量油画按F1查看文档
|
|
|
+Dim opt As New StructExportOptions
|
|
|
+opt.ResolutionX = 72
|
|
|
+opt.ResolutionY = 72
|
|
|
+
|
|
|
' 实用小脚本: 选择遍历多个物件对象，按序号导出 JPEG
|
|
|
ActiveDocument.Unit = cdrCentimeter
|
|
|
Dim d As Document
|
|
|
@@ -10,9 +15,11 @@ For Each sh In shs
|
|
|
ActiveDocument.ClearSelection
|
|
|
sh.CreateSelection
|
|
|
MsgBox "选择物件尺寸: " & sh.SizeWidth & "x" & sh.SizeHeight
|
|
|
+
|
|
|
Size = Str(Int(sh.SizeWidth + 0.5)) + "x" + Str(Int(sh.SizeHeight + 0.5))
|
|
|
- f = "R:\" + Str(cnt) + "_尺寸" + Size + ".jpg"
|
|
|
+ f = "R:\www\" + Str(cnt) + "_尺寸" + Size + ".jpg"
|
|
|
+
|
|
|
' 可以把获得的尺寸取整数，写到文件名中，或者把尺寸信息写到图片中
|
|
|
- d.Export f, cdrJPEG, cdrSelection
|
|
|
+ d.Export f, cdrJPEG, cdrSelection, opt
|
|
|
cnt = cnt + 1
|
|
|
Next sh
|
