Recupérer et enregistrer tous les graphs d'un classeur excel
Contenu du snippet
Source / Exemple :
nb = Worksheets.Count
ext = ".gif"
numeroimage = 1
For i = 1 To nb
Sheets(i).Select
nb1 = ActiveSheet.ChartObjects.Count
If nb1 > 0 Then
For l = 1 To nb1
ActiveSheet.ChartObjects(l).Activate
' sauvegarde des charts
ActiveChart.Export Filename:="c:\basket\essai\image" & numeroimage & ext, filtername:="gif"
numeroimage = numeroimage + 1
Next l
End If
Next i
A voir également
- Recupérer et enregistrer tous les graphs d'un classeur excel
- Tous les codes vba excel - Conseils pratiques -Visual Basic / VB.NET
- Excel vba récupérer valeur cellule active ✓ - Forum Visual Basic 6
- Prendre la valeur d'une cellule dans excel avec vba - Forum Visual Basic
- Arctan excel ✓ - Forum Visual Basic 6
- Calcul sur excel de l'inverse tangente en grade - Forum VBA Office (Excel, Word ...)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.