|
Tumanov
Russia
1198 Posts |
 Posted - 06/13/2005 : 19:37:06
|
quote:
Допустим вот так присвоили имя ActiveWindow.Selection.Item(1).Name = "Data", а теперь необходимо обратиться к его параметрам, допустим высоте по его имени а не Shapes(12)
ActiveWindow.Selection.Item(1).Name = "Data"
Debug.Print ActivePage.Shapes("Data").Name
Debug.Print ActivePage.Shapes("Data").Cells("Height")
quote:
На первой странице находится шейп текст с датой. Как сделать чтобы этот шейп появился на всех страницах да ещё и в опеделённом месте(на всех страницах в одном и том же)
Наверное лучше всего всем страницам назначить одну фоновую и шейп поместить туда. Он будет отображаться на всех страницах.
quote:
На страницу добавляется рисунок и необходимо автоматом уменьшить его до определённого размера и поставить в определённое место.
В ячейки PinX, PinY писать позицию, в Width, Height - размер.
Если еще и событие добавления поймать нужно, то писать обработчик для события Document_ShapeAdded. Только там нужно различать тип шейпа, а то он все новые шейпы в одно место загонит.
|
 |
|
All Forums
Не могу разобраться с параметрами шейпов и не толь
