Макрос меняет два выделеных объекта местами

[dizzy]

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

Sub Menyaem() 
Dim myShape1 As Shape, myShape2 As Shape, X1 As Double, Y1 As Double, X2 As Double, Y2 As Double 
If Documents.Count = 0 Then 
    MsgBox "Нет открытых документов" 
    GoTo myEnd 
End If 
If ActiveSelection.Shapes.Count <> 2 Then 
    MsgBox "Выберите только два объекта" 
    GoTo myEnd 
End If 
Set myShape1 = ActiveSelection.Shapes(1) 
Set myShape2 = ActiveSelection.Shapes(2) 
myShape1.GetPosition X1, Y1 
myShape2.GetPosition X2, Y2 
myShape2.SetPosition X1, Y1 
myShape1.SetPosition X2, Y2 
myEnd: 
End Sub

 

[dizzy]

Ответ: Макрос меняет два выделеных объекта местами

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

Юзайте!