Etwas schwierig zu verstehen und nachzuvollziehen.
Wenn der Ausdruck 1,5 mm breiter als vorgegeben ist, warum lassen sich diese 1,5 mm nicht einfach von der Formel
ExcelApp.ActiveWorkbook.ActiveSheet.Columns.Columns[Spalte].ColumnWidth := Breite * 0.5073;
subtrahieren?