Перемещение автофигур - по циклу на один шаг

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перемещение автофигур - по циклу на один шаг (Макросы/Sub)

SergVrn

Дата: Понедельник, 07.08.2017, 23:16 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 87

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый вечер, специалисты по программированию.
Помогите решить непростую задачу.

На листе находится несколько пронумерованных автофигур, расставленных друг относительно друга - в виде овала.

Как макросом, по одному клику на кнопку - переместить автофигуры - по нарисованному циклу на один шаг ?

(При первом клике - автофигура 1 - сдвинется влево на место автофигуры 8. А освободившееся место автофигуры 1 - будет занято автофигурой 2 и т.д. по всему кругу.)

К сообщению приложен файл: 456456.xls (62.0 Kb)

Ответить

AndreTM

Дата: Вторник, 08.08.2017, 00:36 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 500 ±

Замечаний: 0% ±

2003 & 2010

Если "по нарисованному стрелками циклу - то практически никак (только если конкретно в данном виде, восемь стрелок, и вы их не меняете (не удаляете/не добавляете)).
Или подразумевается, что двигать надо "по циклу написанных на фигурах чисел, в порядке возрастания" (и стрелки там просто "для красоты и понимания")? И числа на фигурах будут написаны, именно "текстом в автофигуре"?

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Ответить

SergVrn

Дата: Вторник, 08.08.2017, 00:42 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 87

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата AndreTM, 08.08.2017 в 00:36, в сообщении № 2 ()

трелки там просто "для красоты и понимания"

Стрелки - просто для красоты и понимания.

Ответить

SergVrn

Дата: Вторник, 08.08.2017, 00:43 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 87

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата AndreTM, 08.08.2017 в 00:36, в сообщении № 2 ()

числа на фигурах будут написаны, именно "текстом в автофигуре"

Числа на фигурах - для понимания того - какая фигура - куда должна переместится..

Ответить

InExSu

Дата: Вторник, 08.08.2017, 01:21 | Сообщение № 5

Группа: Друзья

Ранг: Ветеран

Сообщений: 648

Репутация: 96 ±

Замечаний: 0% ±

Excel 2010, 365

[vba]

Код

Option Base 1
Sub Цирк_InExSu()

Dim масс_Sha(8, 2)

Dim sh As Worksheet, sha As Shape
Set sh = ThisWorkbook.ActiveSheet

'Собираю координаты
For i = 1 To 8
масс_Sha(i, 1) = sh.Shapes("Rectangle " & i).Left
масс_Sha(i, 2) = sh.Shapes("Rectangle " & i).Top
Next i

For i = 8 To 2 Step -1
sh.Shapes("Rectangle " & i).Left = масс_Sha(i - 1, 1)
sh.Shapes("Rectangle " & i).Top = масс_Sha(i - 1, 2)
Next i
sh.Shapes("Rectangle 1").Left = масс_Sha(8, 1)
sh.Shapes("Rectangle 1").Top = масс_Sha(8, 2)

End Sub

[/vba]