У меня есть текстовый файл со многими элементами, каждый на отдельной строке. Я хочу создать диаграмму Visio с формой прямоугольника для каждого элемента и с текстом каждого прямоугольника, установленным для элемента.
Есть ли быстрый способ сделать это?
У меня достаточно вещей, которые можно было бы сделать вручную. Я просто хочу создать начальные фигуры, чтобы я мог расположить их на диаграмме и работать с ними.
microsoft-visio
М. Дадли
источник
источник
Ответы:
Я собрал VBA, которая должна помочь вам.
Несколько предположений
Возможно, вам придется изучить код и изменить его в соответствии с вашими требованиями. Например, вы можете захотеть иметь прямоугольник большего размера, чем тот, который я создал. Или вам может понадобиться удалить внутреннюю
For Next
петлю и просто расположить их одну под другой и так далее.Откройте пустую диаграмму Visio. Установите метрические единицы. Нажмите ALT + F11 для доступа к VBA Editor. Вставьте модуль из меню вставки. Вставьте в него следующий код.
В коде определены две константы. Вам нужно установить путь и имя файла, ссылаясь на ваш текстовый файл.
На пустой странице Visio нажмите ALT + F8 и запустите этот макрос. Подождите несколько секунд и прямоугольники со встроенным текстом, так как соответствующие позиции из вашего текстового файла должны появиться на странице Visio. Если он заполняет одну страницу, он вставит следующую страницу и так далее.
Попробуйте это и проверьте, работает ли это для вас.
источник