Pb d'enregistrmenyt image!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

waimea64 Messages postés 24 Date d'inscription jeudi 15 mai 2003 Statut Membre Dernière intervention 7 juillet 2003 - 16 mai 2003 à 13:32
stevebelgium Messages postés 180 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 7 juin 2003 - 16 mai 2003 à 16:27
Je souheite connaitre la methode permettant da sauvegarder sous la forme d'un fichier .Bmp ou .Jpg, une Picture provenat d'une Picture box..

Thanks

4 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 à 13:41
voila ...

SavePicture Picture1, "c:\test.jpg"
0
waimea64 Messages postés 24 Date d'inscription jeudi 15 mai 2003 Statut Membre Dernière intervention 7 juillet 2003
16 mai 2003 à 14:30
En fait je vien de determiné mon probleme en fait l'image ke je souhaite suver est un élément graphique (méthode graphique) ajouté a la picture box doc quand j'execute la ligne de commande
SavePicture Picture1, "c:\test.jpg"
Ca plante car cela sauve l'image chargé(ici aucune) et pas le graphe.

Merci pour votre compréhension
0
waimea64 Messages postés 24 Date d'inscription jeudi 15 mai 2003 Statut Membre Dernière intervention 7 juillet 2003
16 mai 2003 à 16:02
Ok en utilisant ta metode un peu modifier j'utilise la commande

.Pictures.Insert ("c:\MesDocuments\ludovic\debit1.jpg") .Select

Je voulais savoir si vous aviez une idée pour inserer cette image a un eplacement précis et non au centre et avec une certaine taille.
0
stevebelgium Messages postés 180 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 7 juin 2003 1
16 mai 2003 à 16:27
Private Sub Command1_Click()

qqch comme ca :

Dim ApExcel As Object 'To open Excel

Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True

ApExcel.Workbooks.Add

ApExcel.ActiveSheet.pictures.Insert("C:\winnt.bmp").Select

ApExcel.Selection.ShapeRange.Left = 100
ApExcel.Selection.ShapeRange.Top = 100
ApExcel.Selection.ShapeRange.Width = 50
ApExcel.Selection.ShapeRange.Height = 50

End Sub
0
Rejoignez-nous