1

いくつかのグループを含む単純なリボンがあります。

リボンにあるグループの表示を切り替えるには、VBA を使用してこのリボンを変更する必要があります。Range("A1") のセル値が "A" であるとします。その後、このグループが表示されます。空の場合は非表示になります。

そのリボンの XML は次のとおりです。切り替える必要があるグループは次のとおりです。

<group id="rxGrp_DeveloperTools" label="Developer Tools">
4

1 に答える 1

2

リボン グループに次のマークアップを試してください。

&lt;group id="rxGrp_DeveloperTools" label="Developer Tools" getVisible="rxGrp_DeveloperTools_GetVisible"&gt;

次に、このようなサブを使用して、グループを表示/非表示にします。

Sub rxGrp_DeveloperTools_GetVisible(control As IRibbonControl, ByRef bVisible)

    Dim sht as Worksheet
    Set sht = ActiveWorkbook.Sheets(1)

    If sht.Range("A1").Value = "A" Then
        bVisible = True
    Else
        bVisible = False
    End If

End Sub
于 2013-11-23T16:37:40.203 に答える