vba 如何交换commandbutton1.caption钮与第N个命令按钮标题？

Question

想在excelvba中，有若干个命令按钮，我会交换第1按钮和第2按钮的标题，现在希望交换第1按钮与第N个按钮标题交换，代码中的commandbutton?.caption中的？如何现实呢？

Answer 1

Sub ShiShi()

'举例，当前工作表中共有四个ActiveX按钮

With ActiveSheet

'记住第一个按钮的标题

Dim name1 As String

name1 = .CommandButton1.Caption

'遍历，每一个按钮的标题=下一个按钮的标题

Dim i As Integer, s As String

For i = 1 To 4

If i = 4 Then

s = name1

Else

s = .Shapes("CommandButton" & i + 1).OLEFormat.Object.Object.Caption

End If

.Shapes("CommandButton" & i).OLEFormat.Object.Object.Caption = s

Next

End With

End Sub