Compartilhar via


Método WebPageOptions.SetBackgroundSoundRepeat (Publisher)

Especifica se o som de fundo anexado a uma página Web deve ser reproduzido infinitamente depois de a página ser carregada num browser e, caso contrário, especifica opcionalmente o número de vezes que o som de fundo 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 deste parâmetro é utilizado para preencher o valor da propriedade BackgroundSoundLoopForever .
RepeatTimes Opcional Long Especifica quantas vezes o som de fundo deve ser reproduzido indefinidamente. O valor deste parâmetro é utilizado 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 seguinte define o som de fundo da página quatro da publicação Web ativa para um ficheiro de .wav no computador local. Se BackgroundSoundLoopForever for False, o método SetBackgroundSoundRepeat é utilizado para especificar que o som de fundo é repetido infinitamente (tenha em atenção 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.