[RESUELTO] Botón de formulario abre calculadora

[dunhill1]

Hola gente, estuve buscando en el foro y no encontre algo parecido.
Me podrian explicar como poder abrir la calculadora desde un botón en un formulario?
Muchas gracias !

[Longi]

Buenas!
Te dejo aquí una macro que seguro que los que saben se retuercen de risa por lo poco ortodoxo del código, pero en Windows10 me funciona (no valdría para linux).
Solo tienes que asociarla a un botón.

Un saludo!

Código: Seleccionar todo

Sub Calcul

    Dim URL,WshShell,i                                        
    set oShellObj = CreateObject("Shell.Application")
    oShellObj.FileRun
    Wait 10
    set oWSObj1 = CreateObject("WScript.Shell")                          
    oWSObj1.SendKeys "{BS 10}"                                          
    oWSObj1.SendKeys "Calc"
    oWSObj1.SendKeys "{ENTER}"         

End sub

[mauricio]

En Linux Mint usas:

Código: Seleccionar todo

Shell("gnome-calculator", 0)

Para los que preferimos Python, en vez del lento y aburrido Basic.

Código: Seleccionar todo

import os
os.system('gnome-calculator')

Saludos

[dunhill1]

Gracias a los dos por la pronta respuesta he copiado los tres códigos. Estoy en linux mint
El que me ha funcionado fue

Sub Calculadora
shell("gnome-calculator", 0)

End Sub
Con este comando
import os
os.system('gnome-calculator')

Salio Error de ejecución de BASIC.
Subprocedimiento o procedimiento de función no definido

Macro asignada a los sucesos del boton, boton del ratón pulsado.

Doy como resuelto el tema, muchas gracias

[mauricio]

Claro, son lenguajes diferentes, no puedes mezclarlos.