vbaでinkpictureの描画から複数の文字認識結果を取得したいと思います

Question

前提・実現したいこと

エクセルのフォームにinkedit　とinkpiktureを配置しました
'MSINKAUTLib = Microsoft Tablet PC Type Library, version 1.0と
inkeditを参照しています。
inkeditでは単一候補を取得できます
inkpictureは描画はできます
ｖｃ？の例のようにinkpiktureから複数の文字認識候補を取得したいです。

■■な機能を実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

　※１では、「引数は省略できません」
コメントアウトすると
※２では、「オブジェクト変数またはwithブロック変数が設定されていません。」
となりました。

こちらの質問でvbaでinkpictureの画像の解決をされて、追検できました（ブックのフォルダ修正しました）ので
文字認識も、お願いしたいです。

該当のソースコード

ｖｂａです
　ｖｃ？を参考に作ってみました

    Dim recos As InkRecognizers
    Dim reco As IInkRecognizer
    Set reco = recos.GetDefaultRecognizer　※２

            Dim conte As InkRecognizerContext
            Set conte = reco.CreateRecognizerContext
            Set conte.Strokes = InkPicture1.Ink.Strokes
            conte.EndInkInput
           
            Set resu = conte.Recognize　※１

試したこと

いっぱい？試して頭がこながらがっちゃいました。

補足情報（FW/ツールのバージョンなど）

win10　６４ｂｉｔ　エクセル３６５です
ここにより詳細な情報を記載してください。

Answer 1

inkpicture３つ配置して、参考のhttp://blog.wdnet.jp/tech/archives/148さんの
ボタンを付けたら、３文字の各々の認識修正できそうでした。
楕円とか、四角とかの中の文字の認識もできるのかもしれませんが、誰かいませんか～

Private Sub CommandButton2_Click()

'https://teratail.com/questions/111853
'http://blog.wdnet.jp/tech/archives/148

'MSINKAUTLib = Microsoft Tablet PC Type Library, version 1.0
'https://docs.microsoft.com/en-us/windows/win32/tablet/character-autocomplete-sample

Dim recos As InkRecognizers
Dim reco As IInkRecognizer
Set reco = InkEdit1.Recognizer

        Dim conte1 As InkRecognizerContext
        Set conte1 = reco.CreateRecognizerContext
        Set conte1.Strokes = InkPicture1.Ink.Strokes
        conte1.EndInkInput
        
        Dim reso As IInkRecognitionResult
        Set reso = conte1.Recognize(&H41)
        
       reso2 = reso.TopString
       
        Dim conte2 As InkRecognizerContext
        Set conte2 = reco.CreateRecognizerContext
        Set conte2.Strokes = InkPicture2.Ink.Strokes
        conte2.EndInkInput
        
        Set reso = conte2.Recognize(&H42)
        reso2 = reso2 & reso.TopString
        
     
        Dim conte3 As InkRecognizerContext
        Set conte3 = reco.CreateRecognizerContext
        Set conte3.Strokes = InkPicture3.Ink.Strokes
        conte3.EndInkInput
        
        Set reso = conte3.Recognize(&H42)
       reso2 = reso2 & reso.TopString
       

MsgBox reso2
End Sub

Private Sub CommandButton3_Click()

InkPicture1.EditingMode = MSINKAUTLib.InkOverlayEditingMode.IOEM_Ink
InkPicture2.EditingMode = MSINKAUTLib.InkOverlayEditingMode.IOEM_Ink
InkPicture3.EditingMode = MSINKAUTLib.InkOverlayEditingMode.IOEM_Ink

End Sub

Private Sub CommandButton4_Click()
InkPicture1.EditingMode = MSINKAUTLib.InkOverlayEditingMode.IOEM_Delete
InkPicture2.EditingMode = MSINKAUTLib.InkOverlayEditingMode.IOEM_Delete
InkPicture3.EditingMode = MSINKAUTLib.InkOverlayEditingMode.IOEM_Delete

End Sub

Private Sub CommandButton5_Click()
InkPicture1.EditingMode = MSINKAUTLib.InkOverlayEditingMode.IOEM_Select
InkPicture2.EditingMode = MSINKAUTLib.InkOverlayEditingMode.IOEM_Select
InkPicture3.EditingMode = MSINKAUTLib.InkOverlayEditingMode.IOEM_Select

End Sub

Answer 2

解決しました～
inkeditとMicrosoft Tablet PC Type Library, version 1.0と
Microsoft InkDivider Type Libraryに参照いれて
フォームにinkeditとinkpictureとボタン配置して、

Private Sub CommandButton2_Click()

'https://teratail.com/questions/111853
'http://blog.wdnet.jp/tech/archives/129

'MSINKAUTLib = Microsoft Tablet PC Type Library, version 1.0
'https://docs.microsoft.com/en-us/windows/win32/tablet/character-autocomplete-sample

Dim recos As InkRecognizers
Dim reco As IInkRecognizer
Set reco = InkEdit1.Recognizer

        Dim conte As InkRecognizerContext
        Set conte = reco.CreateRecognizerContext
        
        Set conte.Strokes = InkPicture1.Ink.Strokes
        conte.EndInkInput
        Dim reso As IInkRecognitionResult
        Set reso = conte.Recognize(&H41)
        
      Set alts = reso.AlternatesFromSelection
    For Each alt In alts
        ResultString = ResultString + vbCr & alt.String
    Next alt
  

MsgBox ResultString
で、１０個の候補が出ました～
古い遊びですが、遊んでたら、新しいの出ますか？

Answer 3

もう一つ解決しました！！
Private Sub CommandButton2_Click()

'https://teratail.com/questions/111853
'http://blog.wdnet.jp/tech/archives/129

'MSINKAUTLib = Microsoft Tablet PC Type Library, version 1.0

'https://docs.microsoft.com/en-us/windows/win32/tablet/character-autocomplete-sample
Dim recos As InkRecognizers
Dim reco As IInkRecognizer
Set reco = InkEdit1.Recognizer

        Dim conte As InkRecognizerContext
        Set conte = reco.CreateRecognizerContext
        
        Dim st As InkStrokes
        Set conte.Strokes = InkPicture1.Ink.Strokes
        conte.EndInkInput
        Dim reso As IInkRecognitionResult
        Set reso = conte.Recognize(&H41)
   

MsgBox reso.TopString

End Sub
で、やっと単独認識できました！あとは複数認識です！！
誰か本当にいませんか～～？？

Answer 4

まだ未解決ですが、
参照でMicrosoft InkDivider Type Libraryにチェックを入れたら
探していたIInkRecognitionResultがDim出来るようになりました。
もう少しな気がしますが、誰か本当にいませんか～？

Answer 5

未解決ですが、※２のエラーが回避できて、
recognizerを設定できたようでした？
inkeditもinkpictureも同じ認識エンジンを使用してるらしかったので
同じフォームにあるinkeditのrecognizerを拝借する→
Set reco = recos.GetDefaultRecognizerを
Set reco = inkedit.recognizerと変更したらエラーが出なくなりました。
後は下部の認識依頼の部分でないかと・・・誰か助けて下さい

　参考にしてるのは、http://blog.wdnet.jp/tech/archives/148さんです