MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Como arrumar esse exemplo

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1025
    Registrado : 23/08/2010

    [Resolvido]Como arrumar esse exemplo Empty [Resolvido]Como arrumar esse exemplo

    Mensagem  Mylton 4/7/2021, 16:07

    Boa tarde.

    Encontrei em outros foruns um aplicativo para se manipular imagem no access.
    Onde o criador informa que o código usa a função LaunchApp32 para executar silenciosamente um programa de manipulação de imagens chamado IrfanView (freeware).
    O código básico é o seguinte:

    'Put at the top of the module
    Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal _
        dwAccess As Long, ByVal fInherit As Integer, ByVal hObject _
        As Long) As Long
    Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _
         hHandle As Long, ByVal dwMilliseconds As Long) As Long
    Private Declare Function CloseHandle Lib "kernel32" (ByVal _
         hObject As Long) As Long


    Function LaunchApp32(MYAppname As String) As Integer
    Const SYNCHRONIZE = 1048576
    Const INFINITE = -1&
    Dim ProcessID&
    Dim ProcessHandle&
    Dim Ret&
    LaunchApp32 = -1
    ProcessID = Shell(MYAppname, vbNormalFocus)
      If ProcessID <> 0 Then
          ProcessHandle = OpenProcess(SYNCHRONIZE, True, ProcessID&)
          Ret = WaitForSingleObject(ProcessHandle, INFINITE)
          Ret = CloseHandle(ProcessHandle)
      Else
           MsgBox "ERROR : Unable to start " & MYAppname
           LaunchApp32 = 0
      End If
    End Function


    sub flipH() ' This will flip the image
    Irfan1 = "C:\Program Files\IrfanView\i_view32.exe"
    Temppic2 = ""C:\Documents and Settings\tlancaster\My Documents\image1.jpg"
    Compression0 = 75
    stAppName = Irfan1 & " " & Temppic2
    stAppName = stAppName & " /hflip " & " /jpgq=" & Compression0 & " /convert=" & Temppic2
    LaunchApp32 (stAppName)
    end sub


    No exemplo no meu 365 não esta rodando.
    Se alguém puder ajudar, penso que será interessante termos no repositório.

    Obrigado.
    No anexo versão original e no 365.
    Anexos
    [Resolvido]Como arrumar esse exemplo AttachmentImage Manipulation.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (127 Kb) Baixado 14 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Como arrumar esse exemplo Empty Re: [Resolvido]Como arrumar esse exemplo

    Mensagem  DamascenoJr. 4/7/2021, 21:26

    Mylton, não olhei seu anexo, mas se ajudar, no link baixo tem um artigo (e no final, artigos relacionados) mostrando como girar, cortar, redimensionar, inverter, converter imagens etc. Isso sem programas ou instalações adicionais.

    devhut.net/2019/06/04/vba-wia-flip-an-image/

    Se a manipulação de imagens a que você se refere for isso (girar, cortar etc), certamente resolve.

    Ou necessariamente precisa ser o IrfanView?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1025
    Registrado : 23/08/2010

    [Resolvido]Como arrumar esse exemplo Empty Re: [Resolvido]Como arrumar esse exemplo

    Mensagem  Mylton 4/7/2021, 22:43

    Boa noite
    vou anexar um doc com minhas dificuldades.

    Não sei caminhar dq.

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Como arrumar esse exemplo Empty Re: [Resolvido]Como arrumar esse exemplo

    Mensagem  DamascenoJr. 4/7/2021, 22:57

    Você instalou o irfanview indicado?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1025
    Registrado : 23/08/2010

    [Resolvido]Como arrumar esse exemplo Empty Re: [Resolvido]Como arrumar esse exemplo

    Mensagem  Mylton 5/7/2021, 10:57

    Bom dia.
    Realmente não instalei.
    Pelo visto foi isso.
    Saberia onde encontro?
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1025
    Registrado : 23/08/2010

    [Resolvido]Como arrumar esse exemplo Empty Re: [Resolvido]Como arrumar esse exemplo

    Mensagem  Mylton 7/7/2021, 22:52

    Obrigado
    Damasceno.

    Conteúdo patrocinado


    [Resolvido]Como arrumar esse exemplo Empty Re: [Resolvido]Como arrumar esse exemplo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/7/2024, 12:53