System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
Parameters
Parameter (Data Type) Description
FileName (String) The name of the PDL file to be opened.
Unless you saved the PDL file in the "GraCS"
folder of the open project, you must also specify
the path at the same time.
HMIOpenDocumentType (HMIDocumentType) Defines how the picture will be opened:
● HMIDocumentTypeVisible: Opens the picture
for direct processing. This is the default setting
if you do not specify the parameter.
● HMIDocumentTypeInvisible: Opens the
picture in invisible mode, i.e. it is not displayed
in the Graphics Designer. You can only
address the picture via the Documents listing,
and make it visible again by means of the Hide
property.
Example:
In the following example the picture "Test" will be opened. For this example to work, you must
have
previously saved a picture with the name "Test" in the "GraCS" folder of the open project.
Sub OpenDocument()
'VBA175
Application.Documents.Open "Test.PDL", hmiOpenDocumentTypeVisible
End Sub
See also
Hide Property (Page 2140)
Documents Object (Listing) (Page 1850)
VBA Reference (Page 1664)
PasteClipboard Method
Description
Pastes the contents of the clipboard into the specified picture.
Note
The clipboard must contain objects from the Graphics Designer. Other contents (such as
ASCII text) will not be pasted.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1781
syntax
Expression.
PasteClipboard()
Expression
Necessary. An expression or element which returns an object of the "Document" type.
Parameters
--
Example:
In the following example all the objects selected in the active picture are copied to the clipboard
and
then pasted into a new picture. For this example to work, you must have selected at least
one object in the active picture:
Sub CopySelectionToNewDocument()
'VBA176
Dim iNewDoc As String
ActiveDocument.CopySelection
Application.Documents.Add hmiOpenDocumentTypeVisible
iNewDoc = Application.Documents.Count
Application.Documents(iNewDoc).PasteClipboard
End Sub
See also
ActiveDocument Property (Page 1996)
Document Object (Page 1847)
CopySelection Method (Page 1738)
Add Method (Documents Listing) (Page 1709)
Activate Method (Page 1704)
VBA Reference (Page 1664)
PrintDocument Method
Description
Prints the specified copy of the picture using the current printer settings.
syntax
Expression.
PrintDocument()
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1782
System Manual, 11/2008,
Expression
Necessary. An expression or element which returns an object of the "View" type.
Parameters
--
Example:
In the following example a copy of the active picture is created and then activated and printed:
Sub CreateAndPrintView()
'VBA177
Dim objView As HMIView
Set objView = ActiveDocument.Views.Add
objView.Activate
objView.PrintDocument
End Sub
See also
View Object (Page 1991)
VBA Reference (Page 1664)
PrintProjectDocumentation Method
Description
Prints out the project documentation for the current picture complete with all the objects it
contains and their properties via the reporting system in WinCC (Report Designer).
You must first have set the print settings (such as page range) in the "Print Job Properties"
dialog.
To do this, go to the Graphics Designer and select the menu command "File" > "Project
Documentation - Setup".
Note
The project documentation will be output on the printer that was set up in the Report Designer.
You can design the print layout to suit your needs with the aid of the Report Designer.
syntax
Expression.
PrintProjectDocumentation()
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1783
Expression
Necessary. An expression or element which returns an object of the "Document" type.
Parameters
--
Example:
In the following example the project documentation for the active picture will be printed:
Sub ToPrintProjectDocumentation()
'VBA178
ActiveDocument.PrintProjectDocumentation
End Sub
See also
Document Object (Page 1847)
VBA Reference (Page 1664)
Remove Method
Description
Removes an object from a selection of objects or from a group object.
syntax
Expression.
Remove(Index)
Expression
Necessary. An expression or element which returns an object of the "GroupedObjects" or
"Selection" type.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1784
System Manual, 11/2008,
Parameters
Parameter (Data Type) Description
Index (Variant) The name or index number of the object that is
intended to be removed.
You can use the Object Name as the name. As the
index
number you can use a numerical expression
(from 1 up to the value of the Count property of the
listing).
If the entered value fails to match any element in
the listing, this counts as an error.
Example:
In the following example three objects will first be inserted in the active picture and selected.
Then
one object will be removed from the selection and the remaining objects will be grouped.
Then the first object will be removed from the group object:
Sub RemoveObjectFromGroup()
'VBA179
Dim objCircle As HMICircle
Dim objRectangle As HMIRectangle
Dim objEllipse As HMIEllipse
Dim objGroup As HMIGroup
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
.Width = 40
.BackColor = RGB(255, 0, 0)
.Selected = True
End With
MsgBox "Objects selected!"
Set objGroup = ActiveDocument.Selection.CreateGroup
MsgBox "Group-object is created."
objGroup.GroupedHMIObjects.Remove ("sEllipse")
MsgBox "The ellipse is removed from group-object."
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,
1785
See also
Selection Object (Listing) (Page 1949)
GroupedObjects Object (Listing) (Page 1877)
VBA Reference (Page 1664)
Rotate Method
Description
Rotates the object selected in the specified picture by 90° clockwise.
syntax
Expression.
Rotate()
Expression
Necessary. An expression or element which returns an object of the "Selection" type.
Parameters
--
Example:
In the following example two objects will be inserted in the active picture and then grouped.
The group object will then be rotated once:
Sub RotateGroupObject()
'VBA180
Dim objCircle As HMICircle
Dim objRectangle As HMIRectangle
Dim objGroup As HMIGroup
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("sRectangle", "HMIRectangle")
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("sCircle", "HMICircle")
With objRectangle
.Top = 30
.Left = 30
.Width = 80
.Height = 40
.Selected = True
End With
With objCircle
.Top = 30
.Left = 30
.BackColor = RGB(255, 255, 255)
.Selected = True
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1786
System Manual, 11/2008,
End With
MsgBox "Objects selected!"
Set objGroup = ActiveDocument.Selection.CreateGroup
MsgBox "Group-object created."
objGroup.Selected = True
ActiveDocument.Selection.Rotate
End Sub
See also
VBA Reference (Page 1664)
Selection Object (Listing) (Page 1949)
SameHeight Method
Description
Sets the "Height" property for all selected objects in the specified picture to the smallest
available value.
syntax
Expression.
SameHeight()
Expression
Necessary. An expression or element which returns an object of the "Selection" type.
Parameters
--
Example:
In the following example three objects of different sizes will be inserted in the active picture.
Then all objects will be selected and set to the same height:
Sub ApplySameHeightToSelectedObjects()
'VBA181
Dim objCircle As HMICircle
Dim objRectangle As HMIRectangle
Dim objEllipse As HMIEllipse
Dim objGroup As HMIGroup
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("sCircle", "HMICircle")
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("sRectangle", "HMIRectangle")
Set objEllipse = ActiveDocument.HMIObjects.AddHMIObject("sEllipse", "HMIEllipse")
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1787
With objCircle
.Top = 30
.Left = 0
.Height = 15
.Selected = True
End With
With objRectangle
.Top = 80
.Left = 42
.Height = 40
.Selected = True
End With
With objEllipse
.Top = 48
.Left = 162
.Width = 40
.Height = 120
.BackColor = RGB(255, 0, 0)
.Selected = True
End With
MsgBox "Objects selected!"
ActiveDocument.Selection.SameHeight
End Sub
See also
Height Property (Page 2139)
Selection Object (Listing) (Page 1949)
VBA Reference (Page 1664)
SameWidth Method
Description
Sets the "Width" property for all selected objects in the specified picture to the smallest
available value.
syntax
Expression.
SameWidth()
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)
1788
System Manual, 11/2008,
Parameters
--
Example:
In the following example three objects of different sizes will be inserted in the active picture.
Then all objects will be selected and set to the same width:
Sub ApplySameWidthToSelectedObjects()
'VBA182
Dim objCircle As HMICircle
Dim objRectangle As HMIRectangle
Dim objEllipse As HMIEllipse
Dim objGroup As HMIGroup
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
.Width = 15
.Selected = True
End With
With objRectangle
.Top = 80
.Left = 42
.Width = 40
.Selected = True
End With
With objEllipse
.Top = 48
.Left = 162
.Width = 120
.BackColor = RGB(255, 0, 0)
.Selected = True
End With
MsgBox "Objects selected!"
ActiveDocument.Selection.SameWidth
End Sub
See also
Width Property (Page 2408)
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,
1789
SameWidthAndHeight Method
Description
Sets the "Height" and "Width" properties for all selected objects in the specified picture to the
smallest available value.
syntax
Expression.
SameWidthAndHeight()
Expression
Necessary. An expression or element which returns an object of the "Selection" type.
Parameters
--
Example:
In the following example three objects of different sizes will be inserted in the active picture.
Then all objects will be selected and set to the same height:
Sub ApplySameWidthAndHeightToSelectedObjects()
'VBA183
Dim objCircle As HMICircle
Dim objRectangle As HMIRectangle
Dim objEllipse As HMIEllipse
Dim objGroup As HMIGroup
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
.Height = 15
.Selected = True
End With
With objRectangle
.Top = 80
.Left = 42
.Width = 25
.Height = 40
.Selected = True
End With
With objEllipse
.Top = 48
.Left = 162
.Width = 40
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1790
System Manual, 11/2008,