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

Excel InchesToPoints()

Excel InchesToPoints()

AW: Excel InchesToPoints()

Forumregeln

zobien123 Registriert seit: 3. Mär 2017 Ort: Öhringen 94 Beiträge Delphi 10.3 Rio	#2 AW: Excel InchesToPoints() 27. Okt 2017, 10:22 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 Jörn Linux wird nie das meistinstallierte Betriebssystem sein, wenn man bedenkt, wie oft man Windows neu installieren muss!
	Zitat