Graphique sur popup html

**m@tix** · 24/08/2011, 09h09

Bonjour,

A partir d'un graphe présent sur une feuille graphique, je cherche à l'afficher sur une popup html. Pour ce faire, je me suis aidé de la FAQ présente sur le site (ici).

A l'exécution, la fenêtre de IE s'affiche bien, mais à la place de l'image, je retrouve un petit icône rouge bleu et vert en haut à gauche de la page, comme quand l'image ne peut être affichée. Comment peut-on résoudre cela ?

Merci d'avance.

**SfJ5Rpw8** · 24/08/2011, 21h45

Quel est ton système d'exploitation ?
le fichier image est-il créé sur ton disque ?

**m@tix** · 25/08/2011, 00h11

L'OS sur lequel je traite le fichier est Vista. Mais maintenant que j'y pense, je me suis certainement trompé d'emplacement pour l'enregistrement de l'image !

Juste une petite question subsidiaire: j'hésite entre afficher mon graphe sur une fenêtre IE ou sur un userform (je suis parvenu à le faire). Y-a-t-il des avantages / inconvénients l'un par rapport à l'autre ?

Finalement je ne m'étais pas trompé, j'avais bien mis un chemin pour enregistrer l'image menant sur mon disque dur...

Le problème reste entier.

Je suis curieux de savoir pourquoi ça ne passe pas... Puis-je vous fournir mon fichier (tout simple) exemple pour que vous constatiez les faits ?

**patricktoulon** · 26/08/2011, 17h58

bonjour

quelle methode utilise tu pour enregistrer ton image sur le disque dur?

le code pour l'afficher sur ta page html c'est quoi?

sujet interréssant!

au plaisir

**m@tix** · 26/08/2011, 18h07

Bonjour !

Voici le code que j'ai mis:

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub Chart_Activate()
 
Dim nomImage As String
Dim IE As Object
Dim Hauteur As Single, Largeur As Single
 
nomImage = "CHEMIN_COMPLET_IMAGE.bmp"
 
If Dir(nomImage) <> "" Then
 
    Kill nomImage
 
End If
 
 
ActiveChart.Export nomImage, "BMP"
 
 
Set IE = CreateObject("InternetExplorer.application")
 
IE.navigate "about:blank"
IE.addressbar = False
IE.MenuBar = False
IE.StatusBar = False
IE.Toolbar = False
IE.Width = 1000
IE.Height = 700
IE.Left = 120
 
IE.document.body.innerHTML = "<html><IMG SRC='" & nomImage & "'</html>"
 
IE.Visible = True
 
Kill nomImage
 
End Sub

**patricktoulon** · 26/08/2011, 18h22

re
oui c'est bien ce que je pensais

le nomimage contient -il le chemin?

en plus de ca je n'en suis pas sur mais tu ne cré pas un document html mais une instance de internet explorer avec un page blanche

Code :

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

Set IE = CreateObject("InternetExplorer.application")

donc quand tu dis

Code :

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

IE.document.body.innerHTML = "<html><IMG SRC='" & nomImage & "'</html>"

le ie.document jusque a preuve du contraire n'existe pas

du moins il me semble mais encore une fois je ne suis pas sur !!!

Graphique sur popup html [XL-2007]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager