Propriedade Application.FeatureInstall (PowerPoint)

Retorna ou define como o Microsoft PowerPoint lida com chamadas a métodos e propriedades que requerem recursos ainda não instalados. Leitura/gravação.

Sintaxe

expression. FeatureInstall

expressão Uma variável que representa um Aplicativo objeto.

Valor de retorno

MsoFeatureInstall

Comentários

Use a constante msoFeatureInstallOnDemandWithUI para impedir que os usuários acreditem que o aplicativo não está respondendo enquanto um recurso está sendo instalado. Use a constante msoFeatureInstallNone com rotinas de interceptação de erros para excluir a instalação de recurso do usuário final.

Observação

[!OBSERVAçãO] Se você fizer referência a um modelo de design de apresentação não instalado em uma cadeia de caracteres, um erro em tempo de execução será gerado. O modelo não é instalado automaticamente independentemente da sua configuração da propriedade FeatureInstall. Para usar o método ApplyTemplate para um modelo que não está instalado, você deve primeiro instalar modelos de design adicionais. Para fazer isso, instale os modelos de Design adicionais para o PowerPoint, executando o programa de instalação do Microsoft Office (disponível clicando no ícone Adicionar ou remover programas no painel de controle do Windows).

O valor da propriedade FeatureInstall pode ser uma destas constantes MsoFeatureInstall.

Constante	Descrição
msoFeatureInstallNone	O padrão. Um erro de automação interceptável em tempo de execução é gerado quando são chamados recursos não instalados.
msoFeatureInstallOnDemand	É exibida uma caixa de diálogo solicitando ao usuário a instalação de novos recursos.
msoFeatureInstallOnDemandWithUI	É exibido um medidor de progresso durante a instalação. O usuário não é solicitado a instalar novos recursos.

Exemplo

Este exemplo verifica o valor da propriedade FeatureInstall. Se a propriedade estiver definida como msoFeatureInstallNone, o código exibe uma caixa de mensagem que pergunta ao usuário se ele deseja alterar a configuração da propriedade. Se o usuário responder "Sim", a propriedade é definida como msoFeatureInstallOnDemand.

With Application
    If .FeatureInstall = msoFeatureInstallNone Then
        Reply = MsgBox("Uninstalled features for this " _
                & "application " & vbCrLf _
                & "may cause a run-time error when called." & vbCrLf _
                & vbCrLf _
                & "Would you like to change this setting" & vbCrLf _
                & "to automatically install missing features when called?" _
                , 52, "Feature Install Setting")

            If Reply = 6 Then
                .FeatureInstall = msoFeatureInstallOnDemand
            End If
    End If
End With

Confira também

Objeto de Aplicativo

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.