ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Ajout de logo dans une feuille Excel   



L'auteur

FAUCONNET MIchel
France France
Membre Simple
# 0000000063
enregistré le 21/10/2004

http://www.gscad.fr
70 ans
FAUCONNET Michel
10160 AIX EN OTHE
de la société ASSE SAS
Fiche personnelle


Note des membres
20/20
1 vote


Contributions > 09 - Automation > Excel

Ajout de logo dans une feuille Excel
# 0000000929
ajouté le 04/12/2016 10:48:16 et modifié le 04/12/2016
consulté 1544 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0

Description

On trouve un peu partout dans le WEB la méthode, Insert_Image(), pour insérer une image ou un logo dans une feuille Excel.

.

Cette méthode présente l'inconvénient de ne pas conserver l'image ou le logo après sauvegarde de la feuille Excel dans certaines situations.

.

La méthode suivante, Add_Image(), permet de conserver image ou logo après la sauvegarde de la feuille.

Code source :
Function Insert_Image()

 oExcel=CreateObject("Excel.application")

 oExcel.visible=.T.

 oExcel.workbooks.add

 oExcel.range("A1:A1").select

 oExcel.ActiveSheet.Pictures.insert(cFile).Select

 *avec

 *cFile=Chemin+nom complet de l'image

Return

*---------------------------

Function Add_Image()

 oExcel=CreateObject("Excel.application")

 oExcel.visible=.T.

 oExcel.workbooks.add


 oExcel.ActiveWorkbook.ActiveSheet.Shapes.AddPicture(cFile, .T..T., nLeft, nTop, nW, nH)


 *avec

 *cFile=Chemin+nom complet de l'image

 *nLeft=position par rapport au bord gauche de la feuille

 *nTop=position par rapport au sommet de la feuille

 *nW=largeur de l'image en pixel

 *nH=hauteur de l'image en pixel


Return

Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2017.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0