Zajimavy dotaz - protoze neznam odpoved, zkousel jsem patrat a googlit, ale nikde jsem nenasel uspokojivou odpoved, ktera by fungovala.
Jedine reseni, ktere vidim je tedy pouzit metodu SendKeys, ktera simuluje stiknuti klaves na klavesnici - ALE TADY POZOR - je opravdu velmi nutne tuto metodu pouzivat je tam, kde si budete jisti, ze udela to spravne, protoze muze napachat hodne skody!
V prikladu nize metodu pouziji v MsgBoxu, kde budu chtit, aby vybrala tlacitko NE, ktere neni pri objeveni se MsgBoxu aktivni (musi se nedriv stiknout sipka doprava a pote teprve Enter) - podobne byste to mohl vyuzit pro automaticke odkliknuti hlasky, ktera vas otravuje.
Sub neco()
Dim Zprava As VbMsgBoxResult
Application.SendKeys ("{RIGHT}" & "{ENTER}")
'simuluje vybráni tlacitka NE v MsgBoxu (nejdriv posun sipkou doprava a stisk ENTER)
Zprava = MsgBox("Co chcete udelat", vbYesNo, "Nazev")
Select Case Zprava
Case vbYes
MsgBox "Vybráno ANO"
Case vbNo
MsgBox "Vybráno NE"
End Select
End Subcitovat
Jedine reseni, ktere vidim je tedy pouzit metodu SendKeys, ktera simuluje stiknuti klaves na klavesnici - ALE TADY POZOR - je opravdu velmi nutne tuto metodu pouzivat je tam, kde si budete jisti, ze udela to spravne, protoze muze napachat hodne skody!
V prikladu nize metodu pouziji v MsgBoxu, kde budu chtit, aby vybrala tlacitko NE, ktere neni pri objeveni se MsgBoxu aktivni (musi se nedriv stiknout sipka doprava a pote teprve Enter) - podobne byste to mohl vyuzit pro automaticke odkliknuti hlasky, ktera vas otravuje.
Sub neco()
Dim Zprava As VbMsgBoxResult
Application.SendKeys ("{RIGHT}" & "{ENTER}")
'simuluje vybráni tlacitka NE v MsgBoxu (nejdriv posun sipkou doprava a stisk ENTER)
Zprava = MsgBox("Co chcete udelat", vbYesNo, "Nazev")
Select Case Zprava
Case vbYes
MsgBox "Vybráno ANO"
Case vbNo
MsgBox "Vybráno NE"
End Select
End Subcitovat
RSS nejnovější články