customUIでトグルボタンのラベル変更方法について

Question

Excelのリボンにオリジナルのボタンを追加しマクロを割り当てようと
しているのですが、なかなかうまく行かず困っております・・・
どなたかお力添えいただけますようお願い致します。

実現したいのは、添付の画像のようにトグルボタン操作でメール送付では
列表示、印刷用で不要な列を非表示にするような仕掛けを作りたいと
考えています。

Google検索では、コマンドボタン操作でトグルボタンのラベルまたは
ON/OFFを切り替えるサンプルはあるのですが、直接トグルボタン操作で
のサンプルが見当たらず・・・

添付のコードをもとにあれ足したり、入れ替えたりやっているのですが
お手上げ状態で・・・

何卒よろしくお願いいたします。

'CustomUIモジュールのコード
Public tglStatus As Boolean 'トグルボタンON/OFF(True or False)
Public tglLabel As String
Public LVC As IRibbonUI 'リボンを格納

Sub LongVideoCheck_Initialize(Ribbon As IRibbonUI)
    Set LVC = Ribbon
    tglStatus = False
    tglLabel = "メール送送付"
    LVC.InvalidateControl "tglColumnHiden"
End Sub

Sub tglColumnHiden_getPressed(Control As IRibbonControl, ByRef returnValue)
    returnValue = tglStatus
End Sub

Sub tglColumnHiden_getLabel(Control As IRibbonControl, ByRef returnValue)
    returnValue = tglLabel
End Sub

Sub tglColumnHiden_onAction(Control As IRibbonControl, pressed As Boolean)
    tglStatus = pressed
    LVC.InvalidateControl "tglColumnHiden"
End Sub

<!-- 'customUI14.xmlのコード -->
<?xml version="1.0" encoding="UTF-8" ?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="LongVideoCheck_Initialize">
	<ribbon>
		<tabs>
			<tab id="LongVideoCheck" label="保守ツール①">
				<group id="MakeLongVideo" label="長尺一覧作成">
					<button id="btnImport" label="インポート" size="large" onAction="Main.LogImport"/>
					<toggleButton id="tglColumnHiden"
						size="large"
						getLabel="CustomUI.tglColumnHiden_getLabel"
						getPressed="CustomUI.tglColumnHiden_getPressed"
						onAction="CustomUI.tglColumnHiden_onAction"/>
				</group>
			</tab>
		</tabs>
	</ribbon>
</customUI>

Answer 1

トグルボタンのon/offの切り替え時に，tglColumnHiden_getPressedが呼ばれたのち，tglColumnHiden_getLabelが呼ばれます．
この時にラベルを正しく渡さなくてはいけません．

Sub tglColumnHiden_getLabel(Control As IRibbonControl, ByRef returnValue)
    
    If tglStatus Then
        returnValue = "印刷用"
    Else
        returnValue = "メール送送付"
    End If

End Sub