System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
CircularArc Object
Description
Represents the "Circular Arc" object. The CircularArc object is an element of the following
listings:
● Objects: Contains all objects of a picture.
● Selection: Contains all selected objects of a picture.
● HMIDefaultObjects: Contains the default property values of all standard, Windows, and
smart objects.
VBA Object Name
HMICircularArc
Usage
Use the Add method to create a new "Circular Arc" object in a picture:
Sub AddCiruclarArc()
'VBA226
Dim objCiruclarArc As HMICircularArc
Set objCiruclarArc = ActiveDocument.HMIObjects.AddHMIObject("CircularArc",
"HMICircularArc")
End Sub
Use "HMIObjects"(Index)" to return an object from the HMIObjects listing, where Index in this
case identifies the object by name:
Sub EditCiruclarArc()
'VBA227
Dim objCiruclarArc As HMICircularArc
Set objCiruclarArc = ActiveDocument.HMIObjects("CircularArc")
objCiruclarArc.BorderColor = RGB(255, 0, 0)
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,
1831
Use "Selection"(Index) to return an object from the Selection listing:
Sub ShowNameOfFirstSelectedObject()
'VBA228
'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)
1832
System Manual, 11/2008,
See also
HMIObjects Object (Listing) (Page 1884)
BorderBackColor Property (Page 2035)
Selection Object (Listing) (Page 1949)
HMIDefaultObjects Object (Listing) (Page 1878)
AddHMIObject Method (Page 1719)
VBA Reference (Page 1664)
Editing Objects with VBA (Page 1606)
Width Property (Page 2408)
Visible Property (Page 2405)
Top Property (Page 2311)
ToolTipText Property (Page 2310)
StartAngle Property (Page 2296)
Radius Property (Page 2268)
PasswordLevel Property (Page 2244)
Operation Property (Page 2237)
Name Property (Page 2228)
Left Property (Page 2192)
Layer Property (Page 2160)
Height Property (Page 2139)
FlashRateBorderColor Property (Page 2120)
FlashBorderColor Property (Page 2112)
EndAngle Property (Page 2098)
BorderWidth Property (Page 2045)
BorderStyle Property (Page 2043)
BorderFlashColorOn Property (Page 2042)
BorderFlashColorOff Property (Page 2040)
BorderColor Property (Page 2036)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1833
ComboBox object
Description
Represents the "ComboBox" object. The ComboBox object is an element of the following lists:
● HMIObjects: Contains all objects of a picture.
● Selection: Contains all selected objects of a picture.
● HMIDefaultObjects: Contains the default property values of all default, smart, window and
tube objects.
VBA object name
HMIComboBox
Usage
Use the Add method to create a new "ComboBox" object in a picture:
Sub AddComboBox()
'VBA822
Dim objComboBox As HMIComboBox
Set objComboBox = ActiveDocument.HMIObjects.AddHMIObject("ComboBox", "HMIComboBox")
End Sub
Use "HMIObjects"(Index)" to return an object from the HMIObjects listing, where Index in this
case identifies the object by name:
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1834
System Manual, 11/2008,
Sub EditComboBox()
'VBA850
Dim objComboBox As HMIComboBox
Set objComboBox = ActiveDocument.HMIObjects("ComboBox")
objComboBox.BorderColor = RGB(255, 0, 0)
End Sub
Use "Selection"(Index) to return an object from the Selection listing:
Sub ShowNameOfFirstSelectedObject()
'VBA824
'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,
1835
See also
ObjectName Property (Page 2232)
Left Property (Page 2192)
Layer Property (Page 2160)
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)
BorderStyle Property (Page 2043)
BorderWidth Property (Page 2045)
FillColor Property (Page 2104)
FillStyle Property (Page 2108)
FontName Property (Page 2129)
FontSize Property (Page 2130)
FontBold Property (Page 2126)
FontItalic Property (Page 2128)
FontUnderline Property (Page 2131)
AlignmentLeft Property (Page 2004)
GlobalShadow property (Page 2135)
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)
SelText property (Page 2287)
SelIndex property (Page 2286)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1836
System Manual, 11/2008,
ConnectionPoints Object (Listing)
Description
The listing returns the number of points to which the connector can be appended in the
specified object.
VBA object name
HMIConnectionPoints
Object properties
The ConnectionPoints object possesses the following properties:
● Application
● Count
● Item
● Parent
Example 1
In this example, a rectangle is inserted and the number of connection points is output:
Sub CountConnectionPoints()
'VBA229
Dim objRectangle As HMIRectangle
Dim objConnPoints As HMIConnectionPoints
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("Rectangle1", "HMIRectangle")
Set objConnPoints = ActiveDocument.HMIObjects("Rectangle1").ConnectionPoints
MsgBox "Rectangle1 has " & objConnPoints.Count & " connectionpoints."
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,
1837
Example 2:
In this example, a text field is inserted and the connection points are accessed via
"ConnectionPoints.Item". The coordinates of the connection points are shown in an output
window.
Sub GetConnectionPoints()
'VBA825
Dim xPos As Long
Dim yPos As Long
Dim objConnPoints As HMIConnectionPoints
Set objDoc = Application.ActiveDocument
Set objObject = objDoc.HMIObjects.AddHMIObject("Text","HMIStaticText")
Set objConnPoints = ActiveDocument.HMIObjects("Text").ConnectionPoints
For i = 1 To objConnPoints.Count
xPos = objObject.ConnectionPoints.Item(i)(0)
yPos = objObject.ConnectionPoints.Item(i)(1)
MsgBox "Coordinates " & i & ". ConnectionPoint:" & Chr(13) & "x: " & xPos & Chr(13) &
"y: " & yPos
Next
End Sub
The diagram below shows the positions of the 4 connection points of the text field.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1838
System Manual, 11/2008,
Note
If you activate the connection points of a connector with VBA, the connection point index
begins with "1".
If you determine the connection points in the property window of the connector in the graphical
interface, the connection point index begins with "0".
The index numbers e.g. of the lower connection point in the picture are assigned as follows:
● VBA: Index = 3
● Graphical interface: Index = 2
See also
Parent Property (Page 2241)
Item Property (Page 2152)
Count Property (Page 2082)
Application Property (Page 2008)
CustomizedObject Object
Description
Represents the object called "Customized Object". The CustomizedObject object is an element
of the following listings:
● Objects: Contains all objects of a picture.
● Selection: Contains all selected objects of a picture.
In the case of the CustomizedObject object, the only properties that are available in the object
are those that you have selected in the "Configuration" dialog for the customized object
concerned.
Note
You cannot configure the CustomizedObject object with VBA.
Further information regarding customized objects can be found in the WinCC documentation
under "Customized 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,
1839
VBA Object Name
HMICustomizedObject
Usage
Use the CreateCustomizedObject Method with the Selection listing to create a new
"Customized Object" object in a picture:
Sub CreateCustomizedObject()
'VBA230
Dim objCircle As HMICircle
Dim objRectangle As HMIRectangle
Dim objCustomizedObject As HMICustomizedObject
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_A", "HMICircle")
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("Rectangle_B", "HMIRectangle")
With objCircle
.Left = 10
.Top = 10
.Selected = True
End With
With objRectangle
.Left = 50
.Top = 50
.Selected = True
End With
MsgBox "objects created and selected!"
Set objCustomizedObject = ActiveDocument.Selection.CreateCustomizedObject
objCustomizedObject.ObjectName = "Customer-Object"
End Sub
Use "HMIObjects"(Index)" to return an object from the HMIObjects listing, where Index in this
case identifies the object by name:
Sub EditCustomizedObject()
'VBA231
Dim objCustomizedObject As HMICustomizedObject
Set objCustomizedObject = ActiveDocument.HMIObjects("Customer-Object")
MsgBox objCustomizedObject.ObjectName
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1840
System Manual, 11/2008,