Добрый день.
Появилась необходимость в скрипте экспортировать выделенную область в формат EPS. Недолго думая, записал макрос. Возникла пара вопросов.
Вот сам макрос:
Собственно вопрос:
что вот это за параметры, за что отвечают и какие значения выставлять:
Заранее благодарен.
Появилась необходимость в скрипте экспортировать выделенную область в формат EPS. Недолго думая, записал макрос. Возникла пара вопросов.
Вот сам макрос:
Код:
Set expflt = ActiveDocument.ExportEx(fn, cdrEPS, cdrSelection, expopt)
With expflt
.Header = 1 ' FilterEPSLib.epsTIFFHeader
.TIFFHeaderType = 4 ' FilterEPSLib.epsTIFFColor8
.Resolution = 72
.Transparent = True
.TextAsCurves = True
.IncludeFonts = False
.ApplyICCProfile = False
.SendBitmapsAs = 0 ' FilterEPSLib.epsCMYK
.MaintainOPILinks = False
.AdjustFountainSteps = True
.FountainSteps = 256
.PSLevel = 2 ' FilterEPSLib.epsPSLevel2
.UserName = ""
.UseJPEGCompression = False
.JPEGCompression = 2
.PreserveOverprints = False
.OverprintBlack = True
.AutoSpread = False
.FixedWidth = False
.MaxSpread = 1.41732283464567E-04
.TextSpread = 5.10236220472441E-03
.BoundingBox = 0 ' FilterEPSLib.epsObjects
.UseBleed = False
.Bleed = 31750
.CropMarks = False
.UseFloatNumbers = False
.UseSeparationProfile = True
.ConvertSpot = True
.Finish
End With
что вот это за параметры, за что отвечают и какие значения выставлять:
Код:
.FixedWidth = False
.MaxSpread = 1.41732283464567E-04
.TextSpread = 5.10236220472441E-03