Ввод информации в раздел «Примечания» слайда PowerPoint с использованием VBA

Question

Я пытаюсь выяснить, как вы пишете VBA, чтобы ввести текстовое поле в слайд и ввести текст. Я также пытаюсь найти vba для ввода текста в раздел заметок слайда PowerPoint.

Любая помощь была бы принята с благодарностью. Я попытался найти сайт специально для этого, но не смог этого сделать.

Answer 1

Ввод текста в слайд PPT примерно такой же, как и в разделе примечаний.

Вы должны начать с ссылки объекта Slide, которая представляет собой слайд, который вы добавляете; и вы добавляете форму текстового поля в коллекцию форм слайдов.

Пример:

Sub AddTextBoxToSlide() 

    Dim oDestSlide As PowerPoint.Slide 
    Set oDestSlide = ActivePresentation.Slides(1) 

    Dim slideWidth As Single 
    Dim slideHeight As Single 
    slideWidth = oDestSlide.Parent.PageSetup.SlideWidth 
    slideHeight = oDestSlide.Parent.PageSetup.SlideHeight 

    Dim oTextBox As PowerPoint.Shape 
    Set oTextBox = oDestSlide.Shapes.AddTextbox(_ 
        Orientation:=msoTextOrientationHorizontal, _ 
        Left:=0, _ 
        Top:=0, _ 
        Width:=slideWidth, _ 
        Height:=slideHeight/12) 

    oTextBox.TextFrame.TextRange.Text = "Shape text here" 

End Sub 

Все это делает добавляет форму текстового поля для первого слайда активной презентации в верхней части слайда. Он такой же широкий, как и слайд, и 1/12 высоты слайда. Параметры для Shapes.AddTextbox() довольно понятны ...

Чтобы добавить в раздел примечаний, я просто использую объект NotesPage на слайде, на котором находится ваша страница заметок ... поэтому приведенный выше код будет около того, за исключением:

Set oTextBox = DestSlide.NotesPage.Shapes.AddTextbox(msoTextOrientat...