Макрос метим и ставим

[dizzy]

Представьте каталог из 60-ти полос сверстаный частями в нескольких кореловских документах... И у всех полос колонтитулы пляшут с номерами страниц... Чтобы подогнать их по положению сперва метим эталонный объект:

Public mySh As Shape
Sub Metim() 
If Documents.Count = 0 Then 
    MsgBox "Нет открытых документов" 
    GoTo myEnd 
End If 
If ActiveSelection.Shapes.Count <> 1 Then 
    MsgBox "Выберите только один объект" 
    GoTo myEnd 
End If 
Set mySh = ActiveShape 
myEnd: 
End Sub

А потом подгоняем все остальные под меченый:

Sub Stavim() 
OnError Goto myEnd
ActiveDocument.ReferencePoint = cdrTopLeft 
ActiveShape.SetPosition mySh.PositionX, mySh.PositionY 
myEnd:
End Sub

Данный макрос работает даже если меченый объект находится в другом открытом документе... Кстати можно и с тем же успехом скажем подгонять размеры:

ActiveShape.SetSize mySh.SizeWidth, mySh.SizeHeight

Или более подробно, со скосами, углами поворота и т.п.:

Dim X0 As Double, Y0 As Double, X1 As Double, Y1 As Double, X2 As Double, Y2 As Double
mySh.GetMatrix X0, Y0, X1, Y1, X2, Y2
ActiveShape.SetMatrix X0, Y0, X1, Y1, X2, Y2

В общем юзайте если надо!

 

[VATS]

Ответ: Макрос метим и ставим

Имхо, очень многие были бы Вам весьма благодарны, если бы Вы выкладывали макросы в удобоваримом виде. Я, да и большенство, макросы писать не умеют.
Предложенные Вами макросы очень облегчат жизнь, но как это всё
заставить работать?

 

[xplight]

Ответ: Макрос метим и ставим

VATS , я про тоже..
2dizzy- мона сразу готовый файл ложить?

 

[PressMAN]

Ответ: Макрос метим и ставим

Точно, читаю подфорум, зашел в 4 топика и везде код макроса Надо бы все же готовые файла выкладывать!

 

[dizzy]

Ответ: Макрос метим и ставим

Доработал свой наборчик шэйпинг... Терь при вызове открывается симпатичная менюшка (наподобие как у адобов, маленькая такая, компактная), где есть кнопка метить и кнопка ставить...

Юзайте!

 

[qsedftghk]

Ответ: Макрос метим и ставим

Представьте каталог из 60-ти полос сверстаный частями в нескольких кореловских документах... И у всех полос колонтитулы пляшут с номерами страниц...

Это ж надо так верстать! Руки бы этому верстальщику, да по самое не балуйся...