VBA Planilha Shapes Excel 45 deletar shapes preservar botões

Planilha Excel VBA Shapes 45 deletar shapes preservar botoes

PROMOÇÃO ESPECIAL – CURSO EXCEL VBA EXPERT – SABEREXCEL VBA ESTUDOS Adquirir o Material Didático

Excel VBA Shapes Planilha 45 deletar shapes preservar botões

DELETANDO todos as autoformas exceto os botões

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), deleta todos os shapes exceto os botões também insere uma segurança no evento (BeforeSave), para voce não danificar a planilha, que deverá ser reaberta para refazer o teste, pois deletam as autoformas.

Sub sbx_deletar_todos_exceto_botoes()
For Each i In ActiveSheet.Shapes
If i.Type <> 8 And i.Type <> 12 Then
ActiveSheet.Shapes(i.Name).Delete
End If
Next i
End Sub
‘//======= ‘Deletar todos os shapes que estão na coluna(B) na folha de planilha excel
Sub sbx_deletar_shapes_na_coluna_b()
For Each s In ActiveSheet.Shapes
If s.TopLeftCell.Column = 2 Then
s.Delete
End If
Next s
End Sub
‘//============’
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Cells(1, 1).Value <> 1 Then
MsgBox (“insira numero 1 na célula A1 para salvar”), vbCritical, “Escola Saberexcel VBA Estudos®”
Cancel = True
Exit Sub
End If
Cells(1, 1).Value = “”
End Sub

Private Sub Workbook_Open()
Application.Caption = “Escola SaberExcel VBA Estudos®”
End Sub

.
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.