Imprimir página | Cerrar ventana

Quitar dialogo "Cargando JPG"

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Tus Funciones Favoritas & Aportaciones & Artí­culos
Descripción del foro: Para publicar código interesante, aportaciones y artículos
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=77270
Fecha de impresión: 03/Agosto/2020 a las 14:57


Tema: Quitar dialogo "Cargando JPG"
Publicado por: buho
Asunto: Quitar dialogo "Cargando JPG"
Fecha de publicación: 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!



Imprimir página | Cerrar ventana