[VBA-E] Export au format gif pour un tableau
Bonjour
Je sais qu'il est possible de faire un export d'un graphique en gif avec ce code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| '***********************************************************
' EXPORT DU GRAPH
'***********************************************************
'La routine ci-dessous permet de sauvegarder le graphe actif
Sub PrintChart()
Dim FName As String, NomGraphe As String
NomGraphe = Right(ActiveChart.Name, Len(ActiveChart.Name) - Len(ActiveSheet.Name) - 1)
With ActiveSheet.ChartObjects(NomGraphe).Chart
FName = Application.GetSaveAsFilename("", "Fichier Gif (*.GIF),*.GIF,Fichier JPEG (*.JPG),*.JPG,Tous fichiers (*.*),*.*")
.Export Filename:=FName, FilterName:=TypeImg, Interactive:=True
End With
End Sub |
J'aimerai savoir s'il serait possible de faire la même chose avec un tableau
?
