Propósito

✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.

.: Vitrine

Carregando artigos...

Views

Mostrando postagens com marcador active chart. Mostrar todas as postagens
Mostrando postagens com marcador active chart. Mostrar todas as postagens

VBA Excel - Exportando o gráfico como imagem GIF - Export Picture of Active Chart




Acredito ser uma dica extremamente útil quando desejar exportar uma imagem diretamente para um arquivo .GIF.

Sub ExportChartGIF()

Dim nPath as String

let nPath="C:\Bernardes\GIFs_Charts\Chart.gif"

ActiveChart.Export filename:= nPath, FilterName:="GIF"
End Sub

Tags: VBA, Excel, chart, graph, export, image, GIF, picture, active chart


Nenhum comentário:
Tags: , , , , , , , ,

VBA Excel - Apague todos os gráficos da planilha - Delete All Charts in Workbook




Todas as Você precisa ter algum cuidado ao utilizar este código, pois ele apaga todos os gráficos na pasta de trabalho ativa, e também é útil quando você quer limpar as coisas e começar de novo.


Sub AllChartsDelete()

On Error GoTo ExitChart


Dim ws As Worksheet

Dim chObj As ChartObject


  Let Application.DisplayAlerts = False

  'delete embedded charts


  For Each ws In ActiveWorkbook.Worksheets

    For Each chObj In ws.ChartObjects

       chObj.Delete

    Next chObj

  Next ws


  'delete the chart sheets

  ActiveWorkbook.Charts.Delete



ExitChart:

  Let Application.DisplayAlerts = True

  Exit Sub

End Sub

Tags: VBA, Excel, chart, graph, export, image, GIF, picture, active chart



Nenhum comentário:
Tags: , , , , , , , ,
Assinar: Postagens (Atom)
diHITT - Notícias