System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
See also
TextList Object (Page 1964)
StaticText Object (Page 1956)
OptionGroup Object (Page 1916)
IOField Object (Page 1886)
GroupDisplay Object (Page 1874)
CheckBox Object (Page 1827)
Button Object (Page 1824)
BarGraph Object (Page 1819)
FontUnderline Property
Description
TRUE, when the text in the object should be assigned the "underline" attribute. BOOLEAN
write-read access.
Example:
The "ButtonConfiguration()" procedure accesses the properties of the button. In this example
the font attribute will be set to "Underline":
Sub ButtonConfiguration()
'VBA517
Dim objButton As HMIButton
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("Button1", "HMIButton")
With objButton
.FontUnderline = True
End With
End Sub
See also
TextList Object (Page 1964)
StaticText Object (Page 1956)
OptionGroup Object (Page 1916)
IOField Object (Page 1886)
GroupDisplay Object (Page 1874)
CheckBox Object (Page 1827)
Button Object (Page 1824)
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,
2131
ForeColor Property
Description
Defines or returns the color of the font for the text in the 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)
Example:
The "ButtonConfiguration()" procedure accesses the properties of the button. In this example
the font color will be set to "Red":
Sub ButtonConfiguration()
'VBA518
Dim objButton As HMIButton
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("Button1", "HMIButton")
With objButton
.ForeColor = RGB(255, 0, 0)
End With
End Sub
See also
Button Object (Page 1824)
TextList Object (Page 1964)
StaticText Object (Page 1956)
OptionGroup Object (Page 1916)
IOField Object (Page 1886)
GroupDisplay Object (Page 1874)
CheckBox Object (Page 1827)
BarGraph Object (Page 1819)
ForeFlashColorOff Property
Description
Defines or returns the color of the text for flash status "Off". LONG write-read access.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2132
System Manual, 11/2008,
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 "ButtonConfiguration()" procedure accesses the properties of the button. In this example
the font color when the flash status is "Off" will be set to "Red":
Sub ButtonConfiguration()
'VBA519
Dim objButton As HMIButton
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("Button1", "HMIButton")
With objButton
.ForeFlashColorOff = RGB(255, 0, 0)
End With
End Sub
See also
CheckBox Object (Page 1827)
TextList Object (Page 1964)
StaticText Object (Page 1956)
OptionGroup Object (Page 1916)
IOField Object (Page 1886)
GroupDisplay Object (Page 1874)
Button Object (Page 1824)
BarGraph Object (Page 1819)
ForeFlashColorOn Property
Description
Defines or returns the color of the text for 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)
System Manual, 11/2008,
2133
Example:
The "ButtonConfiguration()" procedure accesses the properties of the button. In this example
the font color when the flash status is "On" will be set to "White":
Sub ButtonConfiguration()
'VBA520
Dim objButton As HMIButton
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("Button1", "HMIButton")
With objButton
.ForeFlashColorOn = RGB(255, 255, 255)
End With
End Sub
See also
TextList Object (Page 1964)
StaticText Object (Page 1956)
OptionGroup Object (Page 1916)
IOField Object (Page 1886)
GroupDisplay Object (Page 1874)
CheckBox Object (Page 1827)
Button Object (Page 1824)
BarGraph Object (Page 1819)
4.4.8.7 G-H
GlobalColorScheme property
Description
Defines whether the colors defined for the current design in the global color scheme will be
used for this object.
yes Uses the colors from the global color scheme defined for this type of object.
No Uses the colors from the color scheme defined for this type of object under
"Colors".
Example
--
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2134
System Manual, 11/2008,
GlobalShadow property
Description
Defines whether the object will be displayed with the shadowing defined in the active design.
yes Uses the global shadowing defined for this object type.
No No shadowing.
Example
--
Grid Property
Description
TRUE if the grid is enabled for the active picture. BOOLEAN write-read access.
The grid is only visible during the configuration phase.
Example:
The "ActiveDocumentConfiguration()" procedure accesses the properties of the current picture
in the Graphics Designer. In this example the grid for the active picture will be enabled:
Sub ActiveDocumentConfiguration()
'VBA521
Application.ActiveDocument.Grid = True
End Sub
See also
GridWidth Property (Page 2137)
GridHeight Property (Page 2136)
GridColor Property (Page 2136)
ActiveDocument Property (Page 1996)
Application Property (Page 2008)
Document Object (Page 1847)
Application Object (Page 1814)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2135
GridColor Property
Description
Defines or returns the color of the grid during the configuration phase. The Grid property must
be set to TRUE for the grid to be displayed. 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 "ActiveDocumentConfiguration()" procedure accesses the properties of the current picture
in the Graphics Designer. In this example the grid color for the active picture will be set to
"Blue":
Sub ActiveDocumentConfiguration()
'VBA522
Application.ActiveDocument.Grid = True
Application.ActiveDocument.GridColor = RGB(0, 0, 255)
End Sub
See also
Grid Property (Page 2135)
ActiveDocument Property (Page 1996)
Application Property (Page 2008)
Document Object (Page 1847)
Application Object (Page 1814)
GridHeight Property
Description
Defines or returns the height (in pixels) of the grid in the current picture during the configuration
phase. The Grid property must be set to TRUE for the grid to be displayed.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2136
System Manual, 11/2008,
Example:
The "ActiveDocumentConfiguration()" procedure accesses the properties of the current picture
in the Graphics Designer. In this example the grid height for the active picture will be set to
"8":
Sub ActiveDocumentConfiguration()
'VBA523
Application.ActiveDocument.Grid = True
Application.ActiveDocument.GridHeight = 8
End Sub
See also
GridWidth Property (Page 2137)
Grid Property (Page 2135)
ActiveDocument Property (Page 1996)
Application Property (Page 2008)
Document Object (Page 1847)
Application Object (Page 1814)
GridWidth Property
Description
Defines or returns the width (in pixels) of the grid in the current picture during the configuration
phase. The Grid property must be set to TRUE for the grid to be displayed.
Example:
The "ActiveDocumentConfiguration()" procedure accesses the properties of the current picture
in
the Graphics Designer. In this example the grid width for the active picture will be set to "8":
Sub ActiveDocumentConfiguration()
'VBA524
Application.ActiveDocument.Grid = True
Application.ActiveDocument.GridWidth = 8
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,
2137
See also
Grid Property (Page 2135)
GridHeight Property (Page 2136)
ActiveDocument Property (Page 1996)
Application Property (Page 2008)
Document Object (Page 1847)
Application Object (Page 1814)
GroupParent Property
Description
Returns the higher-ranking object in the specified group object. Read-only access.
Example:
--
See also
Group Object (Page 1873)
ActiveDocument Property (Page 1996)
GroupedObjects Object (Listing) (Page 1877)
Document Object (Page 1847)
Application Object (Page 1814)
GroupedHMIObjects Property
Description
Returns a listing containing all the objects in the current group.
Example:
In this example the group object "Group1" is created from a number of objects. An ellipse
segment is then added to the group object:
Sub CreateGroup()
'VBA526
Dim objCircle As HMICircle
Dim objRectangle As HMIRectangle
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2138
System Manual, 11/2008,
Dim objEllipseSegment As HMIEllipseSegment
Dim objGroup As HMIGroup
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("sCircle", "HMICircle")
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("sRectangle", "HMIRectangle")
With objCircle
.Top = 40
.Left = 40
.Selected = True
End With
With objRectangle
.Top = 80
.Left = 80
.Selected = True
End With
MsgBox "Objects selected!"
Set objGroup = ActiveDocument.Selection.CreateGroup
objGroup.ObjectName = "Group1"
Set objEllipseSegment = ActiveDocument.HMIObjects.AddHMIObject("EllipseSegment",
"HMIEllipseSegment")
'
'Add one object to the existing group
objGroup.GroupedHMIObjects.Add ("EllipseSegment")
End Sub
See also
Group Object (Page 1873)
Height Property
Description
Defines or returns the height of the object (Document, View, Object) in pixels.
Note concerning the Document and View objects:
The default value corresponds to the vertical screen resolution set by the operating system.
The
specified value can be higher than the current screen resolution. The picture can then be
moved with the aid of scroll bars.
The maximum picture height that can be set is 10000 pixels.
Example:
The "ActiveDocumentConfiguration()" procedure accesses the properties of the current picture
in
the Graphics Designer. In this example the height of the current picture will be set to "1600":
Sub ActiveDocumentConfiguration()
'VBA527
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2139
Application.ActiveDocument.Height = 1600
End Sub
See also
View Object (Page 1991)
HMIObject Object (Page 1882)
Document Object (Page 1847)
Hide Property
Description
TRUE if the specified picture is opened as "Visible". BOOLEAN write-read access.
Use the Hide property in order to test, for example, whether a picture is to be visible or invisible
when
opened. Other WinCC editors (such as CrossReference) open pictures so that they are
invisible, i.e. they are not displayed in the Graphics Designer. If you use the DocumentOpened
event, for example, you can use the Hide property to prevent the code in the event from being
executed by testing that the Hide property is FALSE.
Use the Add and Open methods to define whether a picture is to be visible or invisible when
opened.
Note
If you set a picture to "Invisible" (Hide = FALSE), you can then only address it via the
Documents listing. The picture is no longer available in the Graphics Designer.
Example:
In the following example, when a picture opens an output indicates whether the picture was
opened as visible or invisible:
Private Sub Document_Opened(CancelForwarding As Boolean)
'VBA802
MsgBox Me.Hide
End Sub
See also
Open Method (Page 1780)
Add Method (Documents Listing) (Page 1709)
Document Object (Page 1847)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2140
System Manual, 11/2008,