vba

Крошечное количество шагов Undo (всего 20) в редакторе VBA (7.1) сводит с ума. Нет места для экспериментов, даже простые изменения могут привести к горам повторного кодирования. Конечно, можно "просто" куда-то скопировать файл .gms и даже автоматизировать процесс, но это нелепо. Много гуглил и...

Привет. Я пытаюсь создать макрос, который создает «расширенный» градиент для объекта. Таким образом, прямоугольник с этим градиентом может быть помещен в объекты с разными пропорциями и выглядеть одинаково. Слева то, что мы можем сейчас получить, а справа то, что нам нужно: Код выглядит...

Версия 1.8, в макросе можно задать Bleed&Crop (в тексте макроса (true/false)), по умолчанию отключены. Также в тексте можно указать версию Pdf. Jpg - 300dpi RGB. По окончании работы макроса всплывает окно о завершении работы. Если вы пытаетесь записать Pdf в открытый файл, то всплывает окно о...

Рискую нарваться на проклятия в связи с трениями по поводу Васика. На яве было так: mSelection = mStory.insertionPoints.itemByRange(index0+2, indexEnd); И все работало. Тоже на VBA Set myInd = CreateObject("InDesign.Application") Set aD = myInd.ActiveDocument Set mLastFrame =...

Через запись макросом не пишется ничего. Хотя по правой кнопке "сохранить картинку" действия производились. Может кто знает эту темку? (Объект Shape или InlineShape) На code-форумах пока не нашел (за полдня).

Доброго времени, коллеги! Подсобите новичку, пожалуйста: по умолчанию CreateArtisticText создаёт текст 24п. Стоит задача создания текста с размером "значение переменной". В атрибутах толком не смог разобраться, надеюсь на вашу помощь. Спасибо!

Подскажите пожалуйста: на листе несколько элементов, как макросом выделить все элементы и узнать в пикселях размер всего выделенного?

Добрый день, уважаемые знатоки корелдроу. Хочу что бы после выполнения скрипта что бы закрывалось приложение, как это сделать Application.close нет в явном виде Просто close не работает

Dim crv As Curve Set crv = New Curve Dim i As Integer ce(0).ElementType = cdrElementStart ce(0).PositionX = 0# ce(0).PositionY = 0# For i = 1 To UBound(s) With ce(i) .ElementType = cdrElementLine .PositionY = s(i, 0) .PositionX =...

Подлинковывает пучок битмапов, описание работы ниже. Sub PlaceFromFile() Dim impopt As StructImportOptions Set impopt = CreateStructImportOptions With impopt .Mode = cdrImportFull .LinkBitmapExternally = True .MaintainLayers = True ' With...