System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
End Sub
See also
OutputFormat Property (Page 2240)
DataFormat Property (Page 2089)
IOField Object (Page 1886)
AutomationName Property
Description
Depending on the source and destination object types for the direct connection, either defines
or returns the name of a property.
The two tables show you when you must use the AutomationName property. A "--" means that
the property is assigned an empty string (") by default when the DirectConnection object is
created.
Source object type (SourceLink Property)
Type Property AutomationName Property ObjectName Property
hmiSourceTypeConstant -- Name of the constant (e.g. the
picture name)
hmiSourceTypeProperty Property of the source object
(e.g. "Top")
Name of the source object (e.g.
"Rectangle_A")
hmiSourceTypePropertyOfThisObj
ect
-- --
hmiSourceTypeVariableDirect -- Tag name
hmiSourceTypeVariableIndirect -- Tag name
Destination object type (DestinationLink Property)
Type Property AutomationName Property ObjectName Property
hmiDestTypeProperty Property of the destination
object (e.g. "Left")
Name of the destination object
(e.g. "Rectangle_A")
hmiDestTypePropertyOfThisObject -- --
hmiDestTypePropertyOfActualWin
dow
Property of the destination
object (e.g. "Left")
--
hmiDestTypeVariableDirect -- Tag name
hmiDestTypeVariableIndirect -- Tag name
hmiDestTypeDirectMessage -- Tag name
hmiDestTypeIndirectMessage -- Tag name
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2011
Example:
In the following example the X position of "Rectangle_A" is copied to the Y position of
"Rectangle_B" in Runtime by clicking on the button:
Sub DirectConnection()
'VBA387
Dim objButton As HMIButton
Dim objRectangleA As HMIRectangle
Dim objRectangleB As HMIRectangle
Dim objEvent As HMIEvent
Dim objDynConnection As HMIDirectConnection
'
'Add objects to active document:
Set objRectangleA = ActiveDocument.HMIObjects.AddHMIObject("Rectangle_A", "HMIRectangle")
Set objRectangleB = ActiveDocument.HMIObjects.AddHMIObject("Rectangle_B", "HMIRectangle")
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("myButton", "HMIButton")
'
'to position and configure objects:
With objRectangleA
.Top = 100
.Left = 100
End With
With objRectangleB
.Top = 250
.Left = 400
.BackColor = RGB(255, 0, 0)
End With
With objButton
.Top = 10
.Left = 10
.Text = "SetPosition"
End With
'
'Directconnection is initiate by mouseclick:
Set objDynConnection =
objButton.Events(1).Actions.AddAction(hmiActionCreationTypeDirectConnection)
With objDynConnection
'Sourceobject: Top-Property of Rectangle_A
.SourceLink.Type = hmiSourceTypeProperty
.SourceLink.ObjectName = "Rectangle_A"
.SourceLink.AutomationName = "Top"
'
'Targetobject: Left-Property of Rectangle_B
.DestinationLink.Type = hmiDestTypeProperty
.DestinationLink.ObjectName = "Rectangle_B"
.DestinationLink.AutomationName = "Left"
End With
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2012
System Manual, 11/2008,
See also
DestinationLink Property (Page 2090)
Type Property (Page 2315)
SourceLink Property (Page 2293)
ObjectName Property (Page 2232)
SourceLink Object (Page 1955)
DestLink Object (Page 1843)
AvailableDataLanguages Property
Description
Returns a listing of the available project languages.
Example:
The "AusgabetDataLanguages()" procedure outputs all the existing project languages together
with their language identifiers (as a decimal value):
Sub OutputDataLanguages()
'VBA388
Dim colDataLang As HMIDataLanguages
Dim objDataLang As HMIDataLanguage
Dim strLangList As String
Dim iCounter As Integer
'
'Save collection of datalanguages
'into variable "colDataLang"
Set colDataLang = Application.AvailableDataLanguages
iCounter = 1
'
'Get every languagename and the assigned ID
For Each objDataLang In colDataLang
With objDataLang
If 0 = iCounter Mod 3 Or 1 = iCounter Then
strLangList = strLangList & vbCrLf & .LanguageID & " " & .LanguageName
Else
strLangList = strLangList & " / " & .LanguageID & " " & .LanguageName
End If
End With
iCounter = iCounter + 1
Next objDataLang
MsgBox strLangList
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,
2013
See also
LanguageName Property (Page 2158)
LanguageID Property (Page 2158)
How to Assign Help Texts to Menus and Toolbars (Page 1586)
How to Create Menus in Multiple Languages (Page 1580)
Language-Dependent Configuration with VBA (Page 1570)
Average Property
Description
TRUE, when the average value from the last 15 values should be calculated. BOOLEAN write-
read access.
Example:
The "BarGraphConfiguration()" procedure configures In this example, value averaging will be
activated:
Sub BarGraphConfiguration()
'VBA389
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
.Average = True
End With
End Sub
See also
BarGraph Object (Page 1819)
Axe Property
Description
Defines or returns the axis for displaying the measured value. Value range from 0 to 2.
Axis Assigned Value
X 0
Y 1
Z 2
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2014
System Manual, 11/2008,
Example:
The "HMI3DBarGraphConfiguration()" procedure accesses the properties of the 3DBarGraph
object. In this example the Y axis for displaying the measured value will be defined:
Sub HMI3DBarGraphConfiguration()
'VBA390
Dim obj3DBar As HMI3DBarGraph
Set obj3DBar = ActiveDocument.HMIObjects.AddHMIObject("3DBar1", "HMI3DBarGraph")
With obj3DBar
.Axe = 1
End With
End Sub
See also
3DBarGraph Object (Page 1805)
AxisSection Property
Description
Defines or returns the distance between two long axis sections. The information on the distance
is given in scale units and is dependent on the minimum and maximum values configured.
BarGraph Object (Minimum/Maximum Value: -5/5; AxisSection = 2)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2015
Example
The "BarGraphConfiguration()" procedure accesses the properties of the BarGraph object. In
this example the axis section will be set to "2".
Sub BarGraphConfiguration()
'VBA391
Dim objBar As HMIBarGraph
Set objBar = ActiveDocument.HMIObjects.AddHMIObject("Bar1",
"HMIBarGraph")
With objBar
.AxisSection = 2
End With
End Sub
See also
BarGraph Object (Page 1819)
4.4.8.2 B
BackBorderWidth Property
Description
Defines or returns the width of the 3D border in pixels. The value for the width is dependent
on the size of the object.
Slider
Defines or returns the width of the border in pixels. BackBorderWidth = 0 prevents the border
being displayed on the Slider object.
Example:
The "ButtonConfiguration()" procedure accesses the properties of the button. In this example
the width of the 3D border will be set to "2".
Sub ButtonConfiguration()
'VBA392
Dim objButton As HMIButton
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("Button1", "HMIButton")
With objButton
.BackBorderWidth = 2
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2016
System Manual, 11/2008,
End With
End Sub
See also
Slider object (Page 1952)
RoundButton Object (Page 1942)
GroupDisplay Object (Page 1874)
Button Object (Page 1824)
BackColor Property
Description
Defines or returns the background color for the object. LONG read-write access.
The background color is not displayed if "transparent" is defined as the fill pattern.
Determination of Color Value
The color is displayed in RGB format (Red, Green, Blue). Specify the corresponding decimal
value for each of the three RGB values (value range from 0 to 255).
Use VBA function "RGB" to assign a color to a property. The color "red", for example, is
represented as follows: RGB(255, 0, 0)
Example:
The "RectangleConfiguration()" procedure accesses the properties of the rectangle. In this
example the background color will be set to "Yellow".
Sub RectangleConfiguration()
'VBA393
Dim objRectangle As HMIRectangle
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("Rectangle1", "HMIRectangle")
With objRectangle
.BackColor = RGB(255, 255, 0)
End With
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,
2017
See also
EllipseSegment Object (Page 1859)
StaticText Object (Page 1956)
Slider object (Page 1952)
TextList Object (Page 1964)
RoundRectangle Object (Page 1945)
RoundButton Object (Page 1942)
Rectangle Object (Page 1939)
Polygon Object (Page 1925)
PieSegment Object (Page 1922)
OptionGroup Object (Page 1916)
GroupDisplay Object (Page 1874)
GraphicObject Object (Page 1870)
IOField Object (Page 1886)
Ellipse Object (Page 1853)
Document Object (Page 1847)
Circle Object (Page 1828)
CheckBox Object (Page 1827)
Button Object (Page 1824)
BarGraph Object (Page 1819)
3DBarGraph Object (Page 1805)
BackColor2 Property
Description
Defines or returns the bar color for the display of the current value. LONG write-read access.
Determination of Color Value
The color is displayed in RGB format (Red, Green, Blue). Specify the corresponding decimal
value for each of the three RGB values (value range from 0 to 255).
Use VBA function "RGB" to assign a color to a property. The color "red", for example, is
represented as follows: RGB(255, 0, 0)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2018
System Manual, 11/2008,
Example:
The "BarGraphConfiguration()" procedure configures In this example the bar color for
displaying the current value will be set to "Yellow":
Sub BarGraphConfiguration()
'VBA394
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
.BackColor2 = RGB(255, 255, 0)
End With
End Sub
See also
BarGraph Object (Page 1819)
BackColor3 Property
Description
Defines or returns the color of the bar background. LONG write-read access.
Determination of Color Value
The color is displayed in RGB format (Red, Green, Blue). Specify the corresponding decimal
value for each of the three RGB values (value range from 0 to 255).
Use VBA function "RGB" to assign a color to a property. The color "red", for example, is
represented as follows: RGB(255, 0, 0)
Example:
The "BarGraphConfiguration()" procedure configures In this example the color of the bar
background will be set to "Blue":
Sub BarGraphConfiguration()
'VBA395
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
.BackColor3 = RGB(0, 0, 255)
End With
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,
2019
See also
BarGraph Object (Page 1819)
BackColorBottom Property
Description
Defines or returns the color for the bottom/right part of the slider. LONG write-read access.
Determination of Color Value
The color is displayed in RGB format (Red, Green, Blue). Specify the corresponding decimal
value for each of the three RGB values (value range from 0 to 255).
Use VBA function "RGB" to assign a color to a property. The color "red", for example, is
represented as follows: RGB(255, 0, 0)
Example:
The "SliderConfiguration()" procedure accesses the properties of the slider. In this example
the color of the bottom part of the slider will be set to "Blue":
Sub SliderConfiguration()
'VBA396
Dim objSlider As HMISlider
Set objSlider = ActiveDocument.HMIObjects.AddHMIObject("SliderObject1", "HMISlider")
With objSlider
.BackColorBottom = RGB(0, 0, 255)
End With
End Sub
See also
Slider object (Page 1952)
BackColorTop Property
Description
Defines or returns the color for the top/left part of the slider. LONG write-read access.
Determination of Color Value
The color is displayed in RGB format (Red, Green, Blue). Specify the corresponding decimal
value for each of the three RGB values (value range from 0 to 255).
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2020
System Manual, 11/2008,