Перемещение картинки

[kuzmich]

Пишу следующий код:

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 GoTo myDisplayError
Err.Description = "Вставка картинок"
Set myImage = myPage.Place("c:\georgiy2\Astronaut.tif")


Exit Sub
myDisplayError:
MsgBox Err.Description
End Sub

Картинка ставится в полосу в левый верхний угол. А мне нужно чтобы она стала в строго определенное место.
По идее в VB есть функция Move(0,0,0,0), тут это не канает. А как сделать так чтобы картинки из БД становились каждая на свое место?

Заранее благодарен.

 

[Oleg Butrin]

Ответ: Перемещение картинки

А что значит - на свое место? Где это место определено?

 

[kuzmich]

Ответ: Перемещение картинки

А что значит - на свое место? Где это место определено?

Допустим: Если 0 отсчета левый верхний угол, то
Первая становится на 10 мм ниже и 10 мм правее
Вторая на 70 мм ниже и 10 мм правее
Третья на 130 мм ниже и 10 мм правее

В базе данных такой шаг я задам при выполнении цикла. И так в 5 колонок. По рекламной сетке.

 

[Oleg Butrin]

Ответ: Перемещение картинки

Все прекрасно делает функция Move. Вводишь спецпеременные, которые будут обозначать координаты следующей картинки. В начале, как указано, myX = 10, myY = 10. myPicture.Move(myX, myY). myY +=60. Когда заполнишь столбец: myY = 10, myX += 60. Заполнишь страницу - все по новой.

 

[kuzmich]

Ответ: Перемещение картинки

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

 

[vbatushev]

Ответ: Перемещение картинки

Совет от меня:
Не цепляйся за 0/0, потому что черт знает, а сместит нулевую отметку сам или еще кто (правда, можно обнулять ее).
Отпляшись от page.bounds. Я так сделал в скрипте на заказ с размещением анонсов телепрограммы в нужных местах – ляля

 

[kuzmich]

Ответ: Перемещение картинки

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

А можно точный кусок кода!!!!!!!!!
Спасибо!

 

[vbatushev]

Ответ: Перемещение картинки

VBScript:

' Первые три строки понятны, я думаю
Set myID = CreateObject("InDesign.Application.CS")
Set myDoc = myID.ActiveDocument
Set myPage = myDoc.Pages.Item(1)

' Помещаем иллюстрацию
Set myImage = myPage.Place("D:\InScripts.jpg")

' Определяем массив с координатами для иллюстрации
myPlace = Array(10, 10)

' Перемещаем контейнер, содержащий иллюстрацию.
' Иначе иллюстрация сдвинется внутри контейнера
myImage.Parent.Move myPlace

JavaScript:

with (app) {
	var myFile = new File('D:\InScripts.pdf');
	var myImage = activeDocument.pages.item(0).place(myFile);
	myImage.parent.move([10,10]);
}

 

[kuzmich]

Ответ: Перемещение картинки

У всех не работало, а вот этот код картинку вставляет:

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 myDocument = myInDesign.ActiveDocument
Set myPage = myDocument.Pages.Item(1)
Rem Create a new text frame and assign it to the variable "myTextFrame"
Set myTextFrame = myDocument.Spreads.Item(1).TextFrames.Add
Rem Specify the size and shape of the text frame.
myTextFrame.GeometricBounds = Array("20p0", "20p0", "40p0", "40p0")
Rem Enter text.
Set myImage = myTextFrame.Place("c:\kuzmich\Palmia.tif")
End Sub

Вся лабуда заключалась в том, что нужно было вначале создать фрейм, сдвинуть его на свое место, а только потом во фрейм вставить картинку.

 

[vbatushev]

Ответ: Перемещение картинки

У всех не работало, а вот этот код картинку вставляет

Хотите сказать, что я опубликовал нерабочий код?
Всё работает. Просто обновления нужно ставить, тов. kuzmich

 

[kuzmich]

Ответ: Перемещение картинки

Я, конечно, в данной системе не очень крут. VB я знаю прилично. ID для меня пока тайна, которую я пытаюсь в свободное от службы время освоить.

Кстати, вот такой простой код тоже работает прекрасно:
set myImage = myPage.Place (myFile, Array("20mm", "20mm"), , False, False, False, False)

Виталий, без обид. Я очень благодарен Вам за помощь. Думаю, что я еще сумею надоесть, но загадывать не будем.
С уважением, Георгий.

 

[vbatushev]

Ответ: Перемещение картинки

Хм, да не было обид. Просто до обновления 3.01 метод Move() не работал как надо. Вот и все.