VBAでデバッグモード時のみエラーが発生する

Question

問題

外部からPythonにてVBAの関数を実行したいが、原因不明のエラーが発生する
処理内容としては、チェックボックスのチェックをOnOffするというもの

チェックを手動で押下した時はエラーが発生せずチェックのOnOffができます。
ただし、デバッグモードでブレークポイントを設定し手動でチェックを押すと同様のエラーが発生します。

なぜ外部からの実行時や、ブレークポイント設定時にエラーが発生するかを知りたいです。
解決策が分かればご教授いただければと思います。。

###エラー内容
Excelのポップアップにて以下のエラーが発生します。

ErrNo:13 型が一致しません。
Automationまでご連絡ください。

###コード
該当関数のコードは以下です。

####チェック処理

Public Sub SubShpCheckOnOff()
    On Error GoTo ErrorHandler
'
'    Application.ScreenUpdating = False
    
    Dim ObjName As Variant

    'ＯＫがついていたら消去する
    If stRequest.Range(cnsResult).Text = cnsOK Then
        stRequest.Range(cnsResult).Value = ""
    End If
    
    ObjName = Application.Caller
    
    If ObjName = "" Then
        Application.ScreenUpdating = True
        Exit Sub
        
    End If
    
    'レ オブジェクト名か？
    If Right(ObjName, 2) <> cnsON Then
    
        ObjName = ObjName & cnsON
    
    End If
    
    'レ オブジェクトが非表示⇒表示　表示⇒非表示
    If stRequest.Shapes(ObjName).Visible = True Then
        stRequest.Shapes(ObjName).Visible = False
'        FncshpCheckOnOff = cnsOff
    Else
        stRequest.Shapes(ObjName).Visible = True
'        FncshpCheckOnOff = cnsOn
    End If
    
    
'    Application.ScreenUpdating = True

    Exit Sub

ErrorHandler:
    intMsgReturn = clsMSG.FncDisplaytMsg(stMSG, "0001", "SubShpCheckOnOff", "ErrNo:" & Err.Number & " " & Err.Description)

End Sub

####cnsResult宣言

'*************** セルの名前定義 =依頼票シート= ***************
'入力チェック
Private Const cnsResult     As String = "ResultChk"

####stRequest
stRequest(依頼票)というオブジェクトの中のコード

'受付管理番号が変更された場合は、処理しない。
    If Target.Address(ReferenceStyle:=xlR1C1) = stRequest.Range("SRNo").Address(ReferenceStyle:=xlR1C1) Then
        
        Exit Sub
        
    End If
    
    Application.EnableEvents = False
    
    ActiveWorkbook.Unprotect cnsPassWord
    stRequest.Unprotect cnsPassWord

Comments

[hatena19]

On Error GoTo ErrorHandler をコメントアウトしてから、実行して、エラーがどの行ででたのか提示してください。
あと、stRequest とか cnsOK の宣言部分も提示してください。

[takaotaka]

If ObjName = "" Then
とりあえず、上記の行でエラーが発生しているようでした。
宣言部分は探索中です。

[hatena19]

変数上で右クリックして[定義]をクリックすれば宣言部分へ跳んでくれますよ。

[takaotaka]

本文に追記しました。
stRequestは宣言部がなく、[定義]で跳んだ箇所の部分を載せました。

[hatena19]

この SubShpCheckOnOff はどこから呼び出してますか。
セルのクリック時とか、コントロールのクリック時とか・・・・

[takaotaka]

Excelにチェックボックスが一つ配置されおり、
それをクリックしてチェックを付けた時、また、クリックしてチェックを外した時に呼び出されます。

[hatena19]

シート上にフォームコントロールのチェックボックスが配置されており、それを 右クリック→マクロの登録 で開くダイアログボックスのマクロ名に、SubShpCheckOnOff が設定されているということですか。

[takaotaka]

はい、SubShpCheckOnOffが設定されていることが確認できました。

[hatena19]

チェックボックスにはフォームコントロールとActiveXコントロールがありますが、フォームコントロールで間違いないですか。

Answer 1

解決はしていないですが、、
VBAも配置オブジェクトも変更不可の状況のため、チェック処理は手動で行うこととなりました。。

＞チェックボックスをActiveXのコントロールからフォームコントロールに変更
でできる可能性があるというのが解決策ですね。

回答いただいた方、ありがとうございました。

Answer 2

Application.Callerの影響だと思うんですが
Caller プロパティ (Excel)

ObjNameに代入する前TypeNameでApplication.Callerの状態を判断しないと

Select Case TypeName(Application.Caller) 
 Case "Range" 
 v = Application.Caller.Address 
 Case "String" 
 v = Application.Caller 
 Case "Error" 
 v = "Error" 
 Case Else 
 v = "unknown" 
End Select 
MsgBox "caller = " & v

Comments

[takaotaka]

実施してみた結果、"Error"となっていることが分かりました。
Application.Caller時に上手く取得できていないとかそういうことでしょうか。。

[kuma_kuma_]

Application.Caller時というよりイベント時の呼び出し方の問題でしょう

めんどくさいですが

Public Sub SubShpCheckOnOff(ObjName as String)

にして呼び出す際に指定してみてはどうでしょうか？

[takaotaka]

すみません。今はテストとしてVBAを修正したりはできるのですが、
最終的に修正や追記をすることは禁止されているため、
VBAをそのまま使用する方法で解決を望んでいるのです。。
手動でチェックボックスを操作するとなぜか正常に動くので、VBAそのままでもいけるかなと思ってましたが方法は無いでしょうか。。

[kuma_kuma_]

確認してみました

ActiveXのコントロール "Error"
フォームコントロール "(オブジェクト名)"

ということでチェックボックスを
ActiveXのコントロールからフォームコントロールに変更してみてください
イベントのマクロでActiveXのコントロールで使っていたのを指定すれば
VBAの変更なしでいけます

でもTypeName(Application.Caller)の処理へ変更できないので不安が残ります。

>手動でチェックボックスを操作するとなぜか正常に動くので
イベント登録がおかしいか、途中の判定で処理が終了していませんか？

[hatena19]

VBAを
> 最終的に修正や追記をすることは禁止されている
のなら、何のためにデバッグしているのですか。

また、Pythonなどの外部から操作することは禁止されていないのですが。
外部からの操作に対応するために、VBAの変更が必要なら、VBAの修正追加を許可されている担当者か部門に修正を依頼するしかないのでは。