** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - Quitar dialogo "Cargando JPG"
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoQuitar dialogo "Cargando JPG"

 Responder Responder
Autor
Mensaje
buho Ver desplegable
Administrador
Administrador
Avatar
Abuelo FELIZ

Unido: 10/Abril/2004
Localización: Valladolid
Estado: Sin conexión
Puntos: 11317
Enlace directo a este mensaje Tema: Quitar dialogo "Cargando JPG"
    Enviado: 10/Agosto/2013 a las 08:28

Sub QuitaDialogoJPG(Quitar As Boolean)
    Dim SH As Object
    Dim RutaRegistro As String
    Set SH = CreateObject("Wscript.Shelll")
    RutaRegistro = _
        "HKEY_LOCAL_MACHINE\Software\Microsoft\Shared Tools\Graphics Filters\Import\JPEG\Options\"
    If Quitar Then
        SH.RegWrite RutaRegistro & "ShowProgressDialog", "No", _
            "REG_SZ"
    Else
        SH.RegWrite RutaRegistro & "ShowProgressDialog", "Yes", _
            "REG_SZ"

    End If
    Set SH = Nothing
End Sub

Uso:

Sub Probando()
 QuitaDialogoJPG True
End Sub
Expulsado de la cárcel por robar los barrotes
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable