Недавний контент kuzmich

Ответ: Выкройка картонной кепки Здравствуйте madjmek? А можно и в мой адрес отправить вырубку на кепку из картона. Заранее благодарен

Ответ: Перемещение картинки Я, конечно, в данной системе не очень крут. VB я знаю прилично. ID для меня пока тайна, которую я пытаюсь в свободное от службы время освоить. Кстати, вот такой простой код тоже работает прекрасно: set myImage = myPage.Place (myFile, Array("20mm", "20mm"), ...

Ответ: Вставка текста из базы данных Спасибо. Работает. Георгий

Есть некий текст в БД Access. Через RecordSet запускаю цикл. Курсор шарашится по RecordSet'у и вставляет вначале картинку, а потом подпись: Вот такой код под ID_1.5 работает как часики: Dim myInDesign As InDesign.Application Set myInDesign = CreateObject("InDesign.Application.CS") Set...

Ответ: Перемещение картинки У всех не работало, а вот этот код картинку вставляет: Private Sub Command2_Click() Dim myInDesign As InDesign.Application Set myInDesign = CreateObject("InDesign.Application.CS") Rem Create a new publication and assign it to the variable "myDocument" Set...

Ответ: Перемещение картинки Что- у меня ни хрена не получилось. Дублирую код: Set myImage = myPage.Place("c:\georgiy2\Astronaut.tif") ' Здесь вставилась картинка myPicture.Move(myX, myY) 'VB выделяет последнюю запись красным. Он такого не знает. 'Попробовал другой код: myPicture.Move...

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

Ответ: Перемещение картинки Допустим: Если 0 отсчета левый верхний угол, то Первая становится на 10 мм ниже и 10 мм правее Вторая на 70 мм ниже и 10 мм правее Третья на 130 мм ниже и 10 мм правее В базе данных такой шаг я задам при выполнении цикла. И так в 5 колонок. По рекламной сетке.

Пишу следующий код: Dim myInDesign As InDesign.Application Dim myDocument As InDesign.Document Dim myPage As InDesign.Page Set myInDesign = CreateObject("InDesign.Application.1.5") Set myDocument = myInDesign.ActiveDocument Set myPage = myDocument.Pages.Item(1) On Error...