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

Вход

Регистрация

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

 

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

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

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

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

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

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

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

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

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

Автор - SergVrn
Дата добавления - 10.10.2017 в 12:46
sboy Дата: Вторник, 10.10.2017, 13:07 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1174
Репутация: 294 ±
Замечаний: 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]
 
Ответить
Сообщение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
Группа: Пользователи
Ранг: Новичок
Сообщений: 39
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
sboy, теперь все заработало. Большое спасибо.
 
Ответить
Сообщениеsboy, теперь все заработало. Большое спасибо.

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

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