Word VBA: 访问单击的 ActiveX 复选框

Question

我的 table 文档中有多个 ActiveX 复选框。他们都在调用相同的函数。

使用 Selection.Cells(1).RowIndex 和 Selection.Cells(1).ColumnIndex 我可以找到复选框的 table 单元格。

有没有可能我也可以获得点击复选框的值？我只能找到这段代码：ActiveDocument.Shapes(1).OLEFormat.Object.Value。但是这段代码引用了一个单独的复选框。

我需要引用刚刚单击的复选框。

这可能吗？如果可以的话如何？

Answer 1

试试这样的东西：

Dim c As Cell
Set c = Selection.Cells(1)
Debug.Print c.Range.InlineShapes(1).OLEFormat.Object.Value

Word VBA: Accessing clicked ActiveX Checkbox