раскрашивание частей рисунка по клику на тексте

[Bape}l{ka]

здравствуйте, знатоки))

помогите пожалуйста разобраться с задачей

есть рисунок - карта москвы и ее районов, где кажый район отрисован и соответственно с помощью функции "Разгруппировать" мы выделили каждый район на рисунке как отдельный объект (т.е. кликнув по границе района, мы выделяем его как отдельный рисунок на общем рисунке и, например, можем районы раскрасить как нам надо).

к карте прилагается список районов.

нужно чтобы при клике по названию района из списка нам высвечивался каким-либо образом этот район на карте (например, стал активным / выделился), а в идеале раскрасился в выбранный заранее цвет.

Была идея сделать это с помощью ActiveX и чекбоксов, или может гиперсылок? Только не знаю, как в ворде обратиться именно к нужной части рисунка, т.е. к району.. может им дать имена как переменным? как это сделать?

подскажите пожалуйста.

пример: М и МО-районы.rar

[Sasha_Smirnov]

Пример (пока) не смотрел — чревато, но ход мысли поддерживаю.

Sub Макрос1() 'пример обработки фигур в документе - здесь: всех под одну гребёнку

For n = 1 To ActiveDocument.Shapes.Count
    ActiveDocument.Shapes.Item(n).Select        'выделение n-й фигуры документа Word
    Selection.ShapeRange.Fill.Visible = True    'видимость заливки (здесь: да, видна)
    Selection.ShapeRange.Fill.Transparency = 0  'прозрачность (здесь нулевая)
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0) 'заливка (здесь: красная)
    Selection.ShapeRange.Line.DashStyle = msoLineDashDot     'контур (здесь: пунктир)
Next

End Sub

В приложенном доке откройте по Alt-F11 проект и понажимайте F8.

[Bape}l{ka]

Sasha_Smirnov, спасибо большое!))

а еще вопрос, вы перебираете фигуры по "n", а эта "n" у каждой фигуры своя постоянная или произвольная? т.е. назначу я район по фигуре с определенной n-кой , а они потом переменяются.. о.О

[Sasha_Smirnov]

В Lego.doc Макрос3 показывает имя выделенной в документе фигуры.

Чтобы увидеть и изменить имена фигур, рекомендую выполнить Макрос2 (см. по Alt-F8 там же)

Sub Макрос2() 'пример именования фигур документа Word
On Error Resume Next    'в случае отказа (CANCEL) у фигуры остаётся старое имя

    With ActiveDocument.Shapes
        For n = 1 To .Count
            With .Item(n)                           'работаем с n-й фигурой
                .Name = Replace(Trim(InputBox("Название района:", _
                "Сейчас это называется " & .Name, "Район_" & Format(n, "00"))), " ", "_")
                'здесь внешняя функция Replace при вводе имени меняет пробелы на подчерки
            End With
        Next
    End With
End Sub

Не по теме: опять смотрим только рисунок — неужели не хочется попробовать жареного мяса/кода?!