System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
syntax
Expression
.Folder.AddItem "DefaultName", pHMIObject
Expression
Necessary. An expression or element which returns an object of the "FolderItems" type.
Parameters
Parameter (Data Type) Description
DefaultName (String) The name to be given to the object pasted into the
components library.
pHMIObject (HMIObject) The object that is to be inserted into the
Components Library from the specified picture.
Example:
In the following example a circle will be copied into the "Project Library". For this purpose the
circle will be pasted into the active picture and the folder "My Folder 2" will
Sub VBA123()
'VBA123
Dim objProjectLib As HMISymbolLibrary
Dim objCircle As HMICircle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle", "HMICircle")
Set objProjectLib = Application.SymbolLibraries(2)
objProjectLib.FolderItems.AddFolder ("My Folder2")
objProjectLib.FindByDisplayName("My Folder2").Folder.AddItem "ProjectLib Circle",
ActiveDocument.HMIObjects("Circle")
End Sub
See also
FolderItems Object (Listing) (Page 1868)
SymbolLibrary Object (Page 1962)
VBA Reference (Page 1664)
Accessing the component library with VBA (Page 1593)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1721
AddOLEObject Method
Description
Adds a new OLE Element to the "HMIObjects" listing. The object is inserted in the upper left
corner of the specified picture.
syntax
Expression.AddOLEObject(ObjectName, ServerName, [CreationType],
[UseSymbol])
Expression
Necessary. An expression or element which returns an object of the "HMIObjects" type.
Parameters
Parameter (Data Type) Description
ObjectName (String) The name of the object. You can address the object by its name in a listing.
ServerName (String) The name of the application which is to contain the OLE Element, or the file
name complete with path. The value for "ServerName" corresponds to the
"Object Type" in the "Insert Object" dialog:
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1722
System Manual, 11/2008,
Parameter (Data Type) Description
CreationType
(HMIOLEObjectCreation
Type-)
Defines whether the OLE Element will be newly created or an existing file
will be used:
● HMIOLEObjectCreationTypeDirect: Corresponds to setting "Create
New". This setting is used if you do not specify the parameter.
● HMIOLEObjectCreationTypeByLink: Corresponds to setting "Create
from
File". This creates a copy of the file. Any changes made to the OLE
Element have no effect on the original file. Assign a name to the file via
the "ServerName" parameter.
● HMIOLEObjectCreationTypeByLinkWithReference: Same as above,
except that changes in OLE Element affect the original file. Assign a
name to the file via the "ServerName" parameter.
UseSymbol (Boolean) TRUE if the standard icon for the file type is to be used. Double clicking on
the icon then opens the associated application. The default setting for this
parameter is FALSE.
Example:
In the following example, an OLE Element containing a Wordpad document will be inserted
into the active picture:
Sub AddOLEObjectToActiveDocument()
'VBA124
Dim objOLEObject As HMIOLEObject
Set objOLEObject = ActiveDocument.HMIObjects.AddOLEObject("MS Wordpad Document",
"Wordpad.Document.1")
End Sub
In the following example, the AddOLEObject method will be used and the
"HMIOLEObjectCreationTypeByLink" parameter will be specified:
Sub AddOLEObjectByLink()
'VBA805
Dim objOLEObject As HMIOLEObject
Dim strFilename As String
'
'Add OLEObject by filename. In this case, the filename has to
'contain filename and path.
'Replace the definition of strFilename with a filename with path
'existing on your system
strFilename = Application.ApplicationDataPath & "Test.bmp"
Set objOLEObject = ActiveDocument.HMIObjects.AddOLEObject("OLEObject1", strFilename,
hmiOLEObjectCreationTypeByLink, False)
End Sub
In the following example, the AddOLEObject method will be used and the
"HMIOLEObjectCreationTypeByLinkWithReference" parameter will be specified:
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1723
Sub AddOLEObjectByLinkWithReference()
'VBA806
Dim objOLEObject As HMIOLEObject
Dim strFilename As String
'
'Add OLEObject by filename. In this case, the filename has to
'contain filename and path.
'Replace the definition of strFilename with a filename with path
'existing on your system
strFilename = Application.ApplicationDataPath & "Test.bmp"
Set objOLEObject = ActiveDocument.HMIObjects.AddOLEObject("OLEObject1", strFilename,
hmiOLEObjectCreationTypeByLinkWithReference, True)
End Sub
See also
OLEObject Object (Page 1914)
HMIObjects Object (Listing) (Page 1884)
VBA Reference (Page 1664)
AlignBottom Method
Description
Aligns the objects selected in the specified picture with In so doing the alignment is oriented
on the first object that you select.
syntax
Expression.
AlignBottom()
Expression
Necessary. An expression or element which returns an object of the "Selection" type.
Parameters
--
Example:
In the following example two objects are inserted at different positions in the current picture
and then aligned with the bottom:
Sub AlignSelectedObjectsBottom()
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1724
System Manual, 11/2008,
'VBA125
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 = 80
.Left = 80
.Selected = True
End With
MsgBox "Objects selected!"
ActiveDocument.Selection.AlignBottom
End Sub
See also
Selection Object (Listing) (Page 1949)
VBA Reference (Page 1664)
AlignLeft Method
Description
Left-justifies the objects selected in the specified picture. In so doing the alignment is oriented
on the first object that you select.
syntax
Expression.
AlignLeft()
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,
1725
Example:
In the following example two objects are inserted at different positions in the current picture
and then aligned to the left:
Sub AlignSelectedObjectsLeft()
'VBA126
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 = 80
.Left = 80
.Selected = True
End With
MsgBox "Objects selected!"
ActiveDocument.Selection.AlignLeft
End Sub
See also
Selection Object (Listing) (Page 1949)
VBA Reference (Page 1664)
AlignRight Method
Description
Right-justifies the objects selected in the specified picture. In so doing the alignment is oriented
on the first object that you select.
syntax
Expression.
AlignRight()
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)
1726
System Manual, 11/2008,
Example:
In the following example two objects are inserted at different positions in the current picture
and then aligned to the right:
Sub AlignSelectedObjectsRight()
'VBA127
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 = 80
.Left = 80
.Selected = True
End With
MsgBox "Objects selected!"
ActiveDocument.Selection.AlignRight
End Sub
See also
Selection Object (Listing) (Page 1949)
VBA Reference (Page 1664)
AlignTop Method
Description
Aligns the objects selected in the specified picture with In so doing the alignment is oriented
on the first object that you select.
syntax
Expression.
AlignTop()
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,
1727
Example:
In the following example two objects are inserted at different positions in the current picture
and then aligned with the top:
Sub AlignSelectedObjectsTop()
'VBA128
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 = 80
.Left = 80
.Selected = True
End With
MsgBox "Objects selected!"
ActiveDocument.Selection.AlignTop
End Sub
See also
Selection Object (Listing) (Page 1949)
VBA Reference (Page 1664)
ArrangeMinimizedWindows Method
Description
Arranges all minimized pictures on the lower margin of the Graphics Designer.
syntax
Expression.
ArrangeMinimizedWindows()
Expression
Necessary. An expression or element which returns an object of the "Application" type.
Parameters
--
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1728
System Manual, 11/2008,
Example:
In the following example all minimized pictures are arranged on the lower margin of the
Graphics
Designer. For this example to work, you must have minimized a number of pictures
in the Graphics Designer:
Sub ArrangeMinimizedWindows()
'VBA129
Application.ArrangeMinimizedWindows
End Sub
See also
Application Object (Page 1814)
VBA Reference (Page 1664)
BackwardOneLevel Method
Description
Moves the selected objects one level backward within their current layer.
syntax
Expression.
BackwardOneLevel()
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 last
is then moved backward one level:
Sub MoveObjectOneLevelBackward()
'VBA173
Dim objCircle As HMICircle
Dim objRectangle As HMIRectangle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("sCircle", "HMICircle")
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("sRectangle", "HMIRectangle")
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1729
With objCircle
.Top = 40
.Left = 40
.Selected = False
End With
With objRectangle
.Top = 40
.Left = 40
.Width = 100
.Height = 50
.BackColor = RGB(255, 0, 255)
.Selected = True
End With
MsgBox "Objects created and selected!"
ActiveDocument.Selection.BackwardOneLevel
End Sub
See also
Selection Object (Listing) (Page 1949)
VBA Reference (Page 1664)
BringToFront Method
Description
Brings the selected objects right to the front within their current layer.
Note
If the "BringToFront" method is used, the sequence of HMI objects can change in the
HMIObjects listing.
Syntax
Expression.
BringToFront()
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)
1730
System Manual, 11/2008,