System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("sCircle", "HMICircle")
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("sRectangle", "HMIRectangle")
With objCircle
.Top = 40
.Left = 40
.Selected = True
End With
With objRectangle
.Top = 80
.Left = 80
.Selected = True
End With
MsgBox "Objects created and selected!"
ActiveDocument.Selection.DuplicateSelection
End Sub
See also
Selection Object (Listing) (Page 1949)
HMIObjects Object (Listing) (Page 1884)
VBA Reference (Page 1664)
EvenlySpaceHorizontally Method
Description
Using this method, the objects selected in the specified picture are spaced horizontally at an
even distance from one another.
syntax
Expression.
EvenlySpaceHorizontally()
Expression
Necessary. An expression or element which returns an object of the "Selection" type.
Parameters
--
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1751
Example:
In the following example three objects are inserted at different positions in the current picture
and selected. They are then positioned horizontally at an even distance from one another:
Sub EvenlySpaceObjectsHorizontally()
'VBA150
Dim objCircle As HMICircle
Dim objRectangle As HMIRectangle
Dim objEllipse As HMIEllipse
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("sCircle", "HMICircle")
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("sRectangle", "HMIRectangle")
Set objEllipse = ActiveDocument.HMIObjects.AddHMIObject("sEllipse", "HMIEllipse")
With objCircle
.Top = 30
.Left = 0
.Selected = True
End With
With objRectangle
.Top = 80
.Left = 42
.Selected = True
End With
With objEllipse
.Top = 48
.Left = 162
.BackColor = RGB(255, 0, 0)
.Selected = True
End With
MsgBox "Objects created and selected!"
ActiveDocument.Selection.EvenlySpaceHorizontally
End Sub
See also
VBA Reference (Page 1664)
Selection Object (Listing) (Page 1949)
EvenlySpaceVertically Method
Description
Using this method, the objects selected in the specified picture are spaced vertically at an even
distance from one another.
syntax
Expression.
EvenlySpaceVertically()
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1752
System Manual, 11/2008,
Expression
Necessary. An expression or element which returns an object of the "Selection" type.
Parameters
--
Example:
In the following example three objects are inserted at different positions in the current picture
and selected. They are then positioned vertically at an even distance from one another:
Sub EvenlySpaceObjectsVertically()
'VBA151
Dim objCircle As HMICircle
Dim objRectangle As HMIRectangle
Dim objEllipse As HMIEllipse
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("sCircle", "HMICircle")
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("sRectangle", "HMIRectangle")
Set objEllipse = ActiveDocument.HMIObjects.AddHMIObject("sEllipse", "HMIEllipse")
With objCircle
.Top = 30
.Left = 0
.Selected = True
End With
With objRectangle
.Top = 80
.Left = 42
.Selected = True
End With
With objEllipse
.Top = 48
.Left = 162
.BackColor = RGB(255, 0, 0)
.Selected = True
End With
MsgBox "Objects created and selected"
ActiveDocument.Selection.EvenlySpaceVertically
End Sub
See also
Selection Object (Listing) (Page 1949)
VBA Reference (Page 1664)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1753
Export Method
Description
Saves the specified picture as an EMF file.
Syntax
Expression.
Export(Type, Path)
Expression
Required. An expression or element which returns an object of the "Document" type.
Parameter
Parameter (Data Type) Description
Type (HMIImportExportType) Defines the format in which the exported picture
will be saved.
Path (String) The path in which the picture is going to be
exported. The path must exist.
Example
Sub ExportAllPicturesAsPDL()
'VBA152
Dim iPictureCounter As Integer
Dim strPath As String
strPath = "C:\WinCC_PDL_Export\"
'Count Pictures in Graphics Designer...
For iPictureCounter = 1 To grafexe.Documents.Count
'...and export each picture as PDL-file to specified path:
grafexe.Documents(iPictureCounter).Export hmiImportExportTypePDL,
strPath
Next iPictureCounter
End Sub
See also
View Object (Page 1991)
Document Object (Page 1847)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1754
System Manual, 11/2008,
Find Method
Description
Searches for objects in the specified picture and returns the search result as a collection object.
You can search for the following object properties:
● Type
● Name
● Property
syntax
Expression.
Find([ObjectType], [ObjectName], [PropertyName])
Expression
Necessary. An expression or element which returns an object of the "HMIObjects" type.
Parameters
You must specify at least one of the three parameters.
Parameter (Data Type) Description
ObjectType (String) The object type that is to be searched for. Specify
the "ProgID" of the object concerned. "Obtain the
"ProgID" by prefixing the VBA object name with
"HMI" "(e.g. HMICircle or HMIRectangle)
ObjectName (String) The name of the object that is to be searched for.
You
can use placeholders (?,*) in the object name
in order to find objects with similar names.
PropertyName (String) The name of the object property that is to be
searched for. Specify the VBA property name
concerned (e.g. "BackColor" in place of
"Background Color").
Example:
In the following example, objects of the "HMICircle" type will be searched for in the active
picture and the search result will be output:
Sub FindObjectsByType()
'VBA153
Dim colSearchResults As HMICollection
Dim objMember As HMIObject
Dim iResult As Integer
Dim strName 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,
1755
Set colSearchResults = ActiveDocument.HMIObjects.Find(ObjectType:="HMICircle")
For Each objMember In colSearchResults
iResult = colSearchResults.Count
strName = objMember.ObjectName
MsgBox "Found: " & CStr(iResult) & vbCrLf & "objectname: " & strName)
Next objMember
End Sub
Note
Further information on using the Find Method can be found in this documentation under the
heading "Editing Standard Objects, Smart Objects and Windows Objects".
See also
Type Property (Page 2315)
Name Property (Page 2228)
Property Object (Page 1932)
HMIObjects Object (Listing) (Page 1884)
How to edit Default objects, Smart objects, Windows objects and Tube objects (Page 1610)
VBA Reference (Page 1664)
FindByDisplayName Method
Description
Searches the entire Components Library for the specified object. A FolderItem object is
returned as the search result.
Note
The display name of the object is language-dependent. Only the language currently set will
be taken into account when searching. The search ends with the first object found.
syntax
Expression.
FindByDisplayName(DisplayName)
Expression
Necessary. An expression or element which returns an object of the "SymbolLibrary" type or
the "FolderItems" listing.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1756
System Manual, 11/2008,
Parameters
Parameter (Data Type) Description
DisplayName (String) The display name of the object that is to be
searched for in the Components Library.
Example:
In the following example the entire library will be searched for the object "PC" and its display
name will be output:
Sub FindObjectInSymbolLibrary()
'VBA154
Dim objGlobalLib As HMISymbolLibrary
Dim objFItem As HMIFolderItem
Set objGlobalLib = Application.SymbolLibraries(1)
Set objFItem = objGlobalLib.FindByDisplayName("PC")
MsgBox objFItem.DisplayName
End Sub
See also
FolderItem Object (Page 1867)
Accessing the component library with VBA (Page 1593)
FlipHorizontally Method
Description
Mirrors the selected objects in the specified picture along the horizontal midline.
The object type determines whether it is allowed to be mirrored (for instance an OLE Element
cannot be mirrored). The properties are appropriately modified when mirroring is performed.
For example, if you mirror an object of the "StaticText" type along the horizontal midline, the
value of the "AlignmentTop" property changes from "0" to "2".
syntax
Expression.
FlipHorizontally()
Expression
Necessary. An expression or element which returns an object of the "Selection" type.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1757
Parameters
--
Example:
In the following example a StaticText object will be inserted into the active picture and mirrored
along the horizontal midline:
Sub FlipObjectHorizontally()
'VBA155
Dim objStaticText As HMIStaticText
Dim strPropertyName As String
Dim iPropertyValue As Integer
Set objStaticText = ActiveDocument.HMIObjects.AddHMIObject("Textfield", "HMIStaticText")
strPropertyName = objStaticText.Properties("Text").Name
With objStaticText
.Width = 120
.Text = "Sample Text"
.Selected = True
iPropertyValue = .AlignmentTop
MsgBox "Value of '" & strPropertyName & "' before flip: " & iPropertyValue
ActiveDocument.Selection.FlipHorizontally
iPropertyValue = objStaticText.AlignmentTop
MsgBox "Value of '" & strPropertyName & "' after flip: " & iPropertyValue
End With
End Sub
See also
Selection Object (Listing) (Page 1949)
VBA Reference (Page 1664)
FlipVertically Method
Description
Mirrors the selected objects in the specified picture along the vertical midline.
The object type determines whether it is allowed to be mirrored (for instance an OLE Element
cannot be mirrored). The properties are appropriately modified when mirroring is performed.
For
example if you mirror an object of the "StaticText" type along the vertical midline, the value
of the "AlignmentLeft" property changes from "0" to "2".
syntax
Expression.
FlipVertically()
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1758
System Manual, 11/2008,
Expression
Necessary. An expression or element which returns an object of the "Selection" type.
Parameters
--
Example:
In the following example a StaticText object will be inserted into the active picture and mirrored
along the vertical midline:
Sub FlipObjectVertically()
'VBA156
Dim objStaticText As HMIStaticText
Dim strPropertyName As String
Dim iPropertyValue As Integer
Set objStaticText = ActiveDocument.HMIObjects.AddHMIObject("Textfield", "HMIStaticText")
strPropertyName = objStaticText.Properties("Text").Name
With objStaticText
.Width = 120
.Text = "Sample Text"
.Selected = True
.AlignmentLeft = 0
iPropertyValue = .AlignmentLeft
MsgBox "Value of '" & strPropertyName & "' before flip: " & iPropertyValue
ActiveDocument.Selection.FlipVertically
iPropertyValue = objStaticText.AlignmentLeft
MsgBox "Value of '" & strPropertyName & "' after flip: " & iPropertyValue
End With
End Sub
See also
Selection Object (Listing) (Page 1949)
VBA Reference (Page 1664)
ForwardOneLevel Method
Description
Moves the selected objects one level forward within their current layer.
syntax
Expression.
ForwardOneLevel()
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1759
Expression
Necessary. An expression or element which returns an object of the "Selection" type.
Parameters
--
Example:
In the following example two objects are inserted in the active picture. The object inserted first
is then moved forward one level:
Sub MoveObjectOneLevelForward()
'VBA174
Dim objCircle As HMICircle
Dim objRectangle As HMIRectangle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("sCircle", "HMICircle")
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("sRectangle", "HMIRectangle")
With objCircle
.Top = 40
.Left = 40
.Selected = True
End With
With objRectangle
.Top = 40
.Left = 40
.Width = 100
.Height = 50
.BackColor = RGB(255, 0, 255)
.Selected = False
End With
MsgBox "Objects created and selected!"
ActiveDocument.Selection.ForwardOneLevel
End Sub
See also
Selection Object (Listing) (Page 1949)
VBA Reference (Page 1664)
GetItemByPath Method
Description
Returns a FolderItem object (folder or object) located on the specified internal access path in
the Components Library.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1760
System Manual, 11/2008,