GetCollumnWidth

ConvertWidthToPixels

type TFontAttributes  = record
  Name : String;
  Size : Integer;
  Style : TFontStyles;
  Color : TColor;
end;

&#133

// Получение размеров текста в пикселях
function GetTextSize (AText : String; FontAttr : TFontAttributes) : TSize;
var ABitmap : TBitmap;
begin
 with Result do
 begin
   cx := —1; //width
   cy := —1; //height
 end;

 ABitmap := TBitmap.Create;
 if pos(' Cyr', FontAttr.Name) > 0 then
    Delete(FontAttr.Name, pos(' Cyr', FontAttr.Name), 4);

 with ABitmap do
 begin
   with Canvas do
   begin
     with Font do
     begin
       Name  := FontAttr.Name;
       Size  := FontAttr.Size;
       if FontAttr.Style <> [] then
          Style := FontAttr.Style else
          Style := [];
       Color := FontAttr.Color;
     end;
     Result := TextExtent(AText);
   end;
   Free;
 end;
end;

// получение ширины колонки в «тугриках»
function GetCollumnWidth (var WorkBook : Variant; ACol : Integer) : Single;
begin
 Result := WorkBook.WorkSheets[1].Columns[ACol].ColumnWidth;
end;

// Перевод «тугриков» в пиксели
function ConvertWidthToPixels(var ExcellApp : Variant; Width : Single) : Single;
var  DefaultFont : TFontAttributes;
    i, j : Integer;
    Str : String;
begin
 Result := &#151;1;

 DefaultFont.Name := ExcellApp.StandardFont;
 DefaultFont.Size := ExcellApp.StandardFontSize;

 Str := '';
 j := 0;
 if Width > 1 then
   for i := 1 to trunc(Width) do
     begin
       Str := Str + IntToStr(j);
       inc(j);
       if j = 10 then j := 0;
     end;

 Result := GetTextSize(Str, DefaultFont).cx +
           (Frac(Result)*
            GetTextSize(IntToStr(j),
                        DefaultFont).cx);
end;