Método WebPageOptions.SetBackgroundSoundRepeat (Publisher)
Especifica se o som em segundo plano anexado a uma página da Web deve ser reproduzido infinitamente depois que a página é carregada em um navegador da Web e, se não for necessário, opcionalmente especifica o número de vezes que o som em segundo plano deve ser reproduzido.
Sintaxe
expressão. SetBackgroundSoundRepeat (RepeatForever, RepeatTimes)
Expressão Uma variável que representa um objeto WebPageOptions .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| RepeatForever | Obrigatório | Boolean | Especifica se o som de fundo deve ser reproduzido indefinidamente. O valor desse parâmetro é usado para preencher o valor da propriedade BackgroundSoundLoopForever . |
| RepeatTimes | Opcional | Long | Especifica quantas vezes o som de fundo deve ser reproduzido indefinidamente. O valor desse parâmetro é usado para preencher o valor da propriedade BackgroundSoundLoopCount . |
Comentários
Se o parâmetro RepeatForever for definido como True, o parâmetro RepeatTimes opcional não poderá ser especificado. Se você tentar especificar RepeatTimes e RepeatForever for True, provocará um erro em tempo de execução.
Se o parâmetro RepeatForever for definido como False, o parâmetro RepeatTimes opcional precisará ser especificado. Se você omitir RepeatTimes e RepeatForever for False, provocará um erro em tempo de execução.
Exemplo
O exemplo a seguir define o som em segundo plano da página quatro da publicação web ativa como um arquivo .wav no computador local. Se BackgroundSoundLoopForever for False, o método SetBackgroundSoundRepeat será usado para especificar que o som em segundo plano seja repetido infinitamente (observe a omissão do parâmetro RepeatTimes ).
Se BackgroundSoundLoopForever for True, o método SetBackgroundSoundRepeat será usado para especificar que o som de fundo não seja repetido indefinidamente, mas repetido duas vezes.
Dim theWPO As WebPageOptions
Set theWPO = ActiveDocument.Pages(4).WebPageOptions
With theWPO
.BackgroundSound = "C:\CompanySounds\corporate_jingle.wav"
If .BackgroundSoundLoopForever = False Then
.SetBackgroundSoundRepeat RepeatForever:=True
ElseIf .BackgroundSoundLoopForever = True Then
.SetBackgroundSoundRepeat RepeatForever:=False, RepeatTimes:=2
End If
End With
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.