Ввод информации в раздел «Примечания» слайда 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...