Como alterar a legenda da caixa de seleção activeX no valor da célula excel

Question

Eu tenho duas caixas de seleção activeX (checkbox7 e checkbox10) e gostaria que a legenda que é mostrada ao lado da caixa de seleção fosse alterada com o valor da célula Sheet1 J13. J13 pode alterar o valor por uma instrução IF

Eu tentei algumas coisas. Tentei usar um código que encontrei on-line, mas foi para criar várias caixas de seleção a partir do zero e, em seguida, alterar a legenda. Eu estava tentando isolar a parte em que eles mudam a legenda e a duplicam, mas isso não fez nada para mim.

Isso é o que eu tenho agora:

>     Sheets("Customer View").OLEObjects("CheckBox7").Object.Caption = Sheets("Customer View").Range("J13").Value
    Sheets("Customer View").OLEObjects("CheckBox10").Object.Caption = Sheets("Customer View").Range("J13").Value

Obrigado

    

Answer 1

Acabei de usar a solução mais simples: deixe a legenda da caixa de seleção vazia e posicione a caixa de seleção para que ela fique alinhada com uma célula vazia. Então eu apenas uso essa célula para mostrar o texto que eu quero.

    

Answer 2

Você está perdendo algumas aspas duplas na função Range () :

Sub qwerty()
   With Sheets("Customer View")
      .OLEObjects("CheckBox7").Object.Caption = .Range("J13").Value
   End With
End Sub