System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
Sub EditListBox()
'VBA830
Dim objListBox As HMIListBox
Set objListBox = ActiveDocument.HMIObjects("ListBox")
objListBox.BorderColor = RGB(255, 0, 0)
End Sub
Use "Selection"(Index) to return an object from the Selection listing:
Sub ShowNameOfFirstSelectedObject()
'VBA831
'Select all objects in the picture:
ActiveDocument.Selection.SelectAll
'Get the name from the first object of the selection:
MsgBox ActiveDocument.Selection(1).ObjectName
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1901
See also
ObjectName Property (Page 2232)
Layer Property (Page 2160)
Left Property (Page 2192)
Top Property (Page 2311)
Width Property (Page 2408)
Height Property (Page 2139)
NumberLines Property (Page 2231)
ForeColor Property (Page 2132)
BorderColor Property (Page 2036)
BorderBackColor Property (Page 2035)
BackColor Property (Page 2017)
FillColor Property (Page 2104)
BorderStyle Property (Page 2043)
BorderWidth Property (Page 2045)
FillStyle Property (Page 2108)
GlobalShadow property (Page 2135)
FontName Property (Page 2129)
FontSize Property (Page 2130)
FontBold Property (Page 2126)
FontItalic Property (Page 2128)
FontUnderline Property (Page 2131)
AlignmentLeft Property (Page 2004)
Index Property (Page 2145)
Text Property (Page 2306)
Operation Property (Page 2237)
PasswordLevel Property (Page 2244)
Visible Property (Page 2405)
ToolTipText Property (Page 2310)
OperationMessage Property (Page 2238)
OperationReport Property (Page 2238)
SelIndex property (Page 2286)
SelText property (Page 2287)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1902
System Manual, 11/2008,
Menu Object
Description
Represents the "User Defined Menu" object. The Menu object is an element of the
CustomMenus listing.
VBA Object Name
HMIMenu
Usage
Use CustomMenus(Index) to return an individual Menu object. "For Index you can use either
the index number or the name of the object. In order for the following example to work, create
a user defined menu. For an example of this, please refer to "Creating a New Application-
Specific Menu" in this documentation. In the following example the name of the first user-
defined menu in the active picture will be output:
Sub ShowFirstMenuOfMenucollection()
'VBA288
Dim strName As String
strName = ActiveDocument.CustomMenus(1).Label
MsgBox strName
End Sub
Use the Delete method to remove a "Menu" object from the "CustomMenus" listing. In the
following example the first user-defined menu in the active picture will be removed:
Sub DeleteMenu()
'VBA289
Dim objMenu As HMIMenu
Set objMenu = ActiveDocument.CustomMenus(1)
objMenu.Delete
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1903
See also
Menus Object (Listing) (Page 1904)
Delete Method (Page 1745)
How to Create Picture-Specific Menus and Toolbars (Page 1602)
How to Create a New Application-Specific Menu (Page 1575)
VBA Reference (Page 1664)
Creating Customized Menus and Toolbars (Page 1573)
Visible Property (Page 2405)
StatusText Property (Page 2297)
Position Property (Page 2257)
Parent Property (Page 2241)
MenuItems Property (Page 2222)
LDStatusTexts Property (Page 2188)
LDLabelTexts Property (Page 2186)
Label Property (Page 2157)
Key Property (Page 2155)
Enabled Property (Page 2098)
Application Property (Page 2008)
Menus Object (Listing)
Description
A listing of the Menu objects that represent all the user-defined menus in the Graphics
Designer.
VBA Object Name
HMIMenus
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1904
System Manual, 11/2008,
Usage
Use the CustomMenus property to return the Menus listing. In the following example all the
user-defined menus in the active picture will be output.
Note
The Menus listing does not distinguish between application-specific and picture-specific
menus in the output.
Sub ShowCustomMenusOfDocument()
'VBA290
Dim colMenus As HMIMenus
Dim objMenu As HMIMenu
Dim strMenuList As String
Set colMenus = ActiveDocument.CustomMenus
For Each objMenu In colMenus
strMenuList = strMenuList & objMenu.Label & vbCrLf
Next objMenu
MsgBox strMenuList
End Sub
Use the Application property and the InsertMenu method if you want to create an application-
specific
menu. Create the VBA code in either the "Project Template" document or the "Global
Template" document. In the following example a user-defined menu called
"myApplicationMenu" will be created:
Sub InsertApplicationSpecificMenu()
'VBA291
Dim objMenu As HMIMenu
Set objMenu = Application.CustomMenus.InsertMenu(1, "a_Menu1", "myApplicationMenu")
End Sub
Use the ActiveDocument property and the InsertMenu method if you want to create a picture-
specific
menu. Create the VBA code in the document called "ThisDocument": In the following
example a picture-specific menu called "myDocumentMenu" will be created:;
Sub InsertDocumentSpecificMenu()
'VBA292
Dim objMenu As HMIMenu
Set objMenu = ActiveDocument.CustomMenus.InsertMenu(1, "d_Menu1", "myDocumentMenu")
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1905
See also
Menu Object (Page 1903)
Item Method (Page 1772)
InsertMenu Method (Page 1763)
How to Create Picture-Specific Menus and Toolbars (Page 1602)
How to Create a New Application-Specific Menu (Page 1575)
VBA Reference (Page 1664)
Creating Customized Menus and Toolbars (Page 1573)
Parent Property (Page 2241)
Count Property (Page 2082)
Application Property (Page 2008)
MenuItem Object
Description
Represents a menu entry for a user-defined menu in the Graphics Designer. The MenuItem
object is an element of the MenuItems listing.
VBA Object Name
HMIMenuItem
Usage
Note
In order for the examples to work, first create a user-defined menu. For an example of this,
please refer to "Adding a New Entry to the Menu" in this documentation.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1906
System Manual, 11/2008,
Use MenuItems(Index) to return an individual MenuItem object. "For Index you can use either
the
index number or the name of the object. In the following example the first entry in the first
user-defined menu in the active picture will be output:
Sub ShowFirstObjectOfCollection()
'VBA293
Dim strName As String
strName = ActiveDocument.CustomMenus(1).MenuItems(1).Label
MsgBox strName
End Sub
Use the Delete method to remove an object from the "MenuItems" listing. In the following
example the first entry in the first user-defined menu in the active picture will be deleted:
Sub DeleteMenuItem()
'VBA294
ActiveDocument.CustomMenus(1).MenuItems(1).Delete
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1907
See also
Parent Property (Page 2241)
MenuItems Object (Listing) (Page 1909)
Delete Method (Page 1745)
Configuring Menus and Toolbars (Page 1572)
How to Assign VBA Macros to Menus and Toolbars (Page 1589)
How to Assign Help Texts to Menus and Toolbars (Page 1586)
How to Add a New Menu Item to the Menu (Page 1577)
VBA Reference (Page 1664)
Creating Customized Menus and Toolbars (Page 1573)
Visible Property (Page 2405)
Tag Property (Page 2303)
SubMenu Property (Page 2298)
StatusText Property (Page 2297)
ShortCut Property (Page 2289)
Position Property (Page 2257)
MenuItemType Property (Page 2223)
Macro Property (Page 2206)
LDStatusTexts Property (Page 2188)
LDLabelTexts Property (Page 2186)
Label Property (Page 2157)
Key Property (Page 2155)
Icon Property (Page 2144)
Enabled Property (Page 2098)
Checked Property (Page 2056)
Application Property (Page 2008)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1908
System Manual, 11/2008,
MenuItems Object (Listing)
Description
A listing of the MenuItem objects that represent all the entries in a user-defined menu.
Usage
Note
In order for the examples to work, first create a user-defined menu. For an example of this,
please refer to "Adding a New Entry to the Menu" in this documentation.
Use the MenuItems property to return the MenuItems listing. In the following example all the
entries in the first user-defined menu in the active picture will be output:
Note
The MenuItems listing does not distinguish between an application-specific and a picture-
specific menu in the output.
Sub ShowMenuItems()
'VBA295
Dim colMenuItems As HMIMenuItems
Dim objMenuItem As HMIMenuItem
Dim strItemList As String
Set colMenuItems = ActiveDocument.CustomMenus(1).MenuItems
For Each objMenuItem In colMenuItems
strItemList = strItemList & objMenuItem.Label & vbCrLf
Next objMenuItem
MsgBox strItemList
End Sub
Use the InsertMenuItem method, for instance, to insert an entry into an existing user-defined
menu. In the following example the picture-specific menu "DocMenu2" will be created in the
active picture and the menu entry "MenuItem1" is inserted:
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1909
Sub InsertMenuItem()
'VBA296
Dim objMenu As HMIMenu
Dim objMenuItem As HMIMenuItem
Set objMenu = ActiveDocument.CustomMenus.InsertMenu(2, "d_Menu2", "DocMenu2")
Set objMenuItem = objMenu.MenuItems.InsertMenuItem(1, "m_Item2_1", "MenuItem 1")
End Sub
See also
InsertSubmenu Method (Page 1767)
MenuItem Object (Page 1906)
InsertSeparator Method (Page 1766)
InsertMenuItem Method (Page 1765)
How to Add a New Menu Item to the Menu (Page 1577)
VBA Reference (Page 1664)
Creating Customized Menus and Toolbars (Page 1573)
Parent Property (Page 2241)
Count Property (Page 2082)
Application Property (Page 2008)
MultiLineEdit object
Description
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1910
System Manual, 11/2008,