Excel VBA自动重命名复选框

Question

我目前正在处理几个带有许多复选框的Excel工作表。当您输入复选框时，它的名称为CheckBox1、CheckBox2等，但是否可以自动重命名它们？在我的代码中，我现在必须将所有复选框重命名为Rij11_1、Rij11_2等。

如果这可以一行一行地自动完成，将为我节省大量时间。

有人知道怎么做吗？

非常感谢!

致以亲切的问候，马克

Answer 1

假设复选框位于代号为Sheet1的工作表上

Sub test()

Dim obj As OLEObject, ChkBoxRow as long

ChkBoxRow = 1 'Only change checkboxes with topleft corner in row 1

With Sheet1
'Loop AX controls
For Each obj In .OLEObjects
    'Check for checkbox only
    If TypeName(obj.Object) = "CheckBox" Then

        'Examples to identify location (as suggested by Dick Kusleika)
        'ChkBoxRow = obj.TopLeftCell.Row
        'ChkBoxCol = obj.TopLeftCell.Column
        'ChkBoxAdd = obj.TopLeftCell.Address

        'ChkBoxRow = obj.BottomRightCell.Row
        'ChkBoxCol = obj.BottomRightCell.Column
        'ChkBoxAdd = obj.BottomRightCell.Address
        'etc

        if obj.TopLeftCell.Row = ChkBoxRow then
           obj.Name = "Rij11_" & Right(obj.Name, Len(obj.Name) - 8)
        end if

    End If
Next obj
End With
End Sub

我已经更新了Dick Kusleika前几天指出的一个很好的方法来定位复选框所在的位置。您可以测试If obj.TopLeftCell.Row = 1 Then等