VBA Excel - Aprire paint di windows

[ibernet]

Conoscete un modo per aprire PAINT tramite il VBA di Excel?

Ambiente di lavoro:
Windows7/WindowsServer2008

[ibernet]

come non detto.. ci son riuscito:
Sub prova()
Dim a As Double
a = Shell("mspaint.exe", vbNormalFocus)
End Sub