System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
Example 2
In this example, a new picture is saved as a new file using the SaveAs method. To check if
the picture is permitted to be saved, the LockedByCreatorID property is checked. In the new
file the LockedByCreator property is reset.
Sub SaveDocAs_2()
'VBA811
'create a new file and overwrite it to an existing file,
'if it is not 'locked by CreatorID'
Dim docNew As Document
Dim docOld As Document
Const strFile As String = "Simatic_001.Pdl"
'
Set docNew = Application.Documents.Add(hmiOpenDocumentTypeInvisible)
Set docOld = Application.Documents.Open(Application.ApplicationDataPath & strFile,
hmiOpenDocumentTypeInvisible)
'
If docOld.LockedByCreatorID = False Then
docOld.Close
docNew.SaveAs(Application.ApplicationDataPath & strFile)
Else
MsgBox "File cannot be stored (LockedByCreatorID). ", vbOKOnly, "Result"
End If
'
docOld.Close
docNew.Close
Set docOld = Nothing
Set docNew = Nothing
'
End Sub
See also
SaveAs Method (Page 1792)
Document Object (Page 1847)
LockStatus Property
Description
TRUE if a locked measuring point is to be displayed with the Object GroupDisplay. 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,
2201
Example:
The "GroupDisplayConfiguration()" procedure accesses the properties of the Group Display.
In this example the background color for a locked measuring point will be set to "Red":
Sub GroupDisplayConfiguration()
'VBA609
Dim objGroupDisplay As HMIGroupDisplay
Set objGroupDisplay = ActiveDocument.HMIObjects.AddHMIObject("GroupDisplay1",
"HMIGroupDisplay")
With objGroupDisplay
.LockStatus = True
.LockBackColor = RGB(255, 0, 0)
End With
End Sub
See also
GroupDisplay Object (Page 1874)
LockText Property
Description
Defines the button labels for a locked measuring point in the case of the GroupDisplay object.
The LockStatus property must be set to TRUE for the label to be displayed.
Example:
The "GroupDisplayConfiguration()" procedure accesses the properties of the Group Display.
In this example the label for a locked measuring point will be set to "Locked":
Sub GroupDisplayConfiguration()
'VBA610
Dim objGroupDisplay As HMIGroupDisplay
Set objGroupDisplay = ActiveDocument.HMIObjects.AddHMIObject("GroupDisplay1",
"HMIGroupDisplay")
With objGroupDisplay
.LockStatus = True
.LockText = "gesperrt"
End With
End Sub
See also
LockStatus Property (Page 2201)
GroupDisplay Object (Page 1874)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2202
System Manual, 11/2008,
LockTextColor Property
Description
Defines or returns the color of the button label for a locked measuring point in the case of the
GroupDisplay object. LONG write-read access.
The LockStatus property must be set to TRUE for the background color to be displayed.
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 "GroupDisplayConfiguration()" procedure accesses the properties of the Group Display.
In this example the button label for a locked measuring point will be set to "Yellow":
Sub GroupDisplayConfiguration()
'VBA611
Dim objGroupDisplay As HMIGroupDisplay
Set objGroupDisplay = ActiveDocument.HMIObjects.AddHMIObject("GroupDisplay1",
"HMIGroupDisplay")
With objGroupDisplay
.LockStatus = True
.LockTextColor = RGB(0, 255, 255)
End With
End Sub
See also
LockStatus Property (Page 2201)
GroupDisplay Object (Page 1874)
LongStrokesBold Property
Description
TRUE if the long strokes on the scale of the BarGraph object are to be displayed in bold.
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,
2203
Example:
The "BarGraphConfiguration()" procedure configures In this example the long strokes will not
be displayed in bold:
Sub BarGraphConfiguration()
'VBA612
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
.LongStrokesBold = False
End With
End Sub
See also
BarGraph Object (Page 1819)
LongStrokesOnly Property
Description
TRUE if just the long strokes on the scale of the BarGraph object are to be displayed.
BOOLEAN write-read access.
Example:
The "BarGraphConfiguration()" procedure configures In this example, only the long strokes
will be displayed:
Sub BarGraphConfiguration()
'VBA613
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
.LongStrokesOnly = True
End With
End Sub
See also
BarGraph Object (Page 1819)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2204
System Manual, 11/2008,
LongStrokesSize Property
Description
The "BarGraphConfiguration()" procedure configures
Example:
In this example the length of the axis section strokes will be set to "10".
Sub BarGraphConfiguration()
'VBA614
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
.LongStrokesSize = 10
End With
End Sub
See also
AxisSection Property (Page 2015)
BarGraph Object (Page 1819)
LongStrokesTextEach Property
Description
Defines or returns which strokes will be labeled when displaying the scale on the BarGraph
object (1 = every stroke, 2 = every second stroke, etc.).
Example:
The "BarGraphConfiguration()" procedure configures In this example every third stroke will be
labeled:
Sub BarGraphConfiguration()
'VBA615
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
LongStrokesTextEach = 3
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,
2205
See also
BarGraph Object (Page 1819)
4.4.8.10 M
Macro Property
Description
For a user-defined menu entry or icon, defines the VBA macro that will be executed upon
selection.
Example:
In the following example, a user-defined menu with two menu entries is created, which retrieve
two different VBA macros:
Sub CreateDocumentMenusUsingMacroProperty()
'VBA616
Dim objDocMenu As HMIMenu
Dim objMenuItem As HMIMenuItem
Set objDocMenu = ActiveDocument.CustomMenus.InsertMenu(1, "DocMenu1", "Doc_Menu_1")
Set objMenuItem = objDocMenu.MenuItems.InsertMenuItem(1, "dmItem1_1", "My first menuitem")
Set objMenuItem = objDocMenu.MenuItems.InsertMenuItem(2, "dmItem1_2", "My second menuitem")
'
'To assign a macro to every menuitem:
With ActiveDocument.CustomMenus("DocMenu1")
.MenuItems("dmItem1_1").Macro = "TestMacro1"
.MenuItems("dmItem1_2").Macro = "TestMacro2"
End With
End Sub
You can call the following two procedures via the menu items in the user-defined menu
"DocMenu1":
Sub TestMacro1()
MsgBox "TestMacro1 is executed"
End Sub
Sub TestMacro2()
MsgBox "TestMacro2 is executed"
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2206
System Manual, 11/2008,
See also
ToolbarItem Object (Page 1970)
MenuItem Object (Page 1906)
How to Assign VBA Macros to Menus and Toolbars (Page 1589)
Marker Property
Description
TRUE if the limit values are to be displayed as a scale value in the case of the BarGraph object.
BOOLEAN write-read access.
Example:
The "BarGraphConfiguration()" procedure configures In this example, the limit values will be
displayed as scale values:
Sub BarGraphConfiguration()
'VBA617
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
.Marker = True
End With
End Sub
See also
BarGraph Object (Page 1819)
Max Property
Description
Defines or returns the absolute value in the case of a full value display.
This value is displayed if the scale display is active.
Example:
The "BarGraphConfiguration()" procedure configures In this example the absolute value will
be set to "10".
Sub BarGraphConfiguration()
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2207
'VBA618
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
.Max = 10
End With
End Sub
See also
Slider object (Page 1952)
BarGraph Object (Page 1819)
3DBarGraph Object (Page 1805)
MaximizeButton Property
Description
TRUE if the ApplicationWindow object can be maximized in Runtime. BOOLEAN write-read
access.
Example:
The "ApplicationWindowConfig" procedure accesses the properties of the application window.
In this example the application window will receive a Maximize button in Runtime:
Sub ApplicationWindowConfig()
'VBA619
Dim objAppWindow As HMIApplicationWindow
Set objAppWindow = ActiveDocument.HMIObjects.AddHMIObject("AppWindow1",
"HMIApplicationWindow")
With objAppWindow
.MaximizeButton = True
End With
End Sub
See also
ApplicationWindow Object (Page 1817)
MaxZoom Property
Description
Defines or returns the maximum zoom level for the layer.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2208
System Manual, 11/2008,
Example:
The "LayerInfo()" procedure outputs the name and zoom configuration for each layer of the
current picture:
Sub LayerInfo()
'VBA620
Dim colLayers As HMILayers
Dim objSingleLayer As HMILayer
Dim iAnswer As Integer
Set colLayers = ActiveDocument.Layers
For Each objSingleLayer In colLayers
With objSingleLayer
iAnswer = MsgBox("Layername: " & .Name & vbCrLf & "Min. zoom: " & .MinZoom & vbCrLf & "Max.
zoom: " & .MaxZoom, vbOKCancel)
End With
If vbCancel = iAnswer Then Exit For
Next objSingleLayer
End Sub
See also
Layer Object (Page 1894)
Editing Layers with VBA (Page 1603)
MCGUBackColorOff-Eigenschaft
Description
In the case of the GroupDisplay object, defines or returns the background color for the "Went
Out Unacknowledged" status when the flash status is "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 "GroupDisplayConfiguration()" procedure accesses the properties of the Group Display.
In this example the background color when the flash status is "Off" will be set to "Red":
Sub GroupDisplayConfiguration()
'VBA621
Dim objGroupDisplay As HMIGroupDisplay
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2209
Set objGroupDisplay = ActiveDocument.HMIObjects.AddHMIObject("GroupDisplay1",
"HMIGroupDisplay")
With objGroupDisplay
.MCGUBackColorOff = RGB(255, 0, 0)
End With
End Sub
See also
GroupDisplay Object (Page 1874)
MCGUBackColorOn Property
Description
In the case of the GroupDisplay object, defines or returns the background color for the "Went
Out Unacknowledged" status when the flash status is "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)
Example:
The "GroupDisplayConfiguration()" procedure accesses the properties of the Group Display.
In this example the background color when the flash status is "On" will be set to "White":
Sub GroupDisplayConfiguration()
'VBA622
Dim objGroupDisplay As HMIGroupDisplay
Set objGroupDisplay = ActiveDocument.HMIObjects.AddHMIObject("GroupDisplay1",
"HMIGroupDisplay")
With objGroupDisplay
.MCGUBackColorOn = RGB(255, 255, 255)
End With
End Sub
See also
GroupDisplay Object (Page 1874)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2210
System Manual, 11/2008,