DrawingTableのSetCellObjectﾒｿｯﾄﾞ機能していない

このメソッドです。
r1 DrawingTable (Object)

既存のテキストをテーブルのセルに突っ込んでしまいたいのですが、
エラーになります。

こんなコードを作りました。

'vba エラーになります using kcl
Option Explicit

Sub CATMain()
    
    Dim dDoc As DrawingDocument
    Set dDoc = CATIA.ActiveDocument
    
    Dim vi As DrawingView
    Set vi = dDoc.Sheets.ActiveSheet.views.ActiveView
    
    Dim tbl As DrawingTable
    Set tbl = KCL.SelectItem("ﾃｰﾌﾞﾙ選択", "DrawingTable")
    If tbl Is Nothing Then Exit Sub
    
    Dim dt As DrawingText
    Set dt = KCL.SelectItem("ﾃｷｽﾄ選択", "DrawingText")
    If dt Is Nothing Then Exit Sub
    
    tbl.ComputeMode = CatTableComputeON
    tbl.SetCellObject 1, 1, dt '←ここでエラー

End Sub

こんな感じのテーブルとテキストを用意します。

マクロを実行し、テーブルを選択した後、テキストを選択します。

エラーになります。
型指定を辞めたりイロイロとやったつもりなのですがダメです。

そもそもGetは兎も角Set出来るのかな？　とは思っていましたよ。
手動でも出来ないから。参照先を変えてくれれば良いだけなんだけどなぁ。

もちろんSetCellStringメソッドは成功するのですが、それでは
属性リンクが無い状態なんです。

検索しても成功事例無し。「ダメだ」と言う情報すら無し。
機能しないのならHelpに載せないで欲しい。