L'auteur
FAUCONNET MIchel
 France
Membre Simple
# 0000000063
enregistré le 21/10/2004
http://www.gscad.fr
77 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é 9341 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é ...
|
Retour à la liste