** 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, nieto desesperado

Unido: 10/Abril/2004
Localización: Valladolid
Estado: Sin conexión
Puntos: 11321
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
Por fin he hecho algo bueno, ser abuelo ¡y porque no lo he hecho yo!
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable