2015-09-29 2 views
2

Знаете ли вы, что такое команда в VBA, чтобы выделить какой-то текст? Я посмотрел в Интернете и не нашел ничего, что сработало бы.В Powerpoint VBA, как изменить интервал шрифта в текстовом поле?

это «SOMMAIRE» текстовое поле не имеет интервал

not spaced out

и это то, что я хочу, чтобы текстовое поле выглядеть следующим образом: enter image description here

есть больше пространства между буквами

более точно, я ищу код VBA для этой точной кнопки: enter image description here

+1

Вы можете быть более наглядным примером для "Space out some Text"? Вы имеете в виду Text Alignment, или вы хотите добавить несколько текстовых полей и как бы вы равномерно распределяете их по странице? – jradich1234

+0

Как [это] (http://memecrunch.com/meme/2DLYB/spaced-out-face/image.jpg)? Нет, но серьезно, что вы подразумеваете под «пространством» - вы имеете в виду выравнивание абзаца «Обоснованно»? –

+0

Возможно, вы можете найти ответ через [Documentation for PowerPoint Object Model] (https://msdn.microsoft.com/en-us/library/office/ff743835 (v = office.14) .aspx) –

ответ

2

Используйте форму .TextFrame2.TextRange.Font.Spacing. По умолчанию это, вероятно, 0. Вы можете изменить его на другие значения, чтобы увеличить интервал шрифта.

+0

Привет, спасибо за ваш ответ. paragraphformat не то, что я ищу. Im ищет что-то, что больше связано с самим стилем шрифта –

+0

См. Ревизию ... –

+0

Спасибо. Это именно то, что я искал. –

0

Просто хотел бы добавить, что авто-кернинг также является фактором, так что вы хотите, чтобы удалить это тоже:

'Set character point spacing to zero 
.TextFrame2.TextRange.Font.Spacing = 0 

'Remove automatic kerning 
.TextFrame2.TextRange.Font.Kerning = False 

кернинг свойство можно просмотреть вручную, если вы выбираете форму и в группе Шрифт на ленте HOME щелкните метку в правом нижнем углу, а затем перейдите на вкладку «Символьный пробел» - вы увидите флажок там, где установлено это свойство.

Смежные вопросы