Выбор директории, пример от SmeL. Сам ниасилил разобраться.

Для начала традиционный посыл:
http://www.google.com/search?client=ope … p;oe=utf-8
Идем оттель по третьей ссылке:
http://www.pcreview.co.uk/forums/thread-1891544.php
Читаем, впечатляемся. Идем по данной участниками обсуждения ссылке на микрософтовский сайт
http://support.microsoft.com/default.as … n-us;94927
и получаем вкуснейший API-код:

Option Explicit
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _
  ByVal hdc As Long) As Long
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _
  ByVal nIndex As Long) As Long
Const HWND_DESKTOP As Long = 0
Const LOGPIXELSX As Long = 88
Const LOGPIXELSY As Long = 90
'--------------------------------------------------
Function TwipsPerPixelX() As Single
'--------------------------------------------------
'Returns the width of a pixel, in twips.
'--------------------------------------------------
  Dim lngDC As Long
  lngDC = GetDC(HWND_DESKTOP)
  TwipsPerPixelX = 1440& / GetDeviceCaps(lngDC, LOGPIXELSX)
  ReleaseDC HWND_DESKTOP, lngDC
  MsgBox TwipsPerPixelX
End Function

(MsgBox добавил я.)

Спасибо,
С аглицким фиговато.
Я так понимаю что с Win-API надо отдельно разбираться. Книжку купить.
Пока понял что Screen'а в VBA нет, а его метод TwipsPerPixelX, заменяет приведенная функция TwipsPerPixelX().
Помогите двинуться дальше. Дайте прикурить так сказать) Как быть с Screen.Width ну и Height с ним же? Пока блуждаю по аналогичному пути поиска.
PS Чуствую себя полным дебилом. Надо бежать за книжкой.

Попробовал получить ширину экрана в пикселях через:

Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, _
  ByVal nIndex As Long) As Long
Const HWND_DESKTOP As Long = 0
Const HORZRES As Long = 8
Const VERTRES As Long = 10

Вызываю так:

    ...
    Dim lngDC As Long
    Dim lWidth As Long
    Dim lHeight As Long
    lngDC = GetDC(HWND_DESKTOP)
    lWidth = GetDeviceCaps(lngDC, HORZRES)
    lHeight = GetDeviceCaps(lngDC, VERTRES)
    screenWidth = dWidth / TwipsPerPixelX
    screenHeight = dHeight / TwipsPerPixelY
    ...

Диалоговое окно выбора каталога, появляется в верхнем левом углу монитора, и причем частично уходит за его паределы, что даже ухватиться за него нельзя дабы передвинуть.
По идее оно должно открываться по центру экрана.
Просвятите плиз, если не внапряг.

Понятно, сэнкс.
Диалоговое окно появляется по центру.
Но вопрос не решился:(, он тот же, из 1 поста, а подробнее:
В основную функцию, для открытия диалога выбора папки, fBrowseForFolder, вторым аргументам передается строка Promt'а. Так вот, она у меня получается на 3 строки, и в появляющемся окне выбора папки, третья строчка этого Promta не видна, она съедается TreeViev'ом. Вот.
А без этой строчки фиговато.
Ну я и парюсь из-за нее.
Попробовал поиграть с winWidth и winHeight в подфункции ResizeDialog. При этом размеры окна изменяются, но место под строки Promta не изменяется, а изменяется размер TreeViev'а.
Help me, Brothers! (сталкер)