reenoip
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата:| для сохранения множества одинаковых по размерам картинок из разных (по размерам же) объектов |
Именно.
Цитата:| с этим проблемы, т.к. имя файла жёстко привязано к имени документа |
Чепуха, всё там элементарно задаётся:
Код: Sub test()
Set expflt1 = ActiveDocument.ExportBitmap("C:\icons\exit\" & "120x120" & ".png", cdrPNG, cdrSelection, cdrRGBColorImage, 120, 120, 300, 300, cdrNormalAntiAliasing, False, True, True, False, cdrCompressionNone)
With expflt1
.Interlaced = True
.Transparency = 0
.Invertmask = False
.Color = 0
.Finish
End With
Set expflt2 = ActiveDocument.ExportBitmap("C:\icons\exit\" & "220x220" & ".png", cdrPNG, cdrSelection, cdrRGBColorImage, 220, 220, 300, 300, cdrNormalAntiAliasing, False, True, True, False, cdrCompressionNone)
With expflt2
.Interlaced = True
.Transparency = 0
.Invertmask = False
.Color = 0
.Finish
End With
Set expflt3 = ActiveDocument.ExportBitmap("C:\icons\exit\" & "320x320" & ".png", cdrPNG, cdrSelection, cdrRGBColorImage, 320, 320, 300, 300, cdrNormalAntiAliasing, False, True, True, False, cdrCompressionNone)
With expflt3
.Interlaced = True
.Transparency = 0
.Invertmask = False
.Color = 0
.Finish
End With
Set expflt4 = ActiveDocument.ExportBitmap("C:\icons\exit\" & "420x420" & ".png", cdrPNG, cdrSelection, cdrRGBColorImage, 420, 420, 300, 300, cdrNormalAntiAliasing, False, True, True, False, cdrCompressionNone)
With expflt4
.Interlaced = True
.Transparency = 0
.Invertmask = False
.Color = 0
.Finish
End With
End Sub |
В итоге нажатием всего одной кнопки запускается единственный макрос, который меньше чем за секунду в нужном месте рожает сразу 4 разных файла с нужными разрешениями и именами. Это куда быстрее, чем ручками жать Экспорт, потом задавать соответствующее разрешению имя, потом выставлять ширину/высоту выходного файла, и только потом сохранять файл. |
Варезник » CorelDRAW Graphics Suite
просто указал на известный недостаток версии Х7 в свете озвученного вами основного применения - всё-таки печати - это в первую очередь шрифт. 