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 разных файла с нужными разрешениями и именами. Это куда быстрее, чем ручками жать Экспорт, потом задавать соответствующее разрешению имя, потом выставлять ширину/высоту выходного файла, и только потом сохранять файл. |