System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
.SourceCode = strVBCode
End With
End Sub
See also
AddAction Method (Page 1713)
Configuring Event-Driven Actions with VBA (Page 1644)
Parent Property (Page 2241)
Item Property (Page 2152)
Count Property (Page 2082)
Application Property (Page 2008)
ActiveXControl Object
Description
Represents the ActiveX Control object. The ActiveXControl object is an element of the following
listings:
● HMIObjects: Contains all objects of a picture.
● Selection: Contains all selected objects of a picture.
VBA Object Name
HMIActiveXControl
Usage
Use the AddActiveXControl method to insert an ActiveX Control in a picture, for instance. In
the following example the ActiveX Control "WinCC Gauge Control" is inserted in the active
picture.
Sub AddActiveXControl()
'VBA204
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1811
Dim objActiveXControl As HMIActiveXControl
Set objActiveXControl = ActiveDocument.HMIObjects.AddActiveXControl("WinCC_Gauge",
"XGAUGE.XGaugeCtrl.1")
With ActiveDocument
.HMIObjects("WinCC_Gauge").Top = 40
.HMIObjects("WinCC_Gauge").Left = 40
End With
End Sub
See also
ServerName Property (Page 2287)
AddActiveXControl Method (Page 1714)
VBA Reference (Page 1664)
ActiveX controls (Page 1617)
ProgID Property (Page 2262)
AnalogResultInfo Object
Description
Displays an analog value range and associated property value in the Dynamic dialog. The
AnalogResultInfo object is an element of the AnalogResultInfos listing:
VBA Object Name
HMIAnalogResultInfo
Usage
Use the AnalogResultInfo object to return an individual value range and property value. For a
detailed example, please refer to "AnalogResultInfos Object (Listing)" in this documentation.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1812
System Manual, 11/2008,
See also
AnalogResultInfos Object (Listing) (Page 1813)
Delete Method (Page 1745)
Value Property (Page 2331)
RangeTo Property (Page 2270)
Parent Property (Page 2241)
Application Property (Page 2008)
AnalogResultInfos Object (Listing)
Description
A listing of AnalogResultInfo objects that contain all the analog value ranges and the associated
property value in the Dynamic dialog.
VBA Object Name
HMIAnalogResultInfos
Usage
Use the Add method to add a new value range in the Dynamic dialog. 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()
'VBA206
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
.AnalogResultInfos.Add 50, 40
.AnalogResultInfos.Add 100, 80
.AnalogResultInfos.ElseCase = 100
End With
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1813
End Sub
Use AnalogResultInfos to return the AnalogResultInfos listing. In this example the value ranges
created in the above example will be output:
Sub ShowAnalogResultInfosOfCircleRadius()
'VBA207
Dim colAResultInfos As HMIAnalogResultInfos
Dim objAResultInfo As HMIAnalogResultInfo
Dim objDynDialog As HMIDynamicDialog
Dim objCircle As HMICircle
Dim iAnswer As Integer
Dim varRange As Variant
Dim varValue As Variant
Set objCircle = ActiveDocument.HMIObjects("Circle_A")
Set objDynDialog = objCircle.Radius.Dynamic
Set colAResultInfos = objDynDialog.AnalogResultInfos
For Each objAResultInfo In colAResultInfos
varRange = objAResultInfo.RangeTo
varValue = objAResultInfo.value
iAnswer = MsgBox("Ranges of values from Circle_A-Radius:" & vbCrLf & "Range of value to: "
& varRange & vbCrLf & "Value of property: " & varValue, vbOKCancel)
If vbCancel = iAnswer Then Exit For
Next objAResultInfo
End Sub
See also
Add Method (AnalogResultInfos Listing) (Page 1706)
Parent Property (Page 2241)
Item Property (Page 2152)
ElseCase Property (Page 2097)
Count Property (Page 2082)
Application Property (Page 2008)
Application Object
Description
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1814
System Manual, 11/2008,
Represents the Graphics Designer editor. The Application object contains properties and
methods that return objects from the top layer. For example ActiveDocument returns a
Document object.
VBA Object Name
HMIApplication
Usage
Use Application to return the Application object. In the following example the application
version is output:
Sub ShowApplicationVersion()
'VBA208
MsgBox Application.Version
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,
1815
See also
ShowTagDialog Method (Page 1801)
CurrentDesktopLanguage Property (Page 2084)
TileWindowsVertically Method (Page 1803)
TileWindowsHorizontally Method (Page 1802)
ShowSymbolLibraryDialog Method (Page 1800)
ShowPropertiesDialog Method (Page 1800)
SaveDefaultConfig Method (Page 1793)
LoadDefaultConfig Method (Page 1776)
CascadeWindows Method (Page 1731)
ArrangeMinimizedWindows Method (Page 1728)
Activate Method (Page 1704)
VBA Reference (Page 1664)
WindowState Property (Page 2412)
Visible Property (Page 2405)
Version Property (Page 2404)
VBE Property (Page 2404)
VBAVersion Property (Page 2404)
SymbolLibraries Property (Page 2299)
ProjectType Property (Page 2263)
ProjectName Property (Page 2262)
ProfileName Property (Page 2261)
Parent Property (Page 2241)
Name Property (Page 2228)
IsConnectedToProject Property (Page 2149)
Documents Property (Page 2095)
DefaultHMIObjects Property (Page 2089)
CustomToolbars Property (Page 2086)
CustomMenus Property (Page 2086)
CurrentDataLanguage Property (Page 2083)
ConfigurationFileName Property (Page 2081)
AvailableDataLanguages Property (Page 2013)
ApplicationDataPath Property (Page 2008)
Application Property (Page 2008)
ActiveDocument Property (Page 1996)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1816
System Manual, 11/2008,
ApplicationWindow Object
Description
Represents the "Application Window" object. The ApplicationWindow 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
HMIApplicationWindow
Usage
Use the Add method to create a new "Application Window" object in a picture:
Sub AddApplicationWindow()
'VBA209
Dim objApplicationWindow As HMIApplicationWindow
Set objApplicationWindow = ActiveDocument.HMIObjects.AddHMIObject("AppWindow",
"HMIApplicationWindow")
End Sub
Use "HMIObjects"(Index)" to return an object from the HMIObjects listing, where Index in this
case identifies the object by name:
Sub EditApplicationWindow()
'VBA210
Dim objApplicationWindow As HMIApplicationWindow
Set objApplicationWindow = ActiveDocument.HMIObjects("AppWindow")
objApplicationWindow.Sizeable = True
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,
1817
Sub ShowNameOfFirstSelectedObject()
'VBA211
'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
See also
Caption Property (Page 2053)
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)
WindowBorder Property (Page 2409)
Width Property (Page 2408)
Visible Property (Page 2405)
Top Property (Page 2311)
Sizeable Property (Page 2292)
OnTop Property (Page 2236)
Name Property (Page 2228)
Moveable Property (Page 2227)
MaximizeButton Property (Page 2208)
Left Property (Page 2192)
Layer Property (Page 2160)
Height Property (Page 2139)
CloseButton Property (Page 2065)
Application Property (Page 2008)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1818
System Manual, 11/2008,
BarGraph Object
Description
Represents the "Bar" object. The BarGraph 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 settings of property values of all Standard,
Windows and Smart objects.
VBAbezeichnung
HMIBarGraph
Usage
Use the Add method to create a new "Bar" object in a picture:
Sub AddBarGraph()
'VBA212
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
End Sub
Use "HMIObjects"(Index)" to return an object from the HMIObjects listing, where Index in this
case identifies the object by name:
Sub EditBarGraph()
'VBA213
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects("Bar1")
objBarGraph.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,
1819
Sub ShowNameOfFirstSelectedObject()
'VBA214
'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)
1820
System Manual, 11/2008,