0

サブ (OnAction) を呼び出してツールバー コントロールから引数を渡そうとしていますが、「マクロを実行できません。マクロを使用できない可能性があります」というメッセージが表示され続けるため、呼び出すことができないようです。

コントロールはワークブックにあり、関数はモジュールにあります。

Option Explicit

Sub somefunction(Optional ServerType As String) End Sub

コントロールのコードは次のとおりです。

With ToolsMenuControl

    .Caption = "some caption"
    .OnAction = "'" & ThisWorkbook.Name & "'!someFunction ""Wintel""'"
    .Tag = C_TAG

End With

ご意見をお聞かせください。

4

2 に答える 2

1

正しい.OnAction property割り当ては、ファイルが保存されているかどうかによって異なるようです。したがって、以下に示す可能な構文があります。

    If ThisWorkbook.Saved Then
        'when your file is saved
        .OnAction = "'" & ThisWorkbook.Name & "'!'somefunction ""Saved""'"
    Else
        'when file is not saved
        .OnAction = ThisWorkbook.Name & "!'somefunction ""Not Saved""'"
    End If
于 2013-08-08T09:47:26.733 に答える