Excel InchesToPoints()

[zobien123]

Morgen :),

ich versuche gerade über Delphi die Seitenränder für einen Excelexport zu setzten. Die Makroaufzeichnung sagt;

Code:

   
With ActiveSheet.PageSetup 
  .LeftMargin = Application.InchesToPoints(0.708661417322835)
  .RightMargin = Application.InchesToPoints(0.708661417322835)
  .TopMargin = Application.InchesToPoints(0.78740157480315)
  .BottomMargin = Application.InchesToPoints(0.78740157480315)
  .HeaderMargin = Application.InchesToPoints(0.31496062992126)
  .FooterMargin = Application.InchesToPoints(0.31496062992126)

Nun brauch ich jedoch eine Funktion um die cm oder Inches (ist mir eig egal, lässt sich ja schnell umrechnen) der jeweiligen Margin zuzuweisen.:?::?: Oder gibt es eine andere Möglichkeit einen Wert in Points umzuwandeln?

[zobien123]

Hat sich erledigt. In der Excel2000.pas gibt es eine function CentimetersToPoints. Da ich die .pas eh benötige muss ich die Funktion nur noch aufrufen :)