Результаты поиска

Как через VBA на этот параметр можно было бы выйти, дабы его можно было бы считать, либо макросом установить свой... ЗЫ Nudge offset - это то на какое расстояние сместится выбранный объект если жать на клаве стрелочки:)

Ответ: Информация о документе или макете... Прикольный макрос! Особенно эти кнопочки... Иной раз закрадется какой-нить цвет RGB и фаиндом не убирается... И ищешь его потом по списку... А тут благодать! Спасибо! ЗЫ А нельзя ли кнопочку к тоталу подставить... Ну и возможность выбора...

Ответ: По поводу макросов УРА!!!! 'dans))' Это пожалуй стоит отметить!'beer1'

Ответ: Подготовка к печати Ну если вы даете макет верстальщику, то выпуски могут и не пригодится... Скажем он идет квадратом на пол полосы в какое-нить издание, а вокруг белое поле... Однак если он идет на всю полосу или тем более разворот, без полей, то выпуск необходим! Ибо тот же журнал...

Ответ: VBA Как выйти в 11 кореле на нужный принтер и его свойства? Всем спасибо! За что люблю кореловскую ветку, так это за то, что как правило ответы коротко и по существу. Обижаете...

В ХЗ это делается так: .SelectPrinter "Имя принтера". А в 11-м все перерыл - ничего путнего не нашел... Быть такого не может, чтобы из VBA можно было напечатать только на принтере что задан по умолчанию, однако все указывает на это (или я плохо ищу:))... Ну и если этот вопрос решаем, то как...

Ответ: Гадский былый фон. Помогите плз Поддерживаю! Копируете слой с бамбуком. В верхнем слое берете самый контрастный канал (синий/желтый либо красный/циан либо ваще L-канал) копируете его... Наводите в нем контраст так чтоб по максимуму бамбук был черным а фон (даже тот который не совсем...

Ответ: По поводу макросов А я вижу! Часто создаются темы из серии "как сделать то-то через VBA". Помимо этого макросы (если не простые) исправляются и дорабатываются, и имеют очень длинное описание... Поэтому в идеале надо б и субфорум и спецтему в нем с коротким описанием и ссылкой на...

Ответ: Почему на работу верст. требуются только женщины? А мя раз не приняли из-за того что я натурал...

Ответ: Макрос массовый поворот Все верно... Там просто одной строки не хватает (и как это я ее пропустил)... Sub povorot() On Error GoTo myEnd Dim A As Double, myShape As Shape A = CDbl(InputBox("Введите угол поворота")) 'Ну или если лень вбивать угол, можно подравнять под меченый...

Ответ: Макрос подгоняет выделеные объекты стык в стык Ну и что... Все равно я молодец...

Ответ: По поводу макросов Я по аське Льва как-то уламывал на счет субфорума... Как видите безуспешно... А вот на счет спецтемы думаю выгорит...

Sub povorot() On Error GoTo myEnd Dim A As Double, myShape As Shape A = CDbl(InputBox("Введите угол поворота")) 'Ну или если лень вбивать угол, можно подравнять под меченый объект _ для этого предыдущую строчку меняете на следующую 'A = mySh.RotationAngle For Each myShape In...

Да я в курсе про Step and Repeat. Однак время немаловажный фактор. Зачем мне множить объект в два приема если я могу это сделать в один? Да и к тому же в моем макросе можно это делать клонами, а также быстро (отключая прорисовку экрана). В общем юзайте! Да и по просьбе трудящихся все...

Представьте каталог из 60-ти полос сверстаный частями в нескольких кореловских документах... И у всех полос колонтитулы пляшут с номерами страниц... Чтобы подогнать их по положению сперва метим эталонный объект: Public mySh As Shape Sub Metim() If Documents.Count = 0 Then MsgBox "Нет...

Вперед декларируем новый тип: Public Type mySh X As Double Y As Double w As Double h As Double mySh As Shape number As Integer End Type По вертикали: Sub stykovka_vert() If Documents.Count = 0 Then MsgBox "Нет открытых документов"...

Представьте спуск с визитками (этикетками и т.д.)... причем разными (по содержанию, а не по параметрам)... И вот ты их с горем пополам собрал, а завтехотделом грит мол давай их малость потусуем. Волей неволей че-нить подобное напишешь: Sub Menyaem() Dim myShape1 As Shape, myShape2 As Shape...

На днях перешел работать в типографию... Достались спуски с визитками... Запарился их подгонять, тусовать и прочее... В общем набросал кое че: Меняет два выделеных объекта местами: Sub Menyaem() Dim myShape1 As Shape, myShape2 As Shape, X1 As Double, Y1 As Double, X2 As Double, Y2 As Double...

Ответ: ""растворение" "плохого" чёрного обтравленной картинки" в чёрном фоне Блин несколько раз перечитал... В шопе поковырялся - так ниче и не понял... Для этого экшн и спросил, дабы последовательность действий просечь... На счет белого и черного фона сам пришел к выводу что вполне можно...

Ответ: ""растворение" "плохого" чёрного обтравленной картинки" в чёрном фоне Ага, и экшн к нему:)