SiePortal

The integrated platform for your product selection, buying and support workflow - bringing together Industry Mall and Online Support.

Products & Services
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
MySiePortal MySiePortal
{{(apiData.MySiePortal | filter:{'rank':1}:true)[0].title}} MySiePortal
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Cart ({{apiData.CartCount}})

Navigation

VBA Toolbox in Graphics Designer (auto start)

9/17/2009 10:42 AM	Rate (0)
markiii Posts: 33 Rating: (0)	Hello, I would like to add a toolbar in Graphics Designer. [code]Sub InsertToolbarItems() 'VBA7 Dim objToolbar1 As HMIToolbar Dim objToolbarItem1 As HMIToolbarItem ' 'Add a new toolbar: Set objToolbar1 = Application.CustomToolbars.Add("AppToolbar1") 'Adds toolbar-items to the toolbar '("InsertToolbarItem(Position, Key, DefaultToolTipText)"-Methode): Set objToolbarItem1 = objToolbar1.ToolbarItems.InsertToolbarItem(1, "tItem1_1", "KF") Set objToolbarItem1 = objToolbar1.ToolbarItems.InsertToolbarItem(2, "tItem1_2", "KF_NEW") Set objToolbarItem1 = objToolbar1.ToolbarItems.InsertToolbarItem(3, "tItem1_3", "ROLLE") ' 'Adds separator '("InsertSeparator(Position, Key)"-Methode): Set objToolbarItem1 = objToolbar1.ToolbarItems.InsertSeparator(3, "tSeparator1_4") End Sub[/code] It is working fine, but I need to execute the VBA code manualy. I wish this would happen automatically everytime I start Graphics Designer [code]Sub GraphicDesignerEditor_Started() MsgBox "Hello World !" Set GraphicDesignerEditor = grafexe.Application Call InsertToolbarItems End Sub[/code] Any idea how I could fix that ?
markiii Posts: 33 Rating: (0)
Suggestion To thank Quote Answer

9/22/2009 6:01 PM	Rate (0)
cumulus Platinum Member Joined: 9/27/2007 Last visit: 12/18/2020 Posts: 993 Rating: (103)	Hi You only has to call your function in the right event. click doublein the project-tree at "Global Template...." > "Graphics Designer Ojects" > "GlobalTemplate...". at the opening window, choose in the fist drop-down-box ("General") and in the second "Opend" Then call you funtctionin this sub. regards cumulus
	Learn more about visualization - visit the HMI courses of Siemens AG! siemens.com/sitrain Basic course WinCC (TIA Portal) machine-based https://support.industry.siemens.com/cs/ww/en/view/109758624 Advanced course WinCC (TIA Portal) machine-based https://support.industry.siemens.com/cs/ww/en/view/109758626 Basic course WinCC Professional https://support.industry.siemens.com/cs/ww/en/view/109758618 Basic course SiVArc (Auto. Generation of HMIs) https://support.industry.siemens.com/cs/ww/en/view/109758628 Basic course Energy Suite https://support.industry.siemens.com/cs/ww/en/view/109755577
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users markiii

9/23/2009 11:06 AM	Rate (0)
markiii Posts: 33 Rating: (0)	cumulus Hi You only has to call your function in the right event. click doublein the project-tree at "Global Template...." > "Graphics Designer Ojects" > "GlobalTemplate...". at the opening window, choose in the fist drop-down-box ("General") and in the second "Opend" Then call you funtctionin this sub. regards cumulus Thanx cumulus ;) I do not have (General) and Opened but I have Document and Opened it seems things are working this way. As long as the @Global.pdt is open this code will execute.
markiii Posts: 33 Rating: (0)
Suggestion To thank Quote Answer

Share this page:

Share this page on...