vba - "(blank)"的本地化

Question

我想在 VBA 中控制切片器，并想检查是否选择了空值，使用:

If slicerCache.SlicerItems.Item("(blank)").selected = True

空值会自动获得标签(空白)。这一切都工作正常，直到在非英语计算机上打开工作簿。例如。在荷兰语中，标签是 (leeg)，在法语中，标签是 (vide)。

如何获取此标签的本地化版本？

在 this link 2009 年有人提出了完全相同的问题，但没有得到任何答案。

Answer 1

这有点像黑客，可能有更好的方法，但它很实用并且适用于所有语言，前提是“空白”始终由开始的左括号和结束的右括号表示，并且切片器列表中没有其他值同时包含起始开放括号和结束封闭括号。

For Each si In SlicerCache.SlicerItems

    'EDIT: I originally wrote this, but the one below is more precise
    'If InStr(si.Name, "(") And InStr(si.Name, ")") Then
    If Left(si.Name,1) = "(" And Right(si.Name,1) = ")" Then 

        If si.Selected = True Then MsgBox si.Name & " is set to True"

    End If

Next