Estimado duilioisola:
Muchas gracias por tu tiempo, la información me ayudo mucho, ya acomodo las filas al tamaño de mi necesidad.
Saludos Cordiales
Código Delphi
[-] Hoja.OlePropertyGet("Columns").OlePropertyGet("Item",(Variant)1).OlePropertySet("ColumnWidth",(Varia nt)10);
Hoja.OlePropertyGet("Columns").OlePropertyGet("Item",(Variant)2).OlePropertySet("ColumnWidth",(Varia nt)20);
Hoja.OlePropertyGet("Columns").OlePropertyGet("Item",(Variant)3).OlePropertySet("ColumnWidth",(Varia nt)25);
Hoja.OlePropertyGet("Columns").OlePropertyGet("Item",(Variant)4).OlePropertySet("ColumnWidth",(Varia nt)40);
Hoja.OlePropertyGet("Columns").OlePropertyGet("Item",(Variant)5).OlePropertySet("ColumnWidth",(Varia nt)20);
Hoja.OlePropertyGet("Columns").OlePropertyGet("Item",(Variant)6).OlePropertySet("ColumnWidth",(Varia nt)15);
Hoja.OlePropertyGet("Columns").OlePropertyGet("Item",(Variant)7).OlePropertySet("ColumnWidth",(Varia nt)35);
Hoja.OlePropertyGet("Rows").OlePropertyGet("Item",(Variant)fil).OlePropertySet("RowHeight",(Variant) 45);