Readdy Write  
0,00 €
Your View Money
Views: Count
Self 20% 0
Your Content 60% 0

Users by Links 0
u1*(Content+Views) 10% 0
Follow-Follower 0
s2*(Income) 5% 0

Count
Followers 0
Login Register as User

Excel : Ermitteln von dpi, pixel, dpi dots per inch und Centimeter per Inch

12.02.2019 (👁6818)

Excel : Ermitteln von dpi, pixel, dpi dots per inch und Centimeter per Inch

In Excel Word und Powerpoint muss man bei der Berechnung von Größen für Charts, Grafiken, Zellen und andere optische Darstellungen die Eingabe von Pixel zu DPI dots per Inch umrechnen.

Die meisten Objekte werden in dpi berechnet.

Hier einige Ermittlungen, wie man die aktuellen Faktoren für DPI (Dots per Inch) Pixel per Inch und Centimeter per Inch in der Excel Arbeitmappe ermitteln kann

Dpi, pixel, Centimeter

Allgemeine Berechnungen von Dot per Inch, Pixel per Inch und Zentimeter pro Inch in Excel

Dim factor_dpi As Double

    factor_dpi = Application.InchesToPoints(1)  '72

   

    Dim factor_pixel As Double

    factor_pixel = ThisWorkbook.WebOptions.PixelsPerInch    '96

   

    Dim factor_pixel_dpi As Double

    factor_pixel_dpi = factor_pixel / factor_dpi  '1,333    80pixel=60dpi

   

    Dim factor_cm_in_points

    factor_cm_in_points = Application.CentimetersToPoints(1)    '28,346

   

    Dim factor_Width As Double

    factor_Width = ThisWorkbook.Worksheets(1).Cells(1, 1).Width     '*cm: width=19,5; columnWidth=3

   

    Dim factor_ColumnWidth As Double

    factor_ColumnWidth = ThisWorkbook.Worksheets(1).Cells(1, 1).EntireColumn.ColumnWidth    '*cm: width=19,5; columnWidth=3

   

    Dim factor_Width_ColumnWidth As Double

    factor_Width_ColumnWidth = factor_Width / factor_ColumnWidth    '*=5

 

 

 

 

 

 

Spalten und Spaltenbreiten.

In Excel vba werden die Spalten als Range mit column.ColumnWidth als Char-Größe eingegeben und dargestellt.

Die Eigenschaft range.Width wird wiederum mit dpi Dot-per-Inch angegeben.

Hier kann man vereinfacht die Größen berechnen indem man das reale Verhältnis

    Dim factor_Width As Double

    factor_Width = ThisWorkbook.Worksheets(1).Cells(1, 1).Width     '*cm: width=19,5; columnWidth=3

   

    Dim factor_ColumnWidth As Double

    factor_ColumnWidth = ThisWorkbook.Worksheets(1).Cells(1, 1).EntireColumn.ColumnWidth    '*cm: width=19,5; columnWidth=3

   

    Dim factor_Width_ColumnWidth As Double

    factor_Width_ColumnWidth = factor_Width / factor_ColumnWidth    '*=5