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

Форум по вопросам применения и программирования в Visio
Текущее время: 15 янв 2021, 21:42

Часовой пояс: UTC + 3 часа [ Летнее время ]


Правила форума


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)
Размещая ваши вложения на форуме не используйте имена файлов содержащих кириллицу, в противном случае файл будет иметь имя .<расширение файла> !
Для форматирования ваших сообщений используйте BBCodes, описание используемых на форуме BBCodes.



Начать новую тему Ответить на тему  [ Сообщений: 9 ] 
Автор Сообщение
 Заголовок сообщения: Форматирование абзацев
СообщениеДобавлено: 15 ноя 2020, 00:17 
Не в сети

Зарегистрирован: 07 ноя 2020, 11:55
Сообщений: 4
Использую Visio c: 2017
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Доброго времени суток!

Подскажите пожалуйста можно ли внутри одного шейпа отформатировать абзацы по разному. Например, 1-й по ширине, 2-й по центру и 3-й выровнять по левому краю. Как применить форматирование ко всему шейпу я понял, а непосредственно к тексту не разобрался.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Форматирование абзацев
СообщениеДобавлено: 15 ноя 2020, 00:46 
Не в сети
Administrator

Зарегистрирован: 30 авг 2009, 11:02
Сообщений: 1751
Очков репутации: 100619

Добавить очки репутацииУменьшить очки репутации
Вот как это выглядит в шейп-листе.
И справка на эту тему - https://docs.microsoft.com/en-us/office ... ph-section


Вложения:
par.PNG
par.PNG [ 59.73 Кб | Просмотров: 171 ]
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Форматирование абзацев
СообщениеДобавлено: 15 ноя 2020, 01:38 
Не в сети
Ветеран
Аватара пользователя

Зарегистрирован: 28 апр 2013, 14:03
Сообщений: 760
Откуда: Вена, Австрия
Использую Visio c: 1998
Очков репутации: 100610

Добавить очки репутацииУменьшить очки репутации
Конечно можно.
Изображение

_________________
Инструменты для облегчения создания диаграмм, и статьи по Visio:
http://unmanagedvisio.com/


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Форматирование абзацев
СообщениеДобавлено: 05 дек 2020, 21:33 
Не в сети

Зарегистрирован: 07 ноя 2020, 11:55
Сообщений: 4
Использую Visio c: 2017
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Доброго времени суток!

Никак не получается. Если не затруднит приведите пожалуйста кусочек кода в котором в шейп добавляется 2 абзаца. Например:
1 абзац с текстом 1111 выравнивание по центру и выделен жирным
2 абзац с текстом 2222 выравнивание по правому краю и выделен курсивом


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Форматирование абзацев
СообщениеДобавлено: 05 дек 2020, 21:59 
Не в сети
Administrator

Зарегистрирован: 30 авг 2009, 11:02
Сообщений: 1751
Очков репутации: 100619

Добавить очки репутацииУменьшить очки репутации
В Visio можно записывать макросы. То есть включить запись, сделать что-то вручную и посмотреть, как Visio превратит это в код.
Потом можно оптимизировать.
Вот Ваш пример (без оптимизации, только Undo выбросил):
Код:
Sub Macro1()
    Dim vsoCharacters1 As Visio.Characters
    Set vsoCharacters1 = Application.ActiveWindow.Page.Shapes.ItemFromID(1).Characters
    vsoCharacters1.Begin = 0
    vsoCharacters1.End = 0
    vsoCharacters1.Text = "1111"

    Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionCharacter, 0, visCharacterStyle).FormulaU = "17"
    Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionCharacter, 0, visCharacterDblUnderline).FormulaU = "FALSE"
    Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionCharacter, 0, visCharacterOverline).FormulaU = "FALSE"
    Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionCharacter, 0, visCharacterStrikethru).FormulaU = "FALSE"
    Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionCharacter, 0, 11).FormulaU = "FALSE"
    Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionCharacter, 0, visCharacterDoubleStrikethrough).FormulaU = "FALSE"
    Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionCharacter, 0, visCharacterRTLText).FormulaU = "FALSE"
    Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionCharacter, 0, visCharacterUseVertical).FormulaU = "FALSE"

    Dim vsoCharacters4 As Visio.Characters
    Set vsoCharacters4 = Application.ActiveWindow.Page.Shapes.ItemFromID(1).Characters
    vsoCharacters4.Begin = 4
    vsoCharacters4.End = 4
    vsoCharacters4.Text = "" & Chr(10) & "2222"

    Dim vsoCharacters5 As Visio.Characters
    Set vsoCharacters5 = Application.ActiveWindow.Page.Shapes.ItemFromID(1).Characters
    vsoCharacters5.Begin = 5
    vsoCharacters5.End = 9
    vsoCharacters5.ParaProps(visHorzAlign) = 2#

    Dim vsoCharacters7 As Visio.Characters
    Set vsoCharacters7 = Application.ActiveWindow.Page.Shapes.ItemFromID(1).Characters
    vsoCharacters7.Begin = 5
    vsoCharacters7.End = 9
    vsoCharacters7.CharProps(visCharacterStyle) = 51#
End Sub


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Форматирование абзацев
СообщениеДобавлено: 05 дек 2020, 22:15 
Не в сети
Administrator

Зарегистрирован: 30 авг 2009, 11:02
Сообщений: 1751
Очков репутации: 100619

Добавить очки репутацииУменьшить очки репутации
Или после оптимизации
Код:
Sub Macro1()
    Dim vsChar As Visio.Characters
    Dim shp As Visio.Shape
   
    Set shp = ActiveWindow.Selection(1)
    shp.Characters.Text = "1111" & Chr(10) & "2222"
    Set vsChar = shp.Characters
    With vsChar
        .Begin = 0
        .End = 4
        .ParaProps(visHorzAlign) = 1#
        .CharProps(visCharacterStyle) = 17#
        .Begin = 5
        .End = 9
        .ParaProps(visHorzAlign) = 2#
        .CharProps(visCharacterStyle) = 34#
    End With
End Sub


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Форматирование абзацев
СообщениеДобавлено: 06 дек 2020, 16:51 
Не в сети

Зарегистрирован: 07 ноя 2020, 11:55
Сообщений: 4
Использую Visio c: 2017
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Огромное спасибо!
К сожалению так и не нашел как в 2016 visio включить запись макроса. Вроде все посмотрел, может как всегда на самом видном месте и пропустил.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Форматирование абзацев
СообщениеДобавлено: 06 дек 2020, 17:03 
Не в сети
Глав-тролль

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 4076
Откуда: оттуда
Использую Visio c: 1998
Уровнь квалификации: Отсутствует
Maluy Alex писал(а):
К сожалению так и не нашел как в 2016 visio включить запись макроса.
А вкладка ленты Разработчик у вас активирована ?
phpBB [media]
Maluy Alex писал(а):
Вроде все посмотрел, может как всегда на самом видном месте и пропустил.
Изображение


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Форматирование абзацев
СообщениеДобавлено: 12 дек 2020, 18:05 
Не в сети

Зарегистрирован: 07 ноя 2020, 11:55
Сообщений: 4
Использую Visio c: 2017
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Всем огромное спасибо за помощь.
Все нашел и все получилось.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 9 ] 

Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Вы можете создать форум бесплатно PHPBB3 на Getbb.Ru, Также возможно сделать готовый форум PHPBB2 на Mybb2.ru
Русская поддержка phpBB