Alignement vertical dans Excel avec OLE

J'essaie de définir l'alignement vertical de cellules dans Excel en utilisant OLE mais j'ai toujours une exception... Je ne comprends pas d'où vient l'erreur

Mon code est le suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10

//--------------------------------------------------------------------------- void CExcelCell::SetVAlign(XlVAlign alignement) {   try { FCell.OlePropertySet("VerticalAlignment", alignement); } catch (EOleError &er) { }   }

---

J'utilise les constantes définies dans "excel_xp.h" et j'ai vérifié qu'elles correspondent à l'aide VBA d'Excel.

J'arrive à définir la couleur de la même référence FCell (un Variant) avec:

Code:

---

FCell.OlePropertyGet("Interior").OlePropertySet("Color",(int)color);

---

Ce n'est donc pas lié au variant...

Avez-vous une idée?

Bonjour,

je viens d'essayer avec xlCenter (-4108) et je n'ai pas eu de soucis. :?

Eric

J'ai testé aussi avec

xlBottom
xlCenter
xlJustify
xlDistributed

aucun soucis non plus.

Peux tu mettre un message dans ton exception pour voir ?
est ce que c'est possible que ça vienne de ton fichier de test ?

J'ai refait un test avec le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

void CExcelCell::SetVAlign(XlVAlign alignement) {   try { FCell.OlePropertyGet("Interior").OlePropertySet("Color",(int)clYellow); FCell.OlePropertySet("VerticalAlignment", alignement); } catch (EOleError &er) { AnsiString result=er.Message; }   }

---

La cellule est bien devenue jaune mais j'ai toujours une erreur, même en remplaçant directement la valeur d'alignement par -4108...

Le message de l'exception est très parlant: "Exception Occurred" :?

Peut-être que je n'ai pas les bons includes? Pour la partie OLE, j'utilise ceux-ci:

Code:

---

1 2 3

#include <system.hpp> // Must be declared before <utilcls.h> #include <utilcls.h> #include <Graphics.hpp> // For TColor

---

Lesquels utilisez-vous?

juste

Code:

---

#include "Excel_xp.h"

---

pour les constantes...

voici le code entier du cpp que j'ai utilisé pour tester sur la fiche vierge d'une application vierge :(aucun autre include n'a été ajouté au .h)

Code:

---

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 37 38 39 40 41 42 43 44

//---------------------------------------------------------------------------   #include <vcl.h> #pragma hdrstop   #include "Unit1.h" #include "Excel_xp.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //---------------------------------------------------------------------------   void __fastcall TForm1::Button1Click(TObject *Sender) { Variant vMSExcel,vXLWorkbooks,vXLWorkbook,vWorksheet,vCell,vRow; vMSExcel = Variant::CreateObject("Excel.Application"); vMSExcel.OlePropertySet("DisplayAlerts", false); vMSExcel.OlePropertySet("ScreenUpdating", false); vMSExcel.OlePropertySet("Visible", true); vMSExcel.OlePropertySet("Interactive", false); vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks"); vXLWorkbook = vXLWorkbooks.OleFunction("Add"); Variant vWsPos = 1; //premiere feuille par defaut vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", vWsPos); try{ vCell = vWorksheet.OlePropertyGet("Evaluate","A5"); vCell.OlePropertySet("Value",StringToOleStr("Ligne1\nLigne2")); vCell.OlePropertySet("VerticalAlignment",xlDistributed); vRow = vWorksheet.OlePropertyGet("Rows",5); vRow.OlePropertySet("RowHeight", 60); }catch(EOleError &er){ ShowMessage(er.Message); } vMSExcel.OlePropertySet("ScreenUpdating", true); vMSExcel.OlePropertySet("Interactive", true); } //---------------------------------------------------------------------------

---

Merci beaucoup pour ton exemple qui marche parfaitement chez moi... Il m'a permis de résoudre mon problème et en plus j'ai découvert les fonctions "DisplayAlerts", "ScreenUpdating" et "Interactive" :)

Mon problème venait en fait d'un truc très simple: j'utilise le type "XlVAlign" qui est défini dans Excel_xp.h comme paramètre en entrée et il faut que je le cast explicitement en int avant de le transmettre à la fonction OlePropertyGet():

le code corrigé est donc:

Code:

---

1 2 3 4 5 6 7 8 9

void CExcelCell::SetVAlign(XlVAlign alignement) {   try { FCell.OlePropertySet("VerticalAlignment", (int)alignement); } catch (EOleError &er) { }   }

---