Drawのﾃｷｽﾄｻｲｽﾞを変更する

"Drawのﾃｷｽﾄｻｲｽﾞを変更したけど反映されない?" のような
ご相談を頂きましたが、ちょっと状況がわからないので、
現象を再現できないでいます。

ｸﾘｯｸしたﾃｷｽﾄのｻｲｽﾞを2倍にするだけのﾃｽﾄｺｰﾄﾞです。

'vba test_DrawTextSize_Double
'using-'KCL0.0.10'
'DrawTextｻｲｽﾞを2倍にする

Sub CATMain()
    'ﾄﾞｷｭﾒﾝﾄのﾁｪｯｸ
    If Not KCL.CanExecute("DrawingDocument") Then Exit Sub
    
    Dim Msg$: Msg = "テキストを選択して下さい : ESCｷｰ 終了"
    Dim Dt As DrawingText
    Dim DtSize#
    
    Do
        Set Dt = KCL.SelectItem(Msg, "DrawingText")
        If KCL.IsNothing(Dt) Then Exit Do
        DtSize = Dt.GetFontSize(0, 0) 'ｻｲｽﾞ取得
        Dt.SetFontSize 0, 0, DtSize * 2 'ｻｲｽﾞ設定
    Loop
End Sub

ｲﾛｲﾛあり、今までR2012を使用していたのでKCLがVBA7に未対応な
状態でしたので、修正しました。
他にも修正したい部分はあるのですが、時間が無く････。