Hi,
I have a huge problem with Autodesk Inventor Professional 2011 x64 (Spanish version). I use the program on a desktop and a powerful laptop, and that's where the problem is. I work a lot with my laptop for mobility reasons because I have my clients scattered. The problem is that the laptop screen has a maximum resolution of 1366 x 768 and is complicated to find one with higher resolution, the whole program works correctly except the tools section where I cannot save the modified parameters in the application options window. I have tried to right click on the top or edge and select move and then use the arrow keys to move the window. I also tried pressing ALT+SPACE BAR and then M -> ENTER and then use the arrow keys to move the window, but when I move the mouse the window immediately returns to its previous position and is unable to save the modified parameters. But my question is: Is there any possibility to change something or modify this window size?
Thanks in advance.
Solved! Go to Solution.
Solved by stephengibson76. Go to Solution.
Did you try the Alt-A key combination?
Or whatever the shortcut key is on the equivalent of the "apply" button on your language version of Inventor?
Bob
Hi Bob,
I've tried Alt+A and Ctrl+A and it works in the Inventor environment, also in spanish version but not in the applications window.
I know that resolution is below Autodesk recommendation, but it is the only problem I have.
Thanks in advance.
Can you paste below text in a module in the VBA editor?
After that, start the Aplication Options and make any modifications to it.
Then run the macro called "AppOptions_OK" from within the VBA editor.
The macro will allow you to save your modifications, close the Application options dialog by hitting the OK button (even if that button is off screen).
For English versions of Inventor, replace the Spanish bannerstring from
Bannerstring = "Opciones de aplicación"
to
Bannerstring = "Application Options"
Cheers
Bob
Const WM_SETFOCUS = &H7 Const BM_CLICK = &HF5 Dim OKButtonHandle As Long Private Declare Function GetDlgCtrlID Lib "user32.dll" (ByVal hwndCtl As Long) As Integer Private Declare Function EnumChildWindows Lib "user32.dll" (ByVal hWndParent As _ Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" _ (ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) _ As Long Public Sub AppOptions_OK() Dim Bannerstring As String 'Bannerstring = "Application Options" 'English version Bannerstring = "Opciones de aplicación" ' Spanish version Dim windowhandle As Long windowhandle = FindWindow("#32770", Bannerstring) retval = EnumChildWindows(windowhandle, AddressOf EnumChildProc, 0) SendMessage windowhandle, WM_SETFOCUS, 0&, 0& SendMessage OKButtonHandle, BM_CLICK, 0&, 0& End Sub Private Function EnumChildProc(ByVal hWnd As Long, ByVal lParam As Long) As Long Dim CtrlID As Variant CtrlID = GetDlgCtrlID(hWnd) If CtrlID = "1" Then OKButtonHandle = hWnd End If EnumChildProc = 1 ' return value of 1 means continue enumeration End Function
We have this problem on projectors that do not project at high enough resolution.
I have counted Tabs from a known visable location to accept and close the dialog box (on a machine with higher resolution) as the technique I use on the low resolution projector machine.
Thank you very much Stephen, a big problem a simple solution, it works great.