Excel VBA Shapes Planilha 46 deletar shapes em grafico

Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções

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

Excel VBA Shapes 46 deletar shapes em gráfico

Com este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application),vamos aprender como deletar um Shapes(autoforma) na Area do Gráfico Deletar Shapes na area do gráfico, na folha de planilha do excel, e será emitida uma mensagem perguntando se voce quer ou não deletar o shapes em questão, pergunta se estenderão a todos os shapes na área do grafico.
‘//=======’ EM UM MÓDULO COMUM INSIRA O CÓDIGO
Sub sbx_deletar_shapes_area_grafico()
  ‘lançamento a partir do vba
ActiveSheet.ChartObjects(1).Activate
For Each c In ActiveChart.Shapes
ActiveChart.Shapes(c.Name).Select
vCores= Selection.ShapeRange.Line.ForeColor.SchemeColor  ‘ cor antiga
Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
If MsgBox(“Deseja Deletar Esse Shapes? [ ” & c.Name & ” ]  ?”, vbYesNo, “Escola Saberexcel VBA Estudos®”) = vbYes Then
c.Delete
Else
Selection.ShapeRange.Line.ForeColor.SchemeColor = vCores
End If
Next c
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.

Compre pelo PagSeguro		Compre pelo PayPal

Material Didático: Curso Excel VBA Expert

SBI Excel VBA Shapes 46 deletar shapes em gráfico