Como utilizar TExcelApplication

[PabloTech]

Hola amigos y gracias manelb.
Ya lo descubrí y les comento cómo lo resolví. El problema en la función era el tipo de dato del argumento Width, yo había puesto Real pero debe ser Variant. Lo descubrí hacendo debuging y asignándole a

Código Delphi [-]
ColumnWidth := ColumnWidth * 2;

vi que sí funcionaba. Entonces supuse que el problema si era el tipo de dato.

Al final convertí la función en procedimiento mejor.

Código Delphi [-]
procedure TAplExcel.PonerAnchoColumna (Column: Variant; Width: Variant);
var Obj_Col: Variant;
begin
  Obj_Col := Obj_Excel.Columns[Column];
  Obj_Col.ColumnWidth := width;
end;

En la implementación, solo tengo que indicar cuál es la columna y qué tan ancho la necesito, por ejemplo 10,71.

Código Delphi [-]
    // Pone el ancho de la columnas.
    MyExcel.PonerAnchoColumna(1, 8.00);
    MyExcel.PonerAnchoColumna(2, 10.71);
    MyExcel.PonerAnchoColumna(3, 45.14);

Mil gracias.!