Форум пользователей Visio

Уважаемые участники форума, приветствую!
Не так давно возникла необходимость создать тест на основе MS Visio. Смысл следующий.
1) Имеется схематическое изображение, содержащее фрагменты, названия которых необходимо запомнить;
2) Необходимо в поле, расположенное рядом с фрагментом, ввести название;
3) Введенное значение должно полностью совпадать с заданным.

Предполагаемый механизм.
Эталонные названия фрагментов сравниваются с данными, введенными с клавиатуры сразу после нажатия на Enter.\
Можно посмотреть подсказку.

Для меня это совершенно новая область. Прошу, если кто знает, как можно организовать такой механизм, подскажите!

С уважением.

Вам приходилось программировать на VBA?

Да, есть немного! Это поможет оптимально решить задачу, скажите?

Подскажите: придется ли работать с таблицами свойств фигуры?

Даже когда возможны оба пути (программный на VBA и на основе формул шейп-листа), путь с VBA осваивается проще. Причем через VBA решается практически любая задача, а через формулы не любая.
А вот если не новичок, то с формулами иногда получается проще.
Навскидку трудно сказать, достаточно ли будет в этой задаче только формул. Может и достаточно.
-----
"Таблицы свойств фигуры" - это наверное ShapeSheet? Тогда придется. Практически всегда программа получает данные из ячеек шейп-листа (ShapeSheet). И пишет туда же. Ну а если задача решается на основе формул, то тем более придется.

Вот, например, как проверяется значение на уровне формул.
прямоугольник будет зеленым только в том случае, если в нем будет текст "dog".
Это потому, что в ячейке, отвечающей за заливку шейпа стоит формула, сравнивающая текст шейпа с текстовой константой.

А второй вариант (с использованием VBA) - в ячейку завершения редактирования (секция Events ячейка TheText пишется вызов макроса)

а в модуль ThisDocument - текст макроса

Эффект будет таким же.
При завершении редактирования сработает событие вызова макроса. Макрос сравнит текст селектированного шейпа с константой и запишет в ячейку, отвечающую за цвет, нужное значение. Шейп станет красным или зеленым.

Благодарю! Надеюсь, справлюсь!

Классно! То, что надо )
Признаться, вчера возникла идея зациклить тест: через каждые n секунд произвольный зеленый прямоугольник (т.е. тот, где верный ответ), сбрасывает свое значение. Так приходится постоянно вводить значения, пока не надоест, либо пока не поймешь, что все запомнил.
Подскажите, пожалуйста, решение такой задачи, скорее всего, организовывается с помощью VBA?
Спасибо!

AlekseyVisio, получил маляву от админов с киберфорума - просили тебе помочь. Но ты к этому времени уже получил здесь ответ…
Честно говоря не совсем понял весь глобальный замысел, но кажется эта тема тоже может быть полезна Ищу шаблон-мастер для создания кроссвордов
с последним пожеланием про зацикливание вообще не понял

Ну да, с VBA будет проще всего.
По таймеру периодически запускается программка и чистит тексты нужных шейпов (по списку или перебором всех шейпов с фильтрацией по определенному признаку).
Хотя, если для простоты запускать такой макрос не по таймеру, а по кнопке, эффект будет в общем-то схожий.
Шейпы перебирать в коллекции ActivePage.Shapes.
Признак для фильтрации нужно придумать. Например, записать нечто отличительное в User ячейку.

Хм, надо подумать, спасибо!

Да, спасибо! Ответ был получен здесь )
Глобальный замысел следующий.
Есть схематическое изображение - механизм, чертеж, оборудование, логическая карта и т.д., - содержащее большое количество названий составных частей, которые необходимо жестко запомнить. Поскольку идет привязка к изображению, то запоминать будет проще - особенно, если ответ вводить руками много раз. Много раз получится, если текст в фигурах будет периодически (рандомно) стираться, чтобы пришлось снова его вводить. Это и есть основная идея - многократное повторение для жесткого заучивания )

надо еще подумать как выйти из этого цикла , я так думаю©

Проще всего - по закрытии файла.
Может случиться, что количество затертых блоков будет N-1, где N - общее количество блоков, а один - редактируемый.
Может случиться, что все блоки будут затерты, если ни один из них не редактируется.

Всем доброго времени суток!
Появилось время вернуться к решению задачи Но, вот, проблема: никак не удается пройти в редактор Visual Basic.
Нахожусь на созданном листе, версия MS Visio 2007 SP3 русифицированная, Сервис - Макрос - Редактор Visual Basic неактивен ((
Подскажите, как можно "оживить" его?
Спасибо!

Решение текущей проблемы найдено: произвел доустановку профессионального выпуска

Воспользовался первым способом - редактирование ячейки Fill Foregnd таблицы Fill Format. Смена заливки по условию (ввод верного текста) работает отлично! Благодарю!
Теперь пробую на простом примере разобраться, как использовать VBA..

Вот файл, на примере которого я пытаюсь разобраться в решении поставленной задачи.

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