Problem mit PointsToScreenPixelsX
16.09.2005 10:14:45
Alexander
Kaum bin ich aus dem wohlverdienten Urlaub zurück, hab ich schon wieder ein verzwicktes Problem.
Mit folgendem Code möchte ich ein Formular oben rechts im Bildschirm positionieren und anzeigen:
Sub DirekthilfeAnzeigen()
With DirekthilfeForm
.Top = 0
.Left = ActiveWindow.PointsToScreenPixelsX(ActiveWindow.Panes(1).VisibleRange.Width - .Width)
.Show (0)
End With
End Sub
Jetzt habe ich das kleine aber feine Problem, dass mir die Funktion ActiveWindow.PointsToScreenPixelsX als Ergebnis immer 0 liefert.
Zum Ausprobieren habe ich folgenden Code verwendet:
Sub TestPixel()
With ActiveWindow
lWinWidth = .PointsToScreenPixelsX(.Selection.Width)
lWinHeight = .PointsToScreenPixelsY(.Selection.Height)
End With
MsgBox lWinWidth & " x " & lWinHeight
End Sub
Der Code ist aus der VBA-Hilfe rauskopiert, aber auch hier erhalte ich als Ergebnis "0 x 0". Kann mir jemand sagen, was da nicht stimmt?
Schonmal Danke im Voraus für alle Antworten und Bmühungen!
Gruß, Alex.
Anzeige