System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
Dim strObjName As String
Dim varPropValue As Variant
'
'"strObjProp" contains the name of the modified property
'"varPropValue" contains the new value
strObjProp = Property.Name
varPropValue = Property.value
'
'"strObjName" contains the name of the selected object,
'which property is modified
strObjName = Property.Application.ActiveDocument.Selection(1).ObjectName
MsgBox "The property " & strObjProp & " of object " & strObjName & " is modified... " &
vbCrLf & "The new value is: " & varPropValue
End Sub
See also
VBA Reference (Page 1664)
HMIObjectResized Event
Description
Occurs when the size of an object is changed.
syntax
Document_HMIObjectResized(ByVal HMIObject As IHMIObject,
CancelForwarding As Boolean)
Parameters
Parameter (Data Type) Description
HMIObject (IHMIObject) Identifies the object that is being resized.
CancelForwarding (Boolean) TRUE if the event is not intended to be forwarded.
Default setting is "False".
Example:
In the following example a message is output when an object has been resized:
Private Sub Document_HMIObjectResized(ByVal HMIObject As IHMIObject, CancelForwarding As
Boolean)
'VBA97
Dim strObjName As String
'
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1691
'"strObjName" contains the name of the modified object
strObjName = HMIObject.ObjectName
MsgBox "The size of " & strObjName & " was modified..."
End Sub
See also
VBA Reference (Page 1664)
LibraryFolderRenamed Event
Description
Occurs when a folder in the components library has been renamed.
syntax
Note
To ensure that the application-specific event is available in the project, the application must
be made known to Graphics Designer. This is done by means of the following statement:
Dim WithEvents <Name> As grafexe.Application
In the following example, the name "objGDApplication" is substituted for <Name>.
objGDApplication_LibraryFolderRenamed(LibObject As HMIFolderItem,
OldName As String)
Parameters
Parameter (Data Type) Description
LibObject (HMIFolderItem) The renamed folder.
OldName (String) The original name of the renamed folder.
Example:
Carry out the following procedure so that the example shown below will work:
Private Sub SetApplication()
'This procedure have to execute with "F5" first
Set objGDApplication = grafexe.Application
End Sub
In the following example the old and new folder names are output:
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1692
System Manual, 11/2008,
Private Sub objGDApplication_LibraryFolderRenamed(ByVal LibObject As HMIFolderItem, ByVal
OldName As String)
'VBA98
MsgBox "The Library-folder " & OldName & " is renamed in: " & LibObject.DisplayName
End Sub
See also
VBA Reference (Page 1664)
Accessing the component library with VBA (Page 1593)
LibraryObjectRenamed Event
Description
Occurs when an object in the components library has been renamed.
syntax
Note
To ensure that the application-specific event is available in the project, the application must
be made known to Graphics Designer. This is done by means of the following statement:
Dim WithEvents <Name> As grafexe.Application
In the following example, the name "objGDApplication" is substituted for <Name>.
objGDApplication_LibraryObjectRenamed(LibObject As HMIFolderItem,
OldName As String)
Parameters
Parameter (Data Type) Description
LibObject (HMIFolderItem) The renamed object.
OldName (String) The original name of the renamed object.
Example:
Carry out the following procedure so that the example shown below will work:
Private Sub SetApplication()
'This procedure have to execute with "F5" first
Set objGDApplication = grafexe.Application
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1693
End Sub
In the following example the old and new object names are output:
Private Sub objGDApplication_LibraryObjectRenamed(ByVal LibObject As IHMIFolderItem, ByVal
OldName As String)
'VBA99
MsgBox "The object " & OldName & " is renamed in: " & LibObject.DisplayName
End Sub
See also
VBA Reference (Page 1664)
Accessing the component library with VBA (Page 1593)
LibraryObjectAdded Event
Description
Occurs when an object has been added to the components library.
syntax
HMIObjectPropertyChanged(ByVal Property As IHMIProperty,
CancelForwarding As Boolean)
Parameters
Parameter (Data Type) Description
LibObject (IHMIFolderItem) Identifies the library object.
CancelForwarding (Boolean) TRUE if the event is not intended to be forwarded.
Default setting is "False".
Example:
In the following example a message is output when an object has been added to the
components library:
Private Sub Document_LibraryObjectAdded(ByVal LibObject As IHMIFolderItem,
CancelForwarding As Boolean)
'VBA100
Dim strObjName As String
'
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1694
System Manual, 11/2008,
'"strObjName" contains the name of the added object
strObjName = LibObject.DisplayName
MsgBox "Object " & strObjName & " was added to the picture."
End Sub
See also
VBA Reference (Page 1664)
MenuItemClicked Event
Description
Occurs when an entry in a user-defined menu is clicked.
Note
This event is both application-specific and document-specific.
To ensure that the application-specific event is available in the project, the application must
be made known to Graphics Designer. This is done by means of the following statement:
Dim WithEvents <Name> As grafexe.Application
syntax
Document_MenuItemClicked(ByVal MenuItem As IHMIMenuItem)
Parameters
Parameter (Data Type) Description
MenuItem (IHMIMenuItem) Identifies the user-defined menu.
Example:
Carry out the following procedure so that the example shown below will work:
Private Sub SetApplication()
'This procedure have to execute with "F5" first
Set objGDApplication = grafexe.Application
End Sub
In the following example a message is output when the first entry in a user-defined menu is
clicked:
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1695
Private Sub Document_MenuItemClicked(ByVal MenuItem As IHMIMenuItem)
'VBA101
Dim objMenuItem As HMIMenuItem
Dim varMenuItemKey As Variant
Set objMenuItem = MenuItem
'
'"objMenuItem" contains the clicked menu-item
'"varMenuItemKey" contains the value of parameter "Key"
'from the clicked userdefined menu-item
varMenuItemKey = objMenuItem.Key
Select Case MenuItem.Key
Case "mItem1_1"
MsgBox "The first menu-item was clicked!"
End Select
End Sub
See also
How to Assign VBA Macros to Menus and Toolbars (Page 1589)
VBA Reference (Page 1664)
NewLibraryFolder Event
Description
Occurs when a folder has been created in the components library.
syntax
Note
To ensure that the application-specific event is available in the project, the application must
be made known to Graphics Designer. This is done by means of the following statement:
Dim WithEvents <Name> As grafexe.Application
In the following example, the name "objGDApplication" is substituted for <Name>.
objGDApplication_NewLibraryFolder(LibObject As HMIFolderItem)
Parameters
Parameter (Data Type) Description
LibObject (HMIFolderItem) The newly created folder.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1696
System Manual, 11/2008,
Example:
Carry out the following procedure so that the example shown below will work:
Private Sub SetApplication()
'This procedure have to execute with "F5" first
Set objGDApplication = grafexe.Application
End Sub
In the following example the new folder name is output:
Private Sub objGDApplication_NewLibraryFolder(ByVal LibObject As IHMIFolderItem)
'VBA102
MsgBox "The library-folder " & LibObject.DisplayName & " was added."
End Sub
See also
VBA Reference (Page 1664)
Accessing the component library with VBA (Page 1593)
NewLibraryObject Event
Description
Occurs when an object has been created in the components library.
syntax
Note
To ensure that the application-specific event is available in the project, the application must
be made known to Graphics Designer. This is done by means of the following statement:
Dim WithEvents <Name> As grafexe.Application
In the following example, the name "objGDApplication" is substituted for <Name>.
objGDApplication_NewLibraryObject(LibObject As HMIFolderItem)
Parameters
Parameter (Data Type) Description
LibObject (HMIFolderItem) The newly created object.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1697
Example:
Carry out the following procedure so that the example shown below will work:
Private Sub SetApplication()
'This procedure have to execute with "F5" first
Set objGDApplication = grafexe.Application
End Sub
In the following example the new object name is output:
Private Sub objGDApplication_NewLibraryObject(ByVal LibObject As IHMIFolderItem)
'VBA103
MsgBox "The object " & LibObject.DisplayName & " was added."
End Sub
See also
VBA Reference (Page 1664)
Accessing the component library with VBA (Page 1593)
Opened Event
Description
Occurs when a picture is opened.
syntax
Document_Opened(CancelForwarding As Boolean)
Parameters
Parameter (Data Type) Description
CancelForwarding (Boolean) TRUE if the event is not intended to be forwarded.
Default setting is "False".
Example:
In the following example a message is output when the picture is opened:
Private Sub Document_Opened(CancelForwarding As Boolean)
'VBA104
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1698
System Manual, 11/2008,
MsgBox "The Document is open now..."
End Sub
See also
VBA Reference (Page 1664)
Saved Event
Description
Occurs after a picture has been saved.
syntax
Document_Saved(CancelForwarding As Boolean)
Parameters
Parameter (Data Type) Description
CancelForwarding (Boolean) TRUE if the event is not intended to be forwarded.
Default setting is "False".
Example:
In the following example a message is output when the picture has been saved:
Private Sub Document_Saved(CancelForwarding As Boolean)
'VBA105
MsgBox "The document is saved..."
End Sub
See also
VBA Reference (Page 1664)
SelectionChanged Event
Description
Occurs when the selection has been changed.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1699
syntax
Document_SelectionChanged(CancelForwarding As Boolean)
Parameters
Parameter (Data Type) Description
CancelForwarding (Boolean) TRUE if the event is not intended to be forwarded.
Default setting is "False".
Example:
In the following example a message is output when a new object has been selected:
Private Sub Document_SelectionChanged(CancelForwarding As Boolean)
'VBA106
MsgBox "The selection is changed..."
End Sub
See also
VBA Reference (Page 1664)
Started Event
Description
Occurs when the Graphics Designer has been started.
Syntax
objGDApplication_Started()
Note
To ensure that the application-specific event is available in the project, the application must
be made known to Graphics Designer. This is done by means of the following statement:
Dim WithEvents <Name> As grafexe.Application
In the following example, the name "objGDApplication" is substituted for <Name>.
Parameters
--
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1700
System Manual, 11/2008,