используя API увеличения в VBA, чтобы получить увеличение экрана

Question

Я написал небольшой модуль, который пытается получить значение увеличения экрана.Вызывает некоторые процедуры в magnification.dll.Я думаю, что я кодирую это правильно, но я получаю страшную ошибку 453 (не могу найти точку входа).

Вот код:

Public Declare Function MagInitialize Lib "magnification.dll" () As Boolean
Public Declare Function MagUninitialize Lib "magnification.dll" () As Boolean
Public Declare Function MagGetFullscreenTransform Lib "magnification.dll" _
(ByVal pMagLevel As Single, ByVal pxOffset As Integer, ByVal pyOffset As Integer) As Boolean '

Sub test123()
 Dim sngValue As Single, intX As Integer, intY As Integer
 If (MagInitialize) Then
    If MagGetFullscreenTransform(sngValue, intX, intY) Then    '
        Debug.Print sngValue & " was returned from MagGetFullscreenTransform. "
    Else
        Debug.Print "MagGetFullscreenTransform was false."
    End If
 Else
    Debug.Print "Can't initialize"
 End If

 If Not (MagUninitialize) Then
    Debug.Print "Can't uninitialize"
 End If

 End Sub

Я не знаю псевдоним процедуры (не то, что он нужен, насколько я знаю, псевдоним необязателен).Я пытался «проверить» Magnification.dll в качестве ссылки в моем проекте Excel, но он не позволяет мне.(Не удается добавить ссылку на указанный файл).

Предложения?Мне просто нужно вытащить значение увеличения.

спасибо!

Answer 1

Мой Windows 7 magnification.dll экспортирует Mag/UnInitialize, но не экспортирует MagGetFullscreenTransform, документы говорят, что минимальная версия клиента - «Windows Developer Preview», поэтому она выглядит как функция win 8, котораяЯ предполагаю, что вы не используете.