System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
See also
Add Method (Page 1705)
Document Object (Page 1847)
SaveAll Method (Page 1792)
Open Method (Page 1780)
Item Method (Page 1772)
CloseAll Method (Page 1736)
Close Method (Page 1735)
VBA Reference (Page 1664)
Editing Pictures with VBA (Page 1601)
Parent Property (Page 2241)
Count Property (Page 2082)
Application Property (Page 2008)
ActiveDocument Property (Page 1996)
DynamicDialog Object
Description
Represents the Dynamic dialog. You can use the dynamic dialog to make the properties of
pictures and objects respond dynamically to different value ranges.
Define the value range with the aid of the ResultType property.
VBA Object Name
HMIDynamicDialog
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1851
Usage
Use the DynamicDialog object to make an object property dynamic. In the following example
the
radius of a circle will be dynamically configured using the Dynamic dialog, a tag name will
be assigned and three analog value ranges will be created:
Sub AddDynamicDialogToCircleRadiusTypeAnalog()
'VBA240
Dim objDynDialog As HMIDynamicDialog
Dim objCircle As HMICircle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_A", "HMICircle")
Set objDynDialog = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeDynamicDialog,
"'NewDynamic1'")
With objDynDialog
.ResultType = hmiResultTypeAnalog
.Trigger.VariableTriggers.Add "NewDynamic2", hmiVariableCycleType_5s
.AnalogResultInfos.Add 50, 40
.AnalogResultInfos.Add 100, 80
.AnalogResultInfos.ElseCase = 100
End With
End Sub
See also
Delete Method (Page 1745)
ConvertToScript Method (Page 1737)
CheckSyntax Method (Page 1734)
VariableStateValues Property (Page 2401)
VariableStateChecked Property (Page 2400)
Trigger Property (Page 2314)
SourceCode Property (Page 2295)
ScriptType Property (Page 2280)
ResultType Property (Page 2272)
Parent Property (Page 2241)
Compiled Property (Page 2080)
BitResultInfo Property (Page 2033)
BinaryResultInfo Property (Page 2031)
Application Property (Page 2008)
AnalogResultInfos Property (Page 2006)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1852
System Manual, 11/2008,
Ellipse Object
Description
Represents the "Ellipse" object. The Ellipse object is an element of the following listings:
● HMIObjects: 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
HMIEllipse
Usage
Use the Add method to create a new "Ellipse" object in a picture:
Sub AddEllipse()
'VBA241
Dim objEllipse As HMIEllipse
Set objEllipse = ActiveDocument.HMIObjects.AddHMIObject("Ellipse", "HMIEllipse")
End Sub
Use "HMIObjects"(Index)" to return an object from the HMIObjects listing, where Index in this
case identifies the object by name:
Sub EditEllipse()
'VBA242
Dim objEllipse As HMIEllipse
Set objEllipse = ActiveDocument.HMIObjects("Ellipse")
objEllipse.BorderColor = RGB(255, 0, 0)
End Sub
Use "Selection"(Index) to return an object from the Selection listing.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1853
Sub ShowNameOfFirstSelectedObject()
'VBA243
'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)
1854
System Manual, 11/2008,
See also
FillingIndex Property (Page 2107)
Selection Object (Listing) (Page 1949)
HMIObjects Object (Listing) (Page 1884)
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)
RadiusWidth Property (Page 2269)
RadiusHeight 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)
FlashRateBackColor Property (Page 2119)
FlashBorderColor Property (Page 2112)
FlashBackColor Property (Page 2111)
FillStyle Property (Page 2108)
Filling Property (Page 2106)
FillColor Property (Page 2104)
BorderWidth Property (Page 2045)
BorderStyle Property (Page 2043)
BorderFlashColorOn Property (Page 2042)
BorderFlashColorOff Property (Page 2040)
BorderColor Property (Page 2036)
BorderBackColor Property (Page 2035)
BackFlashColorOn Property (Page 2022)
BackFlashColorOff Property (Page 2021)
BackColor Property (Page 2017)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1855
EllipseArc Object
Description
Represents the "Ellipse Arc" object. The EllipseArc object is an element of the following listings:
● HMIObjects: 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
HMIEllipseArc
Usage
Use the Add method to create a new "Ellipse Arc" object in a picture:
Sub AddEllipseArc()
'VBA244
Dim objEllipseArc As HMIEllipseArc
Set objEllipseArc = ActiveDocument.HMIObjects.AddHMIObject("EllipseArc", "HMIEllipseArc")
End Sub
Use "HMIObjects"(Index)" to return an object from the HMIObjects listing, where Index in this
case identifies the object by name:
Sub EditEllipseArc()
'VBA245
Dim objEllipseArc As HMIEllipseArc
Set objEllipseArc = ActiveDocument.HMIObjects("EllipseArc")
objEllipseArc.BorderColor = RGB(255, 0, 0)
End Sub
Use "Selection"(Index) to return an object from the Selection listing:
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1856
System Manual, 11/2008,
Sub ShowNameOfFirstSelectedObject()
'VBA246
'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
Use the "HMIDefaultObjects(Index)" to return an object from the HMIDefaultObjects Listing:
Sub EditDefaultPropertiesOfEllipseArc()
'VBA247
Dim objEllipseArc As HMIEllipseArc
Set objEllipseArc = Application.DefaultHMIObjects("HMIEllipseArc")
objEllipseArc.BorderColor = RGB(255, 255, 0)
'create new "EllipseArc"-object
Set objEllipseArc = ActiveDocument.HMIObjects.AddHMIObject("EllipseArc2", "HMIEllipseArc")
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,
1857
See also
ToolTipText Property (Page 2310)
Selection Object (Listing) (Page 1949)
HMIObjects Object (Listing) (Page 1884)
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)
StartAngle Property (Page 2296)
RadiusWidth Property (Page 2269)
RadiusHeight 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)
BorderBackColor Property (Page 2035)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1858
System Manual, 11/2008,
EllipseSegment Object
Description
Represents the "Ellipse Segment" object. The EllipseSegment object is an element of the
following listings:
● HMIObjects: 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
HMIEllipseSegment
Usage
Use the Add method to create a new "Ellipse Segment" object in a picture:
Sub AddEllipseSegment()
'VBA248
Dim objEllipseSegment As HMIEllipseSegment
Set objEllipseSegment = ActiveDocument.HMIObjects.AddHMIObject("EllipseSegment",
"HMIEllipseSegment")
End Sub
Use "HMIObjects"(Index)" to return an object from the HMIObjects listing, where Index in this
case identifies the object by name:
Sub EditEllipseSegment()
'VBA249
Dim objEllipseSegment As HMIEllipseSegment
Set objEllipseSegment = ActiveDocument.HMIObjects("EllipseSegment")
objEllipseSegment.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,
1859
Use "Selection"(Index) to return an object from the Selection listing:
Sub ShowNameOfFirstSelectedObject()
'VBA250
'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)
1860
System Manual, 11/2008,