Discussion :

[flogreg]

Je sais que l'on peut enregistrer un graphique en image. Je voudrais savoir si on pouvait créer un fichier image d'un tableaux Excel par exemple je voudrais dire que de A1 à C6 doit etre sauvegardé en image. Pour l'instant, pour créer l'image j'utilise la table de données du graph mais bon c'est un peu bancal comme solution!!!

[DarkVader]

J'ai encore plus tordu : en utilisant un ShapeRange

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim wsh As Worksheet, sh As Shape, myplage As Range
Set wsh = Worksheets("Feuil1")
Set sh = wsh.Shapes.AddShape(msoShapeRectangle, 0, 0, 10, 10)
Set myplage = wsh.Range("A1:C6")
myplage.Copy
sh.Select (myplage)
wsh.Paste
sh.Delete

mais la méthode a l'avantage de produire un gif transparent
dont on peut à loisir choisir le fond (même texturé) etc.

[flogreg]

Merci c'est exactement ce que je voullais car j'utilise ces tableau pour les afficher sur l'intranet et ma solution m'oblige à faire des découpage à l'affichage donc ce n'est pas viable comme solution!!!
par contre comment faire pour l'enregistrer en fichier image?Il faut le publier? Créer une procédure pour le sauvegarder?

[DarkVader]

Sers-toi du presse papier et d'un controle Image
(ou à défaut d'un object chart qui se comporte comme tel)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Export_RangeAsImage(MyPlage As Range, FullFileName As String, Optional ImageFilter As String = "GIF")
    Dim wsh As Worksheet, sh As Shape, ch As ChartObject
    Set wsh = MyPlage.Worksheet
    Set sh = wsh.Shapes.AddShape(msoShapeRectangle, 0, 0, 10, 10)
    sh.Select (MyPlage)
 
    MyPlage.Copy
    wsh.Paste
    sh.Delete
 
    Selection.Copy
    Set ch = ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height)
    ch.Border.LineStyle = 0
    ch.Chart.Paste
    Selection.Delete
 
    ch.Chart.Export Filename:=Split(FullFileName, ".")(0) & "." & ImageFilter, FilterName:=ImageFilter
    ch.Delete
End Sub

[flogreg]

c'es parfait ca roule. Me reste plus qu'à integrer cette procédure au reste pour l'automatiser et ce sera bon!!!! Merci