VBA: установка межстрочного интервала в "Надписи"

marcus67 Пользователь Сообщений: 10 Регистрация: 18.12.2014	#1 11.11.2015 09:40:33 Добрый день! Имеется надпись на листе (фигура). Как установить, с помощью VBA, межстрочный интервал в ней? Интерфейсом устанавливается легко - правая кнопка мыши - абзац. Спасибо.

Пользователь

Сообщений: 11247 Регистрация: 01.01.1970

11.11.2015 09:42:35

Цитата
marcus67 написал: правая кнопка мыши - абзац.

ворд? не

Лень двигатель прогресса, доказано!!!

marcus67 Пользователь Сообщений: 10 Регистрация: 18.12.2014	#3 11.11.2015 09:44:08 не понял вашего сообщения. при чем тут ворд?)

Сергей Пользователь Сообщений: 11247 Регистрация: 01.01.1970	#4 11.11.2015 09:47:15 а где в эксель интерфейс в котором можно правой кнопкой выбрать абзац и установить там межстрочный интервал в 2007 не видел, куда можно глянуть Лень двигатель прогресса, доказано!!!

Пользователь

Сообщений: 11247 Регистрация: 01.01.1970

11.11.2015 09:50:12

всё увидел о чем вы

Цитата
(фигура)

Лень двигатель прогресса, доказано!!!

Пользователь

Сообщений: 10 Регистрация: 18.12.2014

11.11.2015 09:54:39

допустим, нижний отступ устанавливаю так:

Код
.Shapes("tb").TextFrame.MarginBottom = 2

как установить межстрочный интервал?))

Изменено: marcus67 - 11.11.2015 09:55:05

Пользователь

Сообщений: 1198 Регистрация: 01.02.2015

11.11.2015 11:56:38

Попробуйте так (получил макрорекордером и лишнее выкинул)

Код
Sub Макрос() ActiveSheet.Shapes.Range(Array("TextBox 2")).TextFrame2.TextRange.Characters.ParagraphFormat _ .SpaceWithin = 2 End Sub

marcus67 Пользователь Сообщений: 10 Регистрация: 18.12.2014	#8 11.11.2015 12:26:26 Спасибо большое, это именно оно. Странно, я пытался использовать макрорекордер, он не пишет мне никаких действий с фигурой...

Читают тему