Вставка нескольких аудиофайлов с фиксированными настройками на нескольких слайдах с помощью диалогового окна файлов - PowerPoint - PullRequest
Новая
       27

Вставка нескольких аудиофайлов с фиксированными настройками на нескольких слайдах с помощью диалогового окна файлов - PowerPoint

0 голосов
/ 12 марта 2019

Я работаю с двумя частями кода (спасибо Shyam Pillai и пещере аналитика). Я пытаюсь использовать диалоговое окно для выбора нескольких аудиофайлов, которые затем будут вставляться по одному на слайд с некоторыми исправлены настройки, указанные в коде ниже.

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

Любое руководство будет с благодарностью 

Sub SampleTest()
Dim fDialog As FileDialog, result As Integer
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

'IMPORTANT!
fDialog.AllowMultiSelect = True

'Optional FileDialog properties
fDialog.Title = "Select a file"
fDialog.InitialFileName = "C:\"
'Optional: Add filters
fDialog.Filters.Clear
fDialog.Filters.Add "Excel files", "*.xlsx"
fDialog.Filters.Add "All files", "*.*"

'Show the dialog. -1 means success!
If fDialog.Show = -1 Then
  For Each it In fDialog.SelectedItems
    Debug.Print it
  Next it
End If

End Sub

Sub InsertAudio(Track As String, oSlide As Slide)
Dim oShp As Shape
Dim oEffect As Effect

'Add the audio shape
Set oShp = oSlide.Shapes.AddMediaObject2(Track, True, False, 10, 10)

'Set audio to play automatically
Set oEffect = oSlide.TimeLine.MainSequence.AddEffect(oShp, msoAnimEffectMediaPlay, , msoAnimTriggerWithPrevious)
oEffect.MoveTo 1

'Hide during slide show
With oEffect
    .EffectInformation.PlaySettings.HideWhileNotPlaying = True
End With

End Sub
...