Estimados:
Solicito su apreciable ayuda para ampliar el alto y ancho de una celda de excel, tengo el siguiente codigo solo me falta ajustar los tamaños de las celdas.
Código Delphi
[-] Variant Excel,Libro,Hoja,Celda;
int hoja=1,fil=1;
char f[256];
Excel=CreateOleObject("Excel.Application");
Excel.OlePropertySet("Visible", true);
Libro=Excel.OlePropertyGet("Workbooks");
Libro.OleProcedure("Add");
Hoja=Libro.OlePropertyGet("Item",1);
Libro=Hoja.OlePropertyGet("Worksheets");
Libro.OlePropertyGet("Item",1).OlePropertySet("Name","COMPUMUNDO INOVATEC");
Hoja=Libro.OlePropertyGet("Item",hoja);
DataModule1->QAuxPueblos->Close();
DataModule1->QAuxPueblos->SQL->Clear();
DataModule1->QAuxPueblos->SQL->Add("SELECT * FROM regiones");
DataModule1->QAuxPueblos->Open();
DataModule1->QAuxPueblos->First();
while (!DataModule1->QAuxPueblos->Eof)
DataModule1->QAuxPueblos->Next();
fil+=6;
}
Excel.OlePropertySet("DisplayAlerts",false); Excel.OlePropertyGet("Workbooks").OlePropertyGet("Item",1).OleProcedure("SaveAs","test.xls");
Excel=Unassigned;
Saludos.