System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
See also
SameSize Property (Page 2276)
Button4Width Property (Page 2051)
Button3Width Property (Page 2051)
Button1Width Property (Page 2049)
GroupDisplay Object (Page 1874)
Button3Width Property
Description
Defines or returns for the Group Display object the width of button 3 in pixels.
When the SameSize property is set to TRUE, all the buttons are specified the same width.
Example:
The "GroupDisplayConfiguration()" procedure accesses the properties of the Group Display.
In this example the width of button 3 will be set to "50.
Sub GroupDisplayConfiguration()
'VBA429
Dim objGroupDisplay As HMIGroupDisplay
Set objGroupDisplay = ActiveDocument.HMIObjects.AddHMIObject("GroupDisplay1",
"HMIGroupDisplay")
With objGroupDisplay
.Button3Width = 50
End With
End Sub
See also
SameSize Property (Page 2276)
Button4Width Property (Page 2051)
Button2Width Property (Page 2050)
Button1Width Property (Page 2049)
GroupDisplay Object (Page 1874)
Button4Width Property
Description
Defines or returns for the Group Display object the width of button 4 in pixels.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2051
When the SameSize property is set to TRUE, all the buttons are specified the same width.
Example:
The "GroupDisplayConfiguration()" procedure accesses the properties of the Group Display.
In this example the width of button 4 will be set to "50.
Sub GroupDisplayConfiguration()
'VBA430
Dim objGroupDisplay As HMIGroupDisplay
Set objGroupDisplay = ActiveDocument.HMIObjects.AddHMIObject("GroupDisplay1",
"HMIGroupDisplay")
With objGroupDisplay
.Button4Width = 50
End With
End Sub
See also
Button1Width Property (Page 2049)
SameSize Property (Page 2276)
Button3Width Property (Page 2051)
Button2Width Property (Page 2050)
GroupDisplay Object (Page 1874)
ButtonColor Property
Description
Defines or returns the color of the slider for the Slider object. 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)
2052
System Manual, 11/2008,
Example:
The "SliderConfiguration()" procedure accesses the properties of the slider. In this example
the color of the slider will be set to "Yellow".
Sub SliderConfiguration()
'VBA431
Dim objSlider As HMISlider
Set objSlider = ActiveDocument.HMIObjects.AddHMIObject("SliderObject1", "HMISlider")
With objSlider
.ButtonColor = RGB(255, 255, 0)
End With
End Sub
See also
Slider object (Page 1952)
4.4.8.3 C
Caption Property
Description
TRUE, when the application or picture window has a title bar in Runtime. BOOLEAN write-read
access.
The Caption property must be set to "True" if the intention is that the application window or
picture window shall have Maximize and Close buttons.
Example:
The "ApplicationWindowConfig" procedure accesses the properties of the application window.
In this example the application window will
Sub ApplicationWindowConfig()
'VBA432
Dim objAppWindow As HMIApplicationWindow
Set objAppWindow = ActiveDocument.HMIObjects.AddHMIObject("AppWindow",
"HMIApplicationWindow")
With objAppWindow
.Caption = True
.CloseButton = False
.Height = 200
.Left = 10
.MaximizeButton = True
.Moveable = False
.OnTop = 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,
2053
.Sizeable = True
.Top = 20
.Visible = True
.Width = 250
.WindowBorder = True
End With
End Sub
See also
PictureWindow Object (Page 1919)
ApplicationWindow Object (Page 1817)
CaptionText Property
Description
Defines or returns the window title that will be displayed for the PictureWindow object in
Runtime.
The Caption property must be set to TRUE."
Example:
The "PictureWindowConfig" procedure accesses the properties of the picture window. In this
example the picture window will
Sub PictureWindowConfig()
'VBA433
Dim objPicWindow As HMIPictureWindow
Set objPicWindow = ActiveDocument.HMIObjects.AddHMIObject("PicWindow1", "HMIPictureWindow")
With objPicWindow
.AdaptPicture = False
.AdaptSize = False
.Caption = True
.CaptionText = "Picturewindow in runtime"
.OffsetLeft = 5
.OffsetTop = 10
'Replace the picturename "Test.PDL" with the name of
'an existing document from your "GraCS"-Folder of your active project
.PictureName = "Test.PDL"
.ScrollBars = True
.ServerPrefix = ""
.TagPrefix = "Struct."
.UpdateCycle = 5
.Zoom = 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)
2054
System Manual, 11/2008,
See also
PictureWindow Object (Page 1919)
CheckAlarmHigh Property
Description
TRUE if the "Alarm High" limit value is being monitored for the BarGraph object. BOOLEAN
write-read access.
The limit value, the display on reaching the limit value and the type of evaluation are defined
via the properties AlarmHigh, ColorAlarmHigh and TypeAlarmHigh.
Example:
The "BarGraphLimitConfiguration()" procedure configures the properties of the high limit value
for
an alarm. In this example the type of evaluation will be set to "Absolute". The alarm will be
triggered at a value of "50".
Sub BarGraphLimitConfiguration()
'VBA434
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
'Set analysis to absolute
.TypeAlarmHigh = False
'Activate monitoring
.CheckAlarmHigh = True
'Set barcolor to "yellow"
.ColorAlarmHigh = RGB(255, 255, 0)
'Set upper limit to "50"
.AlarmHigh = 50
End With
End Sub
See also
TypeAlarmHigh Property (Page 2316)
ColorAlarmHigh Property (Page 2066)
AlarmHigh Property (Page 2002)
BarGraph Object (Page 1819)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2055
CheckAlarmLow Property
Description
TRUE if the "Alarm Low" limit value is being monitored for the BarGraph object. BOOLEAN
write-read access.
The limit value, the display on reaching the limit value and the type of evaluation are defined
via the properties AlarmLow, ColorAlarmLow and TypeAlarmLow.
Example:
The "BarGraphLimitConfiguration()" procedure configures the properties of the low limit value
for
an alarm. In this example the type of evaluation will be set to "Absolute". The alarm will be
triggered at a value of "10".
Sub BarGraphLimitConfiguration()
'VBA435
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
'Set analysis to absolute
.TypeAlarmLow = False
'Activate monitoring
.CheckAlarmLow = True
'Set barcolor to "yellow"
.ColorAlarmLow = RGB(255, 255, 0)
'Set lower limit to "10"
.AlarmLow = 10
End With
End Sub
See also
ColorAlarmLow Property (Page 2067)
TypeAlarmLow Property (Page 2317)
AlarmLow Property (Page 2002)
BarGraph Object (Page 1819)
Checked Property
Description
TRUE if a check mark is to appear in front of the user-defined menu entry. BOOLEAN write-
read access.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2056
System Manual, 11/2008,
Example:
The "CreateMenuItem()" procedure creates the "Delete Objects" menu and adds two menu
entries
("Delete Rectangles" and "Delete Circles"): The first menu entry is also marked with a
tick:
Sub CreateMenuItem()
'VBA436
Dim objMenu As HMIMenu
Dim objMenuItem As HMIMenuItem
'
'Add new menu "Delete objects" to menubar:
Set objMenu = ActiveDocument.CustomMenus.InsertMenu(1, "DeleteObjects", "Delete objects")
'
'Add two menuitems to the new menu
Set objMenuItem = objMenu.MenuItems.InsertMenuItem(1, "DeleteAllRectangles", "Delete
Rectangles")
Set objMenuItem = objMenu.MenuItems.InsertMenuItem(2, "DeleteAllCircles", "Delete Circles")
With objMenu.MenuItems
.Item("DeleteAllRectangles").Checked = True
End With
End Sub
See also
MenuItems Property (Page 2222)
Configuring Menus and Toolbars (Page 1572)
CheckLimitHigh4 Property
Description
TRUE if the "Reserve 4" high limit value of the bar graph object is to be monitored. BOOLEAN
write-read access.
The limit value, the display on reaching the limit value and the type of evaluation are defined
via the properties LimitHigh4, ColorLimitHigh4 and TypeLimitHigh4.
Example:
The "BarGraphLimitConfiguration()" procedure configures the properties of the high limit value
for
an alarm. In this example the type of evaluation will be set to "Absolute". The alarm will be
triggered at a value of "70".
Sub BarGraphLimitConfiguration()
'VBA437
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2057
With objBarGraph
'Set analysis to absolute
.TypeLimitHigh4 = False
'Activate monitoring
.CheckLimitHigh4 = True
'set barcolor to "red"
.ColorLimitHigh4 = RGB(255, 0, 0)
'Set upper limit to "70"
.LimitHigh4 = 70
End With
End Sub
See also
TypeLimitHigh4 Property (Page 2318)
LimitHigh4 Property (Page 2193)
ColorLimitHigh4 Property (Page 2069)
BarGraph Object (Page 1819)
CheckLimitHigh5 Property
Description
TRUE if the "Reserve 5" high limit value of the bar graph object is to be monitored. BOOLEAN
write-read access.
The limit value, the display on reaching the limit value and the type of evaluation are defined
via the properties LimitHigh5, ColorLimitHigh5 and TypeLimitHigh5.
Example:
The "BarGraphLimitConfiguration()" procedure configures the properties of the high limit value
for
an alarm. In this example the type of evaluation will be set to "Absolute". The alarm will be
triggered at a value of "80".
Sub BarGraphLimitConfiguration()
'VBA438
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
'Set analysis to absolute
.TypeLimitHigh5 = False
'Activate monitoring
.CheckLimitHigh5 = True
'set barcolor to "black"
.ColorLimitHigh5 = RGB(0, 0, 0)
'Set upper limit to "80"
.LimitHigh5 = 80
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2058
System Manual, 11/2008,
End With
End Sub
See also
ColorLimitHigh5 Property (Page 2070)
TypeLimitHigh5 Property (Page 2318)
LimitHigh4 Property (Page 2193)
BarGraph Object (Page 1819)
CheckLimitLow4 Property
Description
TRUE if the "Reserve 4" low limit value of the bar graph object is to be monitored. BOOLEAN
write-read access.
The limit value, the display on reaching the limit value and the type of evaluation are defined
via the properties LimitLow4, ColorLimitLow4 and TypeLimitLow4.
Example:
The "BarGraphLimitConfiguration()" procedure configures the properties of the low limit value
for
an alarm. In this example the type of evaluation will be set to "Absolute". The alarm will be
triggered at a value of "5".
Sub BarGraphLimitConfiguration()
'VBA439
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
'Set analysis to absolute
.TypeLimitLow4 = False
'Activate monitoring
.CheckLimitLow4 = True
'Set barcolor to "green"
.ColorLimitLow4 = RGB(0, 255, 0)
'set lower limit to "5"
.LimitLow4 = 5
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,
2059
See also
TypeLimitLow4 Property (Page 2319)
LimitLow4 Property (Page 2195)
ColorLimitLow4 Property (Page 2071)
BarGraph Object (Page 1819)
CheckLimitLow5 Property
Description
TRUE if the "Reserve 5" low limit value of the bar graph object is to be monitored. BOOLEAN
write-read access.
The limit value, the display on reaching the limit value and the type of evaluation are defined
via the properties LimitLow5, ColorLimitLow5 and TypeLimitLow5.
Example:
The "BarGraphLimitConfiguration()" procedure configures the properties of the low limit value
for
an alarm. In this example the type of evaluation will be set to "Absolute". The alarm will be
triggered at a value of "0".
Sub BarGraphLimitConfiguration()
'VBA440
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
'Set analysis to absolute
.TypeLimitLow5 = False
'Activate monitoring
.CheckLimitLow5 = True
'Set barcolor to "white"
.ColorLimitLow5 = RGB(255, 255, 255)
'set lower limit to "0"
.LimitLow5 = 0
End With
End Sub
See also
TypeLimitLow5 Property (Page 2320)
LimitLow5 Property (Page 2196)
ColorLimitLow5 Property (Page 2072)
BarGraph Object (Page 1819)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2060
System Manual, 11/2008,