Ver Mensaje Individual
  #18  
Antiguo 19-07-2021
Avatar de PabloTech
PabloTech PabloTech is offline
Miembro
 
Registrado: ene 2007
Ubicación: Tucumán, Argentina
Posts: 82
Reputación: 18
PabloTech Va por buen camino
Poner ancho de columna...

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.!
__________________
Cita:
Cuando respetes al ilustrado y al ignorante, al rico y al pobre, al bello y al feo, estarás muy cerca de la sabiduría, que trasciende lo aparente.

E. Rharo
Responder Con Cita