Excel VBA, чтобы изменить подпись на кнопке командной строки Excel

Question

Я ищу Excel VBA, чтобы изменить подпись на кнопке командной строки Excel на лету. Заголовок по умолчанию должен быть «Показать разницу» и должен измениться на «Показать все», когда применяется фильтр.

Это то, что у меня есть до сих пор.

Sub ShowDifference() 
Dim cmdButton As CommandButton 

«Breaks Здесь

Set cmdButton = ActiveSheet.Shapes("cmdShowDif") 


If cmdButton.Caption = "Show Difference" Then 
    ActiveSheet.ListObjects("qryDifference").Range.AutoFilter Field:=4, _ 
    Criteria1:=Array("<>0.00"), Operator:=xlAnd 
    cmdButton.Caption = "Show All" 
Else 
    ActiveSheet.ListObjects("qryDifference").Range.AutoFilter Field:=4 
    cmdButton.Caption = "Show Difference" 
End If 

End Sub 

Он ломает на имя суб. Зачем?

Ошибка:

Answer 1

Вот рабочий код:

Sub ShowDifference() 

Dim cmdButton As Button 

Set cmdButton = ActiveSheet.Buttons("cmdShowDif") 

If cmdButton.Caption = "Show Difference" Then 
    cmdButton.Caption = "Show All" 
Else 
    cmdButton.Caption = "Show Difference" 
End If 

End Sub 

Кроме того, вы также можете использовать следующий код:

Sub ShowDifference() 

Dim cmdButton As Button 

For Each cmdButton In ActiveSheet.Buttons 
    If cmdButton.Name = "cmdShowDif" Then 
     If cmdButton.Caption = "Show Difference" Then 
      cmdButton.Caption = "Show All" 
     Else 
      cmdButton.Caption = "Show Difference" 
     End If 
    Else 
     Debug.Print cmdButton.Name & " is not the one... moving to next button..." 
    End If 
Next cmdButton 

End Sub 

Дайте мне знать, если возникнут какие-либо вопросы.

Answer 2

Перейдите на вкладку Разработчик и выберите режим Design. Теперь выберите CommandButton. Имя кнопки появится в поле имени - слева от панели формул. Измените эту строку

Set cmdButton = ActiveSheet.Shapes("cmdShowDif") 

к

Set cmdButton = ActiveSheet.OLEObjects("cmdShowDif").Object 

Но что использует правильное имя вместо cmdShowDif (или изменить имя в поле Имя для cmdShowDif