Excel VBA Shapes Planilha 50 criar grafico shapes gif
Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), vamos exportar uma imagem *.gif para um Objeto Gráfico, para voce ver o efeito insere um condição IF no macro e 1 na célula E1, se for igual 1, deletará o gráfico GIF, criado.
Sub sbx_exportar_shapes_forma_gif()
Set s = ActiveSheet.Shapes(“sbx_01″)
s.Copy
With ActiveSheet
.ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste
.ChartObjects(1).Border.LineStyle = 0
.ChartObjects(1).Chart.Export Filename:=”sbxIMAGEM.gif”, FilterName:=”gif”
If [e1].Value = 1 Then
.Shapes(ActiveSheet.Shapes.Count).Delete
MsgBox (“Gif gráfico correspondente foi criado e deletado!”), vbInformation,
“Escola Saberexcel VBA Estudos®”
End If
End With
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 |
Baixe o exemplo de planilha contendo os macros acima: |
Excel VBA Shapes Planilha 50 criar gráfico shapes gif |
<< Verifique em sua Caixa de Itens Excluídos Também >> |
Excel VBA Shapes Planilha 50 criar gráfico shapes gif