Ocultar uma caixa de controle no Excel

Question

Eu tenho alguns botões de opção no Excel (2011 Mac) e eles são agrupados por uma caixa de grupo.

Eu quero tornar a caixa do grupo invisível. Eu procurei na internet e descobri que eu poderia fazer isso com o VBA digitando:

ActiveSheet.GroupBoxes.Visible = False

na janela do VBA que corresponde à planilha relevante. Eu fiz isso, mas parece não haver diferença. Tenho que fazer outra coisa para ativar a mudança?

    

Answer 1

Tente chamá-lo especificamente pelo nome

ActiveSheet.Shapes("Group Box 1").Visible = False

Certifique-se de que Application.ScreenUpdating = True , por exemplo,

Sub hidethings()
Application.ScreenUpdating = False
ActiveSheet.Shapes("Group Box 2").Visible = False
Application.ScreenUpdating = True
End Sub

Se você tem um monte que você quer esconder você pode fazer algo assim -

Sub tellme()
Dim thing As Shape
For Each thing In ActiveSheet.Shapes
 If thing.FormControlType = xlGroupBox Then
   thing.Visible = msoFalse
 End If
Next
End Sub

    

Answer 2

Parece que você digitou uma linha do código VBA, mas não a colocou em uma sub-rotina que pode ser executada. Por isso, o que você fez não tem efeito.

Tente o seguinte:

1. Abra o painel do editor de VBA pressionando Alt + F11 .
2. Na janela que é aberta, insira um novo módulo clicando em Insert > Module .

3. Na caixa de texto exibida, cole o seguinte:

   Sub HideBoxes()
   ActiveSheet.GroupBoxes.Visible = False
   End Sub
   

4. Coloque o cursor em qualquer lugar dentro do código e pressione F5 para executar o código.

Isso deve ocultar as caixas de grupo na planilha ativa.