Propiedad Application.FeatureInstall (Excel)

Devuelve o establece un valor (constante) que especifica cómo controla Microsoft Excel las llamadas a métodos y propiedades que requieren características que aún no están instaladas. Puede ser una de las constantes MsoFeatureInstall enumeradas en la tabla siguiente. MsoFeatureInstall de lectura y escritura.

Sintaxis

expresión. FeatureInstall

expresión Variable que representa un objeto Application.

Comentarios

MsoFeatureInstall puede ser una de estas constantes:

• msoFeatureInstallNone. Genera un error genérico de Automation en tiempo de ejecución cuando se llama a las características desinstaladas. Ésta es la constante predeterminada.
• msoFeatureInstallOnDemand. Se solicita al usuario instalar las nuevas funciones.
• msoFeatureInstallOnDemandWithUI. Muestra un medidor de progreso durante la instalación; no solicita al usuario que instale nuevas características.

Use la constante msoFeatureInstallOnDemandWithUI para evitar que los usuarios piensen que la aplicación no responde mientras se instala una característica. Utilice la constante msoFeatureInstallNone si desea que el programador sea la única persona que pueda instalar las características.

Si tiene la propiedad DisplayAlerts establecida en False, no se pedirá a los usuarios que instalen nuevas características aunque la propiedad FeatureInstall esté establecida en msoFeatureInstallOnDemand. Si la propiedad DisplayAlerts se establece en True, aparecerá un indicador de progreso de instalación si la propiedad FeatureInstall está establecida en msoFeatureInstallOnDemand.

Ejemplo:

Este ejemplo activa una nueva sesión de Microsoft Word y comprueba el valor de la propiedad FeatureInstall. Asegúrese de establecer una referencia a la biblioteca de objetos de Microsoft Word. Si la propiedad FeatureInstall está establecida en msoFeatureInstallNone, el código muestra un cuadro de mensaje que pregunta al usuario si desea cambiar la configuración de la propiedad. Si el usuario responde Sí, la propiedad se establece en msoFeatureInstallOnDemand.

Dim WordApp As New Word.Application, Reply As Integer 
Application.ActivateMicrosoftApp xlMicrosoftWord With WordApp 
    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?" _ 
            , 52, "Feature Install Setting") 
        If Reply = 6 Then 
            .FeatureInstall = msoFeatureInstallOnDemand 
        End If 
    End If 
End With

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.