Jump to content

Abrir o PAINT no Excel


Recommended Posts

    Bom dia,

    Não duvidando que tenhas procurado, permite-me o reparo, "Mais importante do que procurar, é saber o que procurar!".

Shell ("mspaint")

    Assim já consegues "executar o paint partir de VBA dentro do excell.

Cordiais cumprimentos,

Apocsantos

"A paciência é uma das coisas que se aprendeu na era do 48k" O respeito é como a escrita de código, uma vez perdido, dificilmente se retoma o habito"

Link to comment
Share on other sites

Boa noite

De facto essa do mspaint já tinha descoberto, mas obrigado na mesma.

Já abre, já copia o que eu quero, mas não estou a conseguir "Guardar" com o nome que eu quero, de forma automática.

Haverá alguma instrução que faça o Save da forma que eu pretendo?

Obrigado mais uma vez

Link to comment
Share on other sites

Viva

Então aí vai o que já tenho:

Sub teste()
Worksheets("Quadro").Activate
novonome = caminho

    Range("A3:F39").Select
    Application.CutCopyMode = False

    Selection.Copy
    
    Shell ("mspaint")
    
    Application.Wait (Now + TimeSerial(0, 0, 10)) 'Wait for Paint to load

    SendKeys "^v"   'Paste
    novonome = novonome & "novonome.jpg"
    SendKeys "^g"   'Paste

    Application.Save (novonome)
  
    SendKeys "%{F4}"    'Close shell application

    Range("F1").Select

End Sub

sendo caminho o path do ficheiro.

Neste momento, com aquele Application.Save (penso que nem sequer é a instrução correcta) faz o Save do ficheiro mas não consigo abrir com o Paint.

Nota: Também me servirá se eu puder fazer a mesma coisa com o PowerPoint em vez do Paint.

Thanks again

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.