Административная Карта Области

[valerij]

Всем, Доброго Дня.
Нужна подсказка профи...
Есть карта х -области.
Нужно, нажатием на красные точки, либо на разноцветные области и запускались макросы.
Если вставить целиком карту, то наверное, не получится макросы = областям, а если в Photoshopе, порежу карту по областям > 20 шт и вставлю, каждый, отдельный рисунок и назначу им макросы, вопрос, как собрать эти > 20 рисунков в "единую" карту, схожею на одну, во вложении?

[IgorGO]

не надо ничего резать и сшивать, поверх красных кругов нарисовать свои и назначить им макросы.
Удачи!

[EducatedFool]

Вот, сделал пример (по совету IgorGO нарисовал несколько красных точек)


Щелкни на рисунке для загрузки примера

[valerij]

ОООООООО!!!!!!!!!!!
Спасибо, пошел пробовать...

[valerij]

Сообщение от EducatedFool

Вот, сделал пример

Игорь, а как и где прописывается город?
Для меня это совсем все новое.
Вставка - Рисунок - Автофигуры - Овал, так?

[IgorGO]

Игорь за меня сделал, я за него отвечу - так.
Только потом овалу вместо имени Овал 1 дай имя Артемовск например.

[valerij]

Сообщение от IgorGO

вместо имени Овал 1 дай имя Артемовск например.

Делал, так, Игорь смотри скрин, как дальше?

[EducatedFool]

Игорь смотри скрин, как дальше?

Всё намного проще (берешь за основу мой пример):
1) снимаешь защиту с листа
2) правой кнопкой на любом существующем кружке - выбираешь КОПИРОВАТЬ
3) в любом месте листа - правой кнопкой - выбираешь ВСТАВИТЬ
4) перетаскиваешь вставленный кружок на новое место
5) повторяешь, начиная с пункта 2 (сколько там тебе надо этих кружков)
6) когда нарисуешь все кружки, снова ставишь защиту листа (необязательно)

Макрос для кружков уже есть, и он один:

Sub Main()
    город = Application.Caller    ' название фигуры
    MsgBox "Вы выбрали город """ & город & """", vbInformation, "Запущен макрос"
    ' твой код здесь
End Sub

Поскольку макрос уже назначен всем присутствующим кружкам, ничего больше назначать не надо.

[valerij]

Сообщение от EducatedFool

Всё намного проще .

Игорь, так в начале и делал, но города одни и те же получаются

[EducatedFool]

Ах да, забыл...

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