Поворот и перемещение фигуры

Дата: Пятница, 06.04.2018, 21:16 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 41

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

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

Excel 2013

Добрый вечер.
Имеется вопрос.

На листе - имеется четыре кнопки в виде синих стрелок (прямо,влево,вправо,назад) - и одна маленькая красная стрелка.

Кнопка "прямо" ПЕРЕМЕЩАЕТ красную стрелку - прямо на одну ячейку, кнопка "влево" - ПОВОРАЧИВАЕТ ее влево, кнопка "вправо" - ПОВОРАЧИВАЕТ ее вправо, а кнопка "назад"- ПЕРЕМЕЩАЕТ красную стрелку на одну ячейку назад.
Как заставить кнопки - так влиять на красную стрелку ?

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

Mikael

Дата: Пятница, 06.04.2018, 22:34 | Сообщение № 2

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

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

Сообщений: 80

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

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

Excel 2010

Werwolfik, добрый вечер.
Так хотели?
[vba]

Код

Sub MoveShape()
    On Error Resume Next
    Dim sh As Shape: Set sh = ActiveSheet.Shapes("Down Arrow 5")
    Select Case Right(CStr(Application.Caller), 1)
        Case "1"
            sh.Rotation = sh.Rotation + 90
        Case "2"
            sh.Rotation = sh.Rotation - 90
        Case "3"
            sh.Top = sh.TopLeftCell.Offset(1).Top
        Case "4"
            sh.Top = sh.TopLeftCell.Offset(-1).Top
        Case Else
            Exit Sub
    End Select
End Sub

[/vba]

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

Дата: Пятница, 06.04.2018, 22:49 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 41

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

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

Excel 2013

Mikael, это немного не то.
У вас макрос для кнопок Влево и Вправо - работает как нужно.
А вот кнопки Вперед и Назад - не двигают стрелку вперед и назад. Они ее просто перемещают вверх или вниз - по листу.

А по идее стрелка должна двигаться Вперед- то есть в том направлении куда она в настоящий момент повернута.
И Назад - то есть пятясь назад (не меняя направления) от того направления куда она в настоящий момент повернута.

Дата: Пятница, 06.04.2018, 22:59 | Сообщение № 4

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

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

Сообщений: 947

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

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

Excel 2010

Werwolfik, здравствуйте.
А в чем сложность переделать код под себя.
Осталась геометрия.Угол наклона получить можно sh.Rotation.
Приращение координат есть, рассчитывайте новую точку.

Дата: Пятница, 06.04.2018, 23:19 | Сообщение № 5

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

Ранг: Новичок

Сообщений: 41

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

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

Excel 2013

doober,
Куда именно в макросе добавлять sh.Rotation, чтобы получить нужное направление для движения стрелки Вперед ?
То есть сейчас код движения по кнопке "Вперед" - выглядит так:
[vba]

Код

sh.Top = sh.TopLeftCell.Offset(1).Top

[/vba]
Но это движение вверх, а не вперед.
Я понимаю, что вам это кажется чистой геометрией - как и мне, а вот как это технически в коде ВБА реализовать ?

Дата: Суббота, 07.04.2018, 00:11 | Сообщение № 6

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

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

Сообщений: 947

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

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

Excel 2010

Все в Ваших руках.
Все данные есть[vba]

Код

Sub MoveShape()
    On Error Resume Next
    Dim sh As Shape: Set sh = ActiveSheet.Shapes("Down Arrow 5")
    Dim angle As Double, X As Double, Y As Double, angleGR As Double
    angle = sh.Rotation
    angleGR = 0
    If angle <> 0 Then angleGR = WorksheetFunction.Pi * angle / 180
    Y = sh.TopLeftCell.Top
    X = sh.TopLeftCell.Left
     Dlinna = IIf(sh.DrawingObject.Width > sh.DrawingObject.Height, sh.DrawingObject.Width, sh.DrawingObject.Height)

    Select Case Right(CStr(Application.Caller), 1)
        Case "1"
        'Расчет
        Case "2"
          'Расчет
        Case "3"
           'Расчет
        Case "4"
         'Расчет

        Case Else
            Exit Sub
    End Select
End Sub

[/vba]

Дата: Суббота, 07.04.2018, 00:30 | Сообщение № 7

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

Ранг: Новичок

Сообщений: 41

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

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

Excel 2013

doober, не работает.
Все то же самое - стрелка поворачивается, но перемещаться может только вверх и вниз.

Сообщение отредактировал Werwolfik - Суббота, 07.04.2018, 00:34

Mikael

Дата: Суббота, 07.04.2018, 00:33 | Сообщение № 8

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

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

Сообщений: 80

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

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

Excel 2010

Werwolfik, Рад что Вам понравилось.

Цитата Werwolfik, 06.04.2018 в 22:49, в сообщении № 3 ()

в том направлении куда она в настоящий момент повернута

Нужно точнее описывать задачу. Я понял по-другому.
На самом деле все просто, doober, Вам все расписал в #6

Дата: Суббота, 07.04.2018, 00:36 | Сообщение № 9

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

Ранг: Новичок

Сообщений: 41

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

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

Excel 2013

Mikael, нет в 6 сообщении - все точно также - стрелка вертится нормально.
Но перемещаться она может - только Вверх или Вниз по листу.

Дата: Суббота, 07.04.2018, 00:55 | Сообщение № 10

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

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

Сообщений: 947

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

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

Excel 2010

Далее геометрия.
Есть длинна отрезка, есть координаты точки, угол наклона
В зависимости от направления( Case "1", Case "2", Case "3", Case "4") считайте координату точки и угол поворота отрезка

Дата: Суббота, 07.04.2018, 01:12 | Сообщение № 11

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

Ранг: Новичок

Сообщений: 41

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

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

Excel 2013

doober, сейчас код движения по кнопке "Вперед" - выглядит так:
[vba]

Код

sh.Top = sh.TopLeftCell.Offset(1).Top

[/vba]

Угол наклона - это переменная angle
Длина - это переменная Dlinna
Координаты - это переменные X, Y

Куда, с точки зрения геометрии - их добавить в эту конкретную строчку кода, чтобы стрелка двинулась прямо ?

Дата: Суббота, 07.04.2018, 01:35 | Сообщение № 12

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

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

Сообщений: 947

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

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

Excel 2010

Приращения рассчитывайте в зависимости от нажатых кнопкок
sh.Top = Y ± Приращение1
sh.Left=X± Приращение2
sh.Rotation = angle ± Приращение3
Если это не понятно. читайте учебник геометрии.

Дата: Суббота, 07.04.2018, 02:29 | Сообщение № 13

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

Ранг: Новичок

Сообщений: 41

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

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

Excel 2013

doober, что такое "приращение" ?
У меня имеются только угол наклона, длина, координаты.

И я не совсем понимаю как здесь в принципе используются координаты.
Двигаться-то нужно строго НА ОДНУ ЯЧЕЙКУ, а ячейка может быть любой длины и ширины и отличаться от соседней ячейки.

Вы какие координаты имеете ввиду ?
Координаты чего - стрелки, ячейки ?

Сообщение отредактировал Werwolfik - Суббота, 07.04.2018, 02:33