System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
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 top part of the slider will be set to "Yellow":
Sub SliderConfiguration()
'VBA397
Dim objSlider As HMISlider
Set objSlider = ActiveDocument.HMIObjects.AddHMIObject("SliderObject1", "HMISlider")
With objSlider
.BackColorTop = RGB(255, 255, 0)
End With
End Sub
See also
Slider object (Page 1952)
BackFlashColorOff Property
Description
Defines or returns the color of the object background for the flash status "Off". 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 "RectangleConfiguration()" procedure accesses the properties of the rectangle. In this
example the color when the flash status is "Off" will be set to "Yellow":
Sub RectangleConfiguration()
'VBA398
Dim objRectangle As HMIRectangle
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("Rectangle1", "HMIRectangle")
With objRectangle
.BackFlashColorOff = RGB(255, 255, 0)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2021
End With
End Sub
See also
BarGraph Object (Page 1819)
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)
GraphicObject Object (Page 1870)
IOField Object (Page 1886)
EllipseSegment Object (Page 1859)
Ellipse Object (Page 1853)
Circle Object (Page 1828)
CheckBox Object (Page 1827)
Button Object (Page 1824)
BackFlashColorOn Property
Description
Defines or returns the color of the object background for the flash status "On". 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)
2022
System Manual, 11/2008,
Example:
The "RectangleConfiguration()" procedure accesses the properties of the rectangle. In this
example the color when the flash status is "On" will be set to "Blue":
Sub RectangleConfiguration()
'VBA399
Dim objRectangle As HMIRectangle
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("Rectangle1", "HMIRectangle")
With objRectangle
.BackFlashColorOn = RGB(0, 0, 255)
End With
End Suba
See also
RoundButton Object (Page 1942)
StaticText Object (Page 1956)
Slider object (Page 1952)
TextList Object (Page 1964)
RoundRectangle Object (Page 1945)
Rectangle Object (Page 1939)
Polygon Object (Page 1925)
PieSegment Object (Page 1922)
OptionGroup Object (Page 1916)
GraphicObject Object (Page 1870)
IOField Object (Page 1886)
EllipseSegment Object (Page 1859)
Ellipse Object (Page 1853)
Circle Object (Page 1828)
CheckBox Object (Page 1827)
Button Object (Page 1824)
BarGraph Object (Page 1819)
Background Property
Description
TRUE, when the background of the 3D-bar graph object should be visible. BOOLEAN write-
read access.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2023
Example:
The "HMI3DBarGraphConfiguration()" procedure accesses the properties of the 3DBarGraph
object. In this example the background will be set to "Transparent":
Sub HMI3DBarGraphConfiguration()
'VBA400
Dim obj3DBar As HMI3DBarGraph
Set obj3DBar = ActiveDocument.HMIObjects.AddHMIObject("3DBar1", "HMI3DBarGraph")
With obj3DBar
.Background = False
End With
End Sub
See also
3DBarGraph Object (Page 1805)
BackPictureAlignment property
Description
Round Button
As the "Picture alignment" attribute, defines the position and scaling of the picture placed on
the round button.
centered The picture is positioned, centered in the original proportions.
Left justified The picture is positioned with original proportions, with left justification on
the left-hand side of the round button.
Right justified The picture is positioned with original proportions, with right justification on
the right-hand side of the round button.
Stretched The picture is scaled to a square and is adapted to the size of the round
button.
Background picture
As the "Display type" attribute, defines the position and scaling for the background image of
the process picture.
normal The background picture is centered in the original size. When opening the
picture in runtime, it remains in the location.
Stretched
(window)
The background picture is scaled to the larger of the two windows runtime
window
and process picture. In runtime, it is scaled to the size of the runtime
window and is scaled further when opening.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2024
System Manual, 11/2008,
Tiled Graphics Designer and process picture are exhibited with the picture in its
original size.
Stretched
(picture)
The background picture is scaled to the configured size of the process
picture. When opening the picture in runtime, it retains its size.
BackPictureName property
Description
Defines or returns the path and name of the file used as the background image in the process
picture.
Files of format EMF, WMF, DB, BMP, GIF, JPG, JPEG and ICO are suitable.
If no path is specified, the file is searched for in the subdirectory \GraCS. If you specify a
different path, a copy is created in the \GraCS directory.
Path specifications
The following path specification formats are possible:
● Absolute: z.B. "C:\Siemens\WinCC\Icons\myIcon.ICO.
● Relative: The starting folder for relative path specification is the "GraCS" folder of the current
project.
● <global>: Refers to the installation path for WinCC. The path specification "<global>\Icons
\myIcon" is the same as the path specification under "Absolute".
● <project>: Refers to the current project directory.
BarDepth Property
Description
Defines or returns the depth of the bar in pixels.
Example:
The "HMI3DBarGraphConfiguration()" procedure accesses the properties of the 3DBarGraph
object. In this example the bar depth will be set to "40":
Sub HMI3DBarGraphConfiguration()
'VBA401
Dim obj3DBar As HMI3DBarGraph
Set obj3DBar = ActiveDocument.HMIObjects.AddHMIObject("3DBar1", "HMI3DBarGraph")
With obj3DBar
.BarDepth = 40
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,
2025
See also
3DBarGraph Object (Page 1805)
BarHeight Property
Description
Defines or returns the height of the bar in pixels.
Example:
The "HMI3DBarGraphConfiguration()" procedure accesses the properties of the 3DBarGraph
object. In this example the bar height will be set to "60":
Sub HMI3DBarGraphConfiguration()
'VBA402
Dim obj3DBar As HMI3DBarGraph
Set obj3DBar = ActiveDocument.HMIObjects.AddHMIObject("3DBar1", "HMI3DBarGraph")
With obj3DBar
.BarHeight = 60
End With
End Sub
See also
3DBarGraph Object (Page 1805)
BarWidth Property
Description
Defines or returns the width of the bar in pixels.
Example:
The "HMI3DBarGraphConfiguration()" procedure accesses the properties of the 3DBarGraph
object. In this example the bar width will be set to "80":
Sub HMI3DBarGraphConfiguration()
'VBA403
Dim obj3DBar As HMI3DBarGraph
Set obj3DBar = ActiveDocument.HMIObjects.AddHMIObject("3DBar1", "HMI3DBarGraph")
With obj3DBar
.BarWidth = 80
End With
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2026
System Manual, 11/2008,
End Sub
See also
3DBarGraph Object (Page 1805)
BasePicReferenced Property
Description
TRUE, when the picture assigned in the object status display should be saved. Otherwise,
only the associated object reference is saved. BOOLEAN write-read access.
Example:
The "StatusDisplayConfiguration()" procedure accesses the properties of the Status Display.
In this example the picture assigned in the Status Display object is to be saved.
Sub StatusDisplayConfiguration()
'VBA404
Dim objStatDisp As HMIStatusDisplay
Set objStatDisp = ActiveDocument.HMIObjects.AddHMIObject("Statusdisplay1",
"HMIStatusDisplay")
With objStatDisp
.BasePicReferenced = True
End With
End Sub
See also
StatusDisplay Object (Page 1959)
BasePicTransColor Property
Description
Defines or returns which color of the assigned bitmap object (.bmp, .dib) should be set to
"transparent". LONG write-read access.
The color is only set to "Transparent" if the value of the "BasePicUseTransColor" property is
"True".
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2027
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 "StatusDisplayConfiguration()" procedure accesses the properties of the Status Display.
In this example the color "Yellow" will be set to "Transparent".
Sub StatusDisplayConfiguration()
'VBA405
Dim objStatDisp As HMIStatusDisplay
Set objStatDisp = ActiveDocument.HMIObjects.AddHMIObject("Statusdisplay1",
"HMIStatusDisplay")
With objStatDisp
.BasePicTransColor = RGB(255, 255, 0)
.BasePicUseTransColor = True
End With
End Sub
See also
BasePicUseTransColor Property (Page 2029)
StatusDisplay Object (Page 1959)
BasePicture Property
Description
Defines or returns the basic picture for the Status Display object.
The picture (*.BMP or *.DIB) must be located in the "GraCS" directory of the current project
so that it can be integrated.
In this context, the "BasePicReferenced" property defines whether the basic picture should be
saved together with the object status display or referenced.
Example:
The "StatusDisplayConfiguration()" procedure accesses the properties of the Status Display.
In this example the picture "Testpicture.BMP" will be used as the basic picture:
Sub StatusDisplayConfiguration()
'VBA406
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2028
System Manual, 11/2008,
Dim objStatDisp As HMIStatusDisplay
Set objStatDisp = ActiveDocument.HMIObjects.AddHMIObject("Statusdisplay1",
"HMIStatusDisplay")
With objStatDisp
'
'To use this example copy a Bitmap-Graphic
'to the "GraCS"-Folder of the actual project.
'Replace the picturename "Testpicture.BMP" with the name of
'the picture you copied
.BasePicture = "Testpicture.BMP"
End With
End Sub
See also
BasePicReferenced Property (Page 2027)
StatusDisplay Object (Page 1959)
BasePicUseTransColor Property
Description
TRUE, when the configured color ("BasePicTransColor" property) of the bitmap objects should
be set to "transparent". BOOLEAN write-read access.
Example:
The "StatusDisplayConfiguration()" procedure accesses the properties of the Status Display.
In this example the color "Yellow" will be set to "Transparent":
Sub StatusDisplayConfiguration()
'VBA407
Dim objStatDisp As HMIStatusDisplay
Set objStatDisp = ActiveDocument.HMIObjects.AddHMIObject("Statusdisplay1",
"HMIStatusDisplay")
With objStatDisp
.BasePicTransColor = RGB(255, 255, 0)
.BasePicUseTransColor = True
End With
End Sub
See also
BasePicTransColor Property (Page 2027)
StatusDisplay Object (Page 1959)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2029
BaseX Property
Description
Defines or returns for the 3DBarGraph object the horizontal distance in pixels between the
right-hand border of the bar and the left-hand border of the object field.
Example:
The "HMI3DBarGraphConfiguration()" procedure accesses the properties of the 3DBarGraph
object. In this example the horizontal distance will be set to "80".
Sub HMI3DBarGraphConfiguration()
'VBA408
Dim obj3DBar As HMI3DBarGraph
Set obj3DBar = ActiveDocument.HMIObjects.AddHMIObject("3DBar1", "HMI3DBarGraph")
With obj3DBar
.BaseX = 80
End With
End Sub
See also
3DBarGraph Object (Page 1805)
BaseY Property
Description
Defines or returns for the 3DBarGraph object the vertical distance in pixels between the lower
border of the bar and the upper border of the object field.
Example:
The "HMI3DBarGraphConfiguration()" procedure accesses the properties of the 3DBarGraph
object. In this example the vertical distance will be set to "100".
Sub HMI3DBarGraphConfiguration()
'VBA409
Dim obj3DBar As HMI3DBarGraph
Set obj3DBar = ActiveDocument.HMIObjects.AddHMIObject("3DBar1", "HMI3DBarGraph")
With obj3DBar
.BaseY = 100
End With
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2030
System Manual, 11/2008,