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
[-]
MyExcel.PonerAnchoColumna(1, 8.00);
MyExcel.PonerAnchoColumna(2, 10.71);
MyExcel.PonerAnchoColumna(3, 45.14);
Mil gracias.!