VBA의 확대 API를 사용하여 화면 배율을 얻습니다.

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 

내가 프로 시저 별칭을 모르는 :

여기에 코드입니다. 내 Excel 프로젝트에서 참조로 Magnification.dll을 "확인"하려고 시도했지만이를 허용하지 않습니다. (지정된 파일에 대한 참조를 추가 할 수 없음).

제안 사항? 나는 magnfication 가치를 끌어 당길 필요가있다.

감사합니다.

Answer 1

내 윈도우 7 magnification.dll 수출 Mag/UnInitialize하지만 MagGetFullscreenTransform를 내 보내지 않습니다는 docs은 내가 당신의 사용하지 않는 가정 (8) 기능을 이길 것 같습니다 있도록 최소 클라이언트 버전은 "윈도우 개발자 미리보기"라고.