Notifications
Clear all

Macro para ativar o Paint

6 Posts
3 Usuários
0 Reactions
1,150 Visualizações
(@celri_33)
Posts: 0
Estimable Member
Topic starter
 

Galera, bom dia!

Como crio um código que vai até o botão iniciar do PC e ativa as opções la dentro como por exemplo o Paint?

 
Postado : 24/03/2015 8:19 am
Issamu
(@issamu)
Posts: 605
Honorable Member
 

Olá!
Para abrir uma aplicação é utilizado o comando SHELL. Por exemplo, para abrir o Paint o código seria:

Sub paint()

Shell "C:/WINDOWS/SYSTEM32/mspaint.exe"

End Sub

Para aprender mais sobre o comando, sugiro o link do site de um amigo meu:

http://www.ambienteoffice.com.br/officevba/abrir_arquivos_programaticamente/

Abraços!

Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/

 
Postado : 24/03/2015 8:24 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Celri

Bom Dia!

Tente assim:

Sub AtivarPrograma()
    a = Shell("C:windowssystem32mspaint.exe", vbNormalFocus)
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 24/03/2015 8:27 am
(@celri_33)
Posts: 0
Estimable Member
Topic starter
 

Celri

Bom Dia!

Tente assim:

Sub AtivarPrograma()
    a = Shell("C:windowssystem32mspaint.exe", vbNormalFocus)
End Sub

Amigos, os dois códigos funcionaram perfeitamente, obrigado!
Mas tentei adapta-los para abrir o excel, não consegui...Tem como? Assim o código seria o mesmo? (claro readaptando)

 
Postado : 24/03/2015 8:37 am
Issamu
(@issamu)
Posts: 605
Honorable Member
 

Para abrir uma nova janela do Excel use o código:

Sub AddNew()
Dim NewBook As Excel.Workbook
Set NewBook = Workbooks.Add
End Sub

Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/

 
Postado : 24/03/2015 8:43 am
(@celri_33)
Posts: 0
Estimable Member
Topic starter
 

Obrigado pela atenção, todos os códigos funcionaram perfeitamente!

 
Postado : 24/03/2015 8:45 am