Макрос-рисование сетки

[rzrwolf]

Передо мной стоит такая задача: построить сетку карты определенной проекции на листе Excel...

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

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

Помогите, пожалуйста, с алгоритмом прорисовки линий - пока думаю сделать все через цикл - и в зависимости от кол-ва линий повторять его нужное количество раз...

МОжет есть способ попроще?

[EducatedFool]

построить сетку карты определенной проекции

более понятной постановки задачи я ещё не встречал

Помогите, пожалуйста, с алгоритмом прорисовки линий

Нарисовать-то линию не проблема - это делается одной командой.
Для этого нужно знать координаты начальной и конечной точки отрезка линии (4 значения).

А, может, Вы собираетесь рисовать параллели не прямыми линиями, а кривыми (как на карте мира)?

Помогите, пожалуйста, с алгоритмом прорисовки линий

Какой там алгоритм - несколько строк кода...
Например, так:

Sub Макрос1()
    количество_линий = 8
    расстояние_между_линиями = 33: длинаX = 300: началоX = 150: началоY = 250
    For i = 1 To количество_линий
        координатаY = началоY + (i - 1) * расстояние_между_линиями
        ActiveSheet.Shapes.AddLine началоX, координатаY, началоX + длинаX, координатаY
    Next
End Sub

Проще уже некуда...

[rzrwolf]

Проекция Меркатора у меня, потому все линии будут прямые..

Я так и хотел сделать, вы подтвердили мою мысль, спасибо.

А точку с подписью как нибудь можно поставить? Макросы знаю очень плохо - команды похожей на точку не нашел...

[EducatedFool]

А точку с подписью как нибудь можно поставить?

Например, так:

Sub Макрос1()
    количество_линий = 8: диаметр_точки = 4
    расстояние_между_линиями = 40: длинаX = 300: началоX = 150: началоY = 250
    For i = 1 To количество_линий
        координатаY = началоY + (i - 1) * расстояние_между_линиями
        ActiveSheet.Shapes.AddLine началоX, координатаY, началоX + длинаX, координатаY
        
        ActiveSheet.Shapes.AddShape(msoShapeOval, началоX + i * длинаX / количество_линий - диаметр_точки / 2, _
                                    координатаY - диаметр_точки / 2, диаметр_точки, диаметр_точки).Fill.ForeColor.SchemeColor = 8

        ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, началоX + 5 + i * длинаX / количество_линий, _
                                      координатаY + 5, 100, 12).TextFrame.Characters.Text = "это точка на линии " & i
    Next
End Sub