Быстро создавать множество фигур в Visio из текстового файла

У меня есть текстовый файл со многими элементами, каждый на отдельной строке. Я хочу создать диаграмму Visio с формой прямоугольника для каждого элемента и с текстом каждого прямоугольника, установленным для элемента.

Есть ли быстрый способ сделать это?

У меня достаточно вещей, которые можно было бы сделать вручную. Я просто хочу создать начальные фигуры, чтобы я мог расположить их на диаграмме и работать с ними.

microsoft-visio

— М. Дадли
источник

Там может быть подход VBA. Сколько предметов у вас в текстовом файле? Эти слова или строка содержат несколько слов? Как вы хотите разместить прямоугольники на диаграмме Visio, один под другим или рядом друг с другом?

— Патким

Вопрос обновлен. VBA мог работать, но я не мог понять, как это сделать.

— М. Дадли

Я не думаю, что этот вопрос заслуживает отрицательного ответа!

— Пол Хербер

Я собрал VBA, которая должна помочь вам.

Несколько предположений

Это размер страницы А4 с книжным макетом.
4 прямоугольника расположены рядом друг с другом.
Размер шрифта текста приспосабливается к высоте прямоугольника, а не к изменению размера фигуры.
Текстовый файл содержит элементы один под другим

Возможно, вам придется изучить код и изменить его в соответствии с вашими требованиями. Например, вы можете захотеть иметь прямоугольник большего размера, чем тот, который я создал. Или вам может понадобиться удалить внутреннюю For Nextпетлю и просто расположить их одну под другой и так далее.

Откройте пустую диаграмму Visio. Установите метрические единицы. Нажмите ALT + F11 для доступа к VBA Editor. Вставьте модуль из меню вставки. Вставьте в него следующий код.

Public Sub DrawRectangle_Example()
Dim vsoPages As Visio.Pages
Dim vsoPage As Visio.Page
Dim vsoDocument As Visio.Document
Dim Textline As String
Const File1 = "C:\Temp\"  'Set path here
Const File2 = "Visio.txt" 'Set filename with extension here
Dim vsoShape As Visio.Shape
Open File1 & File2 For Input As #1
Do While Not EOF(1)
     For i = 11.3 To 1.1 Step -0.6
          For j = 0.5 To 6.2 Step 1.9
            Set vsoShape = ActivePage.DrawRectangle(j, i, j + 1.5, i - 0.3)
            Line Input #1, Textline
            vsoShape.Text = Textline
            vsoShape.CellsSRC(visSectionCharacter, 0, visCharacterSize).FormulaU = "MIN(1,Height/TEXTHEIGHT(TheText,Width))*13&""pt"""
            If EOF(1) Then
               GoTo myend
            End If
          Next j
     Next i

     If EOF(1) Then
        GoTo myend
     End If

     Set vsoDocument = ActiveDocument
     Set vsoPages = vsoDocument.Pages
     Set vsoPage = vsoPages.Add

Loop

myend:
    Close #1
End Sub

В коде определены две константы. Вам нужно установить путь и имя файла, ссылаясь на ваш текстовый файл.

Const File1 = "C:\Temp\"  'Set path here
Const File2 = "Visio.txt" 'Set filename with extension here

На пустой странице Visio нажмите ALT + F8 и запустите этот макрос. Подождите несколько секунд и прямоугольники со встроенным текстом, так как соответствующие позиции из вашего текстового файла должны появиться на странице Visio. Если он заполняет одну страницу, он вставит следующую страницу и так далее.

Попробуйте это и проверьте, работает ли это для вас.

— patkim
источник