Как изменить значение SlideMaster.Height в PowerPoint 2016 VBA? - PullRequest
Новая
       13

Как изменить значение SlideMaster.Height в PowerPoint 2016 VBA?

0 голосов
/ 21 декабря 2018

Я пытаюсь автоматизировать процесс изменения высоты в диалоговом окне «Размер слайда» в системе «Мастер слайдов» с помощью VBA.Когда я пытаюсь изменить его, VBA сообщает, что мне не разрешено присваивать значение ActivePresentation.SlideMaster.Height, потому что оно доступно только для чтения.

Я изучил дерево объектов ActivePresentation и выяснил,получить значение высоты (с ActivePresentation.SlideMaster.Height), но следующая строка приводит к ошибке компиляции: 

ActivePresentation.SlideMaster.Height = 1189

Изменение значения SlideHeight с помощью ... 

ActivePresentation.PageSetup.SlideHeight = 1189

действительно изменяет высоту слайда, но это не имеет такого же эффекта, как изменение высоты через систему Slide Master.Основной вопрос на этом этапе: возможно ли изменить ActivePresentation.SlideMaster.Height с помощью VBA или статус «Только чтение» неизменен? 

Sub test()

    ActivePresentation.SlideMaster.Height = 1189 'Compile Error...can't assign to read-only property

    ActivePresentation.PageSetup.SlideHeight = 1189 'Changes the height of the slides, _
    but doesn't change the size of text within Shape elements like I need it to do.

End Sub

Вот некоторые сведения ...

Путем проб и ошибок я определил, что если я изменю размеры слайдов с помощью мастера слайдов, текст по умолчанию для фигур будет установлен так, как я хочу (на шаге 18).Если я не изменю размеры в Slide Master, текст для Shapes останется на 31. Даже если новая фигура создана, шрифт изменится на 18, и эта фигура будет установлена ​​как фигура по умолчанию, если текст будет вставлен вНа слайде (с помощью CTRL-v или Вставить специальный неформатированный текст) создаваемая фигура имеет размер текста 31.

Просто для ясности, если по умолчанию установлено значение 18, и я создаю другойновая форма через «Вставка»> «Фигуры», тогда эта новая форма автоматически устанавливается на 18. Только когда я вставляю текст (используя CTRL-v или «Специальная вставка - не отформатированный») непосредственно на слайд, он становится 31.

Единственное, что делает то, что я хочу, это небольшое изменение размера Slide Master Slide.Изменение высоты с 1188 на 1189 заставляет все фигуры на всех слайдах переходить с 31 на 18. Любой новый текст, который вставляется в слайд, появляется как фигура, содержащая 18 текста.

ПричинаЯ публикую это в Stack Overflow, а не в Super User, потому что я должен автоматизировать это изменение ... у нас есть тысячи презентаций для изменения.

...