Industry Online Support
Technical Forum
2/3/2013 9:26 PM | |
Joined: 11/4/2011 Last visit: 8/25/2024 Posts: 253 Rating: (53) |
Hello. I want to share with you one script in VBA. It resizes opened window in Graphics Designer to the actual size of the picture. As for me I need it when I'm designing faceplates and I want to see several small pictures on the screen. The worst way is to resize every window with the mouse and it is even slower because GD makes every window be very large. So we can add new menu with a new function and assign a hotkey to call it. This is the code you need to paste into @PROJECT.PDT or @GLOBAL.PDT files in Visual Basic Editor (Alt+F11 from GD) [code]Const MENU = "PRIME" Sub CreateMenu() DeleteMenu (MENU) Dim objMenu As HMIMenu Set objMenu = Application.CustomMenus.InsertMenu(1, MENU, MENU) Dim objMenuItem As HMIMenuItem Set objMenuItem = objMenu.MenuItems.InsertMenuItem(1, "English", "English") objMenuItem.Enabled = True objMenuItem.ShortCut = "Ctrl+E" objMenuItem.Macro = "SwitchLanguageEn" Set objMenuItem = objMenu.MenuItems.InsertMenuItem(2, "Russian", "Russian") objMenuItem.Enabled = True objMenuItem.Macro = "SwitchLanguageRu" objMenuItem.ShortCut = "Ctrl+R" Set objMenuItem = objMenu.MenuItems.InsertMenuItem(3, "ResizeWindow", "ResizeWindow") objMenuItem.Enabled = True objMenuItem.Macro = "ResizeWindow" objMenuItem.ShortCut = "Ctrl+D" End Sub Sub DeleteMenu(menuname As String) Dim objMenu As HMIMenu For Each objMenu In Application.CustomMenus Debug.Print objMenu.Key & " " & objMenu.Label & vbNewLine If objMenu.Key = menuname Then objMenu.Delete End If Next objMenu End Sub Sub SwitchLanguageRu() Application.CurrentDataLanguage = 1049 End Sub Sub SwitchLanguageEn() Application.CurrentDataLanguage = 1033 End Sub Sub ResizeWindow() Dim docViews As HMIViews Set docViews = ActiveDocument.Views With docViews.Item(1) .Width = ActiveDocument.Width .Height = ActiveDocument.Height End With End Sub [/code] Call the function CreateMenu once and a new menu will be created and you will get the possibility to resize windows quickly. And also there are two functions for changing the editing language. There is a video on this topic: youtube.com/watch?v=FXn1RXt0Dts Cheers |
Last edited by: TerminalBuzz at: 10/14/2013 10:39 AMSub ResizeWindow improved |
|
This contribution was helpful to2 thankful Users |
Follow us on