Запрет пересечения объектов

@SergVrn3 · Регистрация: 01.12.2018

Студворк — интернет-сервис помощи студентам

Здравствуйте.
У меня есть макрос, в котором фигура - двигаясь по стрелочкам - не может пересечь линии.
Но вот другие фигуры - она вполне себе пересекает.

Ответьте если кто знает - как изменить макрос, чтобы фигура - не могла пересекать не только линии, но и другие фигуры тоже ?

@Burk · 17.04.2019, 14:41

SergVrn3, для начала уберите Sqr(2) и у вас останется DStep = NStep и погоняйте ещё.
Уменьшите размер кружка и Nstep сейчас 15, сделайте 10

@Burk · 18.04.2019, 05:56

SergVrn3, там была одна неточность, попробуйте сейчас. И удалите все предыдущие, чтобы не путаться. Новая жизнь!

@Burk · 18.04.2019, 05:59

файл забыл

@SergVrn3 · 18.04.2019, 20:02 **[ТС]**

Burk, спасибо.
Теперь все работает.

Остался вопрос - как запустить этот макрос на Excel2013 ?

@Burk · 19.04.2019, 02:34

SergVrn3, это я помню, найду 2013, посмотрю. А на 2016 пробовали? Или на 2013 на другом компе, где работает человек, знающий вба, чтобы установки были верными.

@Burk · 21.04.2019, 09:11

SergVrn3, а дело вот в чём, имена фигур в 2013 и выше на английском, а в 2008 на русском. Наверно можно где-то в настройках экселя изменить язык, но чтобы не рыться, исправьте в начале макроса Shift

Visual Basic
1
2
       If InStr(S, "Прямо") > 0 Or InStr(S, "Овал") > 0 Or _
          InStr(S, "Recta") > 0 Or InStr(S, "Oval") > 0 Then ' or other conditions

поэтому я всегда переименовываю стандартные имена на удобные мне. Всегда знаешь что искать.

Добавлено через 58 минут
а лучше даже так, вдруг вы поставите скругленный прямоугольник

Visual Basic
1
2
3
4
      S = UCase(Sh.Name)
      If S <> "КРУЖОК" Then
        If InStr(S, "ПРЯМО") > 0 Or InStr(S, "ОВАЛ") > 0 Or _
           InStr(S, "RECTA") > 0 Or InStr(S, "OVAL") > 0 Then ' or other conditions

а ещё лучше как я писал, переименовать все внутренние фигуры, например так Фиг1 Фиг2 и т.д, первые буквы одинаковые у всех (необязательно три и необязательно Фиг) и тогда проще можно записать
фигуры можно будет внедрять любые

Visual Basic
1
2
3
      S = UCase(Sh.Name)
      If S <> "КРУЖОК" Then  'эту строку тогда можно убрать и, соответствующий ей End If, тоже 
        If InStr(S, "ФИГ") > 0 Then ' or other conditions

@SergVrn3 · 25.04.2019, 18:43 **[ТС]**

Burk, понял, спасибо за уточнение.

Новые блоги и статьи Все статьи Все блоги /
Генератор паролей (вариант №1) Maks 29.10.2026 Реализация из решения ниже выполнена исключительно по моей инициативе. Самым главным критерием для меня было создание паролей, в котором отсутствуют знаки: \| 1 l I Обработка содержит следующие. . .	Установка ChatGPT (Codex) на Windows без использования Microsoft Store Fabien159 28.10.2026 Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .	Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .	После закрытия оутлука продолжает висеть процесс в диспетчере задач Maks 27.10.2026 С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .
Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .	Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	17.04.2019, 14:41
	SergVrn3, для начала уберите Sqr(2) и у вас останется DStep = NStep и погоняйте ещё. Уменьшите размер кружка и Nstep сейчас 15, сделайте 10 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	18.04.2019, 05:56
	SergVrn3, там была одна неточность, попробуйте сейчас. И удалите все предыдущие, чтобы не путаться. Новая жизнь! 0

@SergVrn3 0 / 0 / 0 Регистрация: 01.12.2018 Сообщений: 36
	18.04.2019, 20:02 [ТС]
	Burk, спасибо. Теперь все работает. Остался вопрос - как запустить этот макрос на Excel2013 ? 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	19.04.2019, 02:34
	SergVrn3, это я помню, найду 2013, посмотрю. А на 2016 пробовали? Или на 2013 на другом компе, где работает человек, знающий вба, чтобы установки были верными. 0

@SergVrn3 0 / 0 / 0 Регистрация: 01.12.2018 Сообщений: 36
	25.04.2019, 18:43 [ТС]
	Burk, понял, спасибо за уточнение. 0

Запрет пересечения объектов

Решение