excelde hesap makinası açma

[Gaffur]

Daha önce incelemiş olduğum bir örnekte gördüğüm Userform üzerine eklenmiş bir buton ile çağırılan windows hesap makinası vardı. Bu örneği veya benzer bir uygulamayı şimdi forumda çok aramama rağmen tekrar bulamadım.

Hesap makinesini excelde açacak vba kodu nedir ?
Örneğin;
Application.Dialogs(xlDialogPrinterSetup).Show
yazdığımızda printer menüsü geldiği gibi...

 

[Zeki Gürsoy]

shell "calc.exe"

 

[Murat OSMA]

Deneyiniz;

[SIZE="2"]sub makine()
shell "calc.exe", 1
end sub[/SIZE]

 

[Murat OSMA]

Pardon Zeki Bey, mesaj yazdığınızı görmedim...

 

[Merhum İdris SERDAR]

.

Buraya da bakınız:

http://www.excel.web.tr/f135/windowsun-aksesuarlary-t87074.html


.

 

[Gaffur]

teşekkürler

 

[Seyit Tiken]

Alternatif :

Application.ActivateMicrosoftApp Index:=0
Application.ActivateMicrosoftApp Index:=1
Application.ActivateMicrosoftApp Index:=2

 

[Murat OSMA]

Solitaire için;

Application.ActivateMicrosoftApp Index =0