Excel Planilha VBA Shapes 30 mostrar ocultar shapes menu

PROMOÇÃO ESPECIAL – EXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos

Excel Planilha VBA Shapes 30 mostrar ocultar shapes menu

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), ocultará ou mostrará determinados shapes.
Observe que somente afetará os shapes que não tiver um “x” no inicio do nome, mas não será oculto e sim mudaremos a cor da fonte e borda do shapes para branco, isto é da cor da folha de planilha, então fica invisivel. MENU PERSONALIZADO: EVENTO ACTIVATE ‘Ao ativar a folha de planilha’, o evento insere um menu personalizado chamando os dois macros, veja na ABA DE MENU (Suplementos – 2010) e ao desativar, isto é ao sair da folha de planilha deleta o Menu Personalizado

‘//============’
Sub VisualiseShapes()
On Error Resume Next
For Each c In ActiveSheet.Shapes
s = c.Name
If Left(s, 1) <> “x” Then
ActiveSheet.Shapes(s).Select
Selection.Font.ColorIndex = 0
Selection.ShapeRange.Line.ForeColor.SchemeColor = 0
End If
Next c
End Sub
‘//============’
Sub sbx_ocultar_shapes()
On Error Resume Next
For Each c In ActiveSheet.Shapes
s = c.Name
If Left(s, 1) <> “x” Then
ActiveSheet.Shapes(s).Select
Selection.Font.ColorIndex = 2
Selection.ShapeRange.Line.ForeColor.SchemeColor = 9
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
End If
Next c
Range(“A1”).Select
End Sub
‘//======’ CRIAR UM BOTÃO NA BARRA DE FERRAMENTAS LIGADO AOS MACROS
ao ativar a folha de planilha cria item de menu com botões personalizados.
‘
Private Sub Worksheet_Activate()
Dim barra As CommandBar
Dim botao As CommandBarControl
On Error Resume Next
CommandBars(“BarraCorrigir”).Delete
Set barra = CommandBars.Add(Name:=”BarraCorrigir”)
barra.Visible = True

Set botao = CommandBars(“BarraCorrigir”).Controls.Add(Type:=msoControlButton)
botao.Style = msoButtonCaption
botao.OnAction = “sbx_visualizar_shapes”
botao.Caption = “Visualizar Shapes”

Set botao = CommandBars(“BarraCorrigir”).Controls.Add(Type:=msoControlButton)
botao.BeginGroup = True
botao.Style = msoButtonCaption
botao.OnAction = “sbx_ocultar_shapes”
botao.Caption = “Ocultar Shapes”
End Sub
‘//==== ao desativar a folha de planilha deleta os botões personalizados

Private Sub Worksheet_Deactivate()
On Error Resume Next
CommandBars(“BarraCorrigir”).Delete
End Sub