Spaltenbreite in Pixel

01/04/2010 - 09:20 von Manfred Fritz | Report spam
Hallo leute

Hab noch ein problem.

ich benötige den Umrechnungsfaktor, von der spaltenbreite auf Pixel, bzw.
kann man die pixelangane irgendwie Auslesen?

mfg Manfred
 

Lesen sie die antworten

#1 Peter Schleif
01/04/2010 - 09:45 | Warnen spam
Manfred Fritz schrieb am 01.Apr.2010 09:20 Uhr:

ich benötige den Umrechnungsfaktor, von der spaltenbreite auf Pixel, bzw.
kann man die pixelangane irgendwie Auslesen?



MsgBox SpaltenbreiteInPixel(Range("A:A"))

Peter

Private Declare Function GetDC Lib "user32" ( _
ByVal hwnd As Long) As Long

Private Declare Function GetDeviceCaps Lib "gdi32" ( _
ByVal hdc As Long, ByVal nIndex As Long) As Long

Private Declare Function ReleaseDC Lib "user32" ( _
ByVal hwnd As Long, ByVal hdc As Long) As Long

Function SpaltenbreiteInPixel(r As Range) As Integer
Dim faktorX As Double
Dim faktorY As Double
Dim dc As Long

dc = GetDC(0)
faktorX = GetDeviceCaps(dc, 88) / 72
faktorY = GetDeviceCaps(dc, 90) / 72
ReleaseDC 0, dc

SpaltenbreiteInPixel = _
CInt((ActiveWindow.PointsToScreenPixelsX(r.Width) _
- ActiveWindow.PointsToScreenPixelsX(0)) * faktorX)
End Function

Ähnliche fragen