Exporter une image vers Excel?????????????????
waimea64
Messages postés
24
Date d'inscription
jeudi 15 mai 2003
Statut
Membre
Dernière intervention
7 juillet 2003
-
16 mai 2003 à 08:23
stevebelgium Messages postés 180 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 7 juin 2003 - 16 mai 2003 à 11:26
stevebelgium Messages postés 180 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 7 juin 2003 - 16 mai 2003 à 11:26
A voir également:
- Exporter une image vers Excel?????????????????
- Convolution image - Conseils pratiques -Java
- Arctan excel ✓ - Forum Visual Basic 6
- Une image .tiff repose sur une palette de 256 000 couleurs. - Forum C / C++ / C++.NET
- Fpdf image ✓ - Forum PHP
- Calcul sur excel de l'inverse tangente en grade - Forum VBA Office (Excel, Word ...)
3 réponses
stevebelgium
Messages postés
180
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
7 juin 2003
1
16 mai 2003 à 09:22
16 mai 2003 à 09:22
trop simple peut-etre ?
control = picture1 avec une image dedans !
Private Sub Command1_Click()
Dim ApExcel As Object 'To open Excel
' l'image
SavePicture Picture1, "c:\test.jpg"
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
ApExcel.Workbooks.Add
' import
ApExcel.ActiveSheet.Pictures.Insert("C:\test.jpg").Select
'effacer l'image
Kill "c:\test.jpg"
End Sub
control = picture1 avec une image dedans !
Private Sub Command1_Click()
Dim ApExcel As Object 'To open Excel
' l'image
SavePicture Picture1, "c:\test.jpg"
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
ApExcel.Workbooks.Add
' import
ApExcel.ActiveSheet.Pictures.Insert("C:\test.jpg").Select
'effacer l'image
Kill "c:\test.jpg"
End Sub
waimea64
Messages postés
24
Date d'inscription
jeudi 15 mai 2003
Statut
Membre
Dernière intervention
7 juillet 2003
16 mai 2003 à 10:49
16 mai 2003 à 10:49
En effet ce sreai tro bo pr etre vrai, en fait l'image ke je ve coller sur excel est une image spéciale il s'agit d'un graphique tracé sous Vb donc elle n'est pas enregistré sur un disque. Voila le probleme.
stevebelgium
Messages postés
180
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
7 juin 2003
1
16 mai 2003 à 11:26
16 mai 2003 à 11:26
ok , et ca ... Hmmm copy => paste
Private Sub Command1_Click()
Dim ApExcel As Object 'To open Excel
Picture1.SetFocus
Clipboard.Clear
Clipboard.SetData ActiveControl '.SelText
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
ApExcel.Workbooks.Add
ApExcel.ActiveSheet.Paste
End Sub
Private Sub Command1_Click()
Dim ApExcel As Object 'To open Excel
Picture1.SetFocus
Clipboard.Clear
Clipboard.SetData ActiveControl '.SelText
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
ApExcel.Workbooks.Add
ApExcel.ActiveSheet.Paste
End Sub
