[Blue Prism] ロボットをしゃべらす

ちょっと自動化しているときにしゃべらしたいな～(ってシチュエーションがわからん)と思って作りました。
Excelにしゃべらす内容を書いてRangeで指定します。
一から作るのは面倒なのでExcel VBOを拡張します。
今回は「Speak」と名付けました。

オブジェクト

Speak

入力

入力

SpeakDirection

読み上げる順序を指定します
XlSpeakDirectionnの値なのですが、数値で指定します。

xlSpeakByRows(0)

xlSpeakByColumns(1)

コード

Dim ws As Object

ws = GetWorksheet(Handle, Workbook, Worksheet)

ws.Activate()

ws.Range(Range).Speak(Direction, False)

これでしゃべります。
ＲＰＡは裏方なのであまりしゃべるシチュエーションは無いんですが、朝、全部のロボットがいきなりしゃべりだしたら面白いかなとw