Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Неточная отрисовка пути через фигуры-препятствия - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Неточная отрисовка пути через фигуры-препятствия (Макросы/Sub)
Неточная отрисовка пути через фигуры-препятствия
SergVrn Дата: Вторник, 10.10.2017, 12:46 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте, специалисты по ВБА.
Помогите решить проблему.

У меня есть макрос отрисовки ломаной линии - между двумя кружками - через препятствия (по наименьшему пути).
Однако что-то этот макрос работает неточно.

Вот например в данном случае - он проводит путь - прямо сквозь фигуру препятствия (Овал).
А ведь в идеале - он должен нарисовать путь огибания данного овала.

Подскажите - как изменить макрос, чтобы он отрисовывал наикратчайший путь - поточнее ?
К сообщению приложен файл: 4372678.rar (26.4 Kb)
 
Ответить
СообщениеЗдравствуйте, специалисты по ВБА.
Помогите решить проблему.

У меня есть макрос отрисовки ломаной линии - между двумя кружками - через препятствия (по наименьшему пути).
Однако что-то этот макрос работает неточно.

Вот например в данном случае - он проводит путь - прямо сквозь фигуру препятствия (Овал).
А ведь в идеале - он должен нарисовать путь огибания данного овала.

Подскажите - как изменить макрос, чтобы он отрисовывал наикратчайший путь - поточнее ?
Автор - SergVrn
Дата добавления - 10.10.2017 в 12:46
sboy Дата: Вторник, 10.10.2017, 13:07 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
SergVrn, раскомментируйте последнюю строку в последнем макросе
[vba]
Код
Sub ClearLines()
    For Each v In ActiveSheet.Shapes
        If v.Type = msoLine Then v.Delete
    Next
    MinDistance = 0 'вот эту
End Sub
[/vba]

Яндекс: 410016850021169
 
Ответить
СообщениеSergVrn, раскомментируйте последнюю строку в последнем макросе
[vba]
Код
Sub ClearLines()
    For Each v In ActiveSheet.Shapes
        If v.Type = msoLine Then v.Delete
    Next
    MinDistance = 0 'вот эту
End Sub
[/vba]
Автор - sboy
Дата добавления - 10.10.2017 в 13:07
SergVrn Дата: Вторник, 10.10.2017, 14:20 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
sboy, теперь все заработало. Большое спасибо.
 
Ответить
Сообщениеsboy, теперь все заработало. Большое спасибо.
Автор - SergVrn
Дата добавления - 10.10.2017 в 14:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Неточная отрисовка пути через фигуры-препятствия (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!