macros - 如何寻址按钮？（OpenOffice 电子表格宏）

Question

我有一个在 OpenOffice 中启动宏的按钮。在宏中，我想更改按钮的名称。Excel的原始代码是

    ActiveSheet.Shapes("PunchButton").select
    Selection.Characters.Text = "Punch In"

但第一行什么都不做。我已经检查了 OpenOffice 中的工作表，并且按钮的名称正确。我怎么去呢？

Answer 1

这里有一段代码显示了如何更改所有按钮的标签和状态，但您想要的按钮除外。

Sub clickCommandButton1
    oPage = Thiscomponent.Sheets.getByName("Sheet1").getDrawPage
    iCount = oPage.getCount
    For i = 0 to iCount - 1
        oEle = oPage.getByIndex(i)
        oControl = oEle.getControl()
        If oControl.DefaultControl = "com.sun.star.form.control.CommandButton" Then
            ' Found command button - change label of other buttons '
            If oEle.Name <> "CommandButton1" Then
                oControl.Label = "Inactive"
                oControl.Enabled = False
            End If
        End If
    Next
End Sub 

我会修改它以遍历所有按钮，但将内部 if 语句更改为 '=" 而不是 "<>" （如果不需要，请删除禁用）。

Answer 2

感谢 Pax，这是我的工作代码。不确定它有多强大，但对于有问题的工作表来说它是有效的。再次感谢，帕克斯。

sub testThis
    setButtonLabel("PunchButton", "hello")
    setButtonLabel("ReportButton", "hello")
end sub

sub setButtonLabel(controlName, label)
    oPage = ThisComponent.CurrentController.ActiveSheet.getDrawPage
    iCount = oPage.getCount
    For i = 0 to iCount - 1
        oControl = oPage.getByIndex(i).getControl
        If oControl.Name = controlName Then
            oControl.label = label
            exit sub
        End If
    Next
end sub