PowerPoint Text to Speech Macro

Question

Я хочу, чтобы создать макрос, который начнет текст в речь по тексту, который находится в примечаниях к презентаторам. Я буду применять макрос к кнопке ActiveX, которая позволит пользователю начать чтение и eventaully. Я хотел бы время анимации слайдов в речи.

Я имею в Excel успеха на VBA в возможности записать команду говорить на ячейку с:

application.speech.speak (sheet1.cells(1,1)) 

, и я нашел код, который будет вводить текст в динамик раздел для всех слайдов отмечает.

Sub AddTextAllSpeakerNotes() 
    Dim sld As Slide 
    For Each sld In ActivePresentation.Slides 
    sld.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange = "" 
    Next sld 
End Sub 

Я добавил Microsoft Speech Object Library Reference, но я никогда не могу получить VBA распознавать речевые команды и автозаполнения любые команды, которые помогут мне понять, как получить дальше.

Как написать код, который будет применять команду «текст-речь» к разделу примечаний динамиков конкретного слайда.

Answer 1

Как прокомментировал, вы можете попробовать это:

Dim XL As Excel.Application 
Set XL = New Excel.Application 

XL.Speech.Speak "I was able to make power point speak" 

условии, что вы добавили ссылку на:

Библиотека объектов

Microsoft Excel XX.X

После того, как вы связаны Excel в PowerPoint вы можете напрямую использовать свои методы оттуда.
В приведенном выше коде вы можете просто заменить аргумент фактическим объектом PPT, который содержит строку, которую вы хотите произнести. НТН.