System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
Expression
Necessary. An expression or element which returns an object of the "Document" type.
Parameters
Parameter (Data Type) Description
Index (Variant) Defines the CS layer. Value range from 1 to 32.
Layer0 corresponds to the index value "1".
Example:
The following example determines whether CS layer 1 in the copy of the active picture is visible
and outputs the result:
Sub IsCSLayerVisible()
'VBA164
Dim objView As HMIView
Dim strLayerName As String
Dim iLayerIdx As Integer
Set objView = ActiveDocument.Views(1)
objView.Activate
iLayerIdx = 2
strLayerName = ActiveDocument.Layers(iLayerIdx).Name
If objView.IsCSLayerVisible(iLayerIdx) = True Then
MsgBox "CS " & strLayerName & " is visible"
Else
MsgBox "CS " & strLayerName & " is invisible"
End If
End Sub
See also
Document Object (Page 1847)
VBA Reference (Page 1664)
Editing Layers with VBA (Page 1603)
IsRTLayerVisible Method
Description
Returns TRUE if the specified RT layer is visible.
syntax
Expression.
IsRTLayerVisible(Index)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1771
Expression
Necessary. An expression or element which returns an object of the "Document" type.
Parameters
Parameter (Data Type) Description
Index (Variant) Defines the RT layer. Value range from 1 to 32.
Layer0 corresponds to the index value "1".
Example:
The following example determines whether RT layer 1 is visible and outputs the result:
Sub RTLayerVisibility()
'VBA165
Dim strLayerName As String
Dim iLayerIdx As Integer
iLayerIdx = 2
strLayerName = ActiveDocument.Layers(iLayerIdx).Name
If ActiveDocument.IsRTLayerVisible(iLayerIdx) = True Then
MsgBox "RT " & strLayerName & " is visible"
Else
MsgBox "RT " & strLayerName & " is invisible"
End If
End Sub
See also
Document Object (Page 1847)
VBA Reference (Page 1664)
Editing Layers with VBA (Page 1603)
Item Method
Description
Returns an element from a listing.
syntax
Expression.
Item(Index)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1772
System Manual, 11/2008,
Expression
Necessary. An expression or element which returns an object.
Parameters
Parameter (Data Type) Description
Index (Variant) The name or index number of an element from the
listing.
You can use the Object Name as the name. As the
index
number you can use a numerical expression
(from 1 up to the value of the Count property of the
listing).
If the entered value fails to match any element in
the listing, this counts as an error.
Example:
Note
The Item Method is the default method for listings. Both the following examples give the same
result.
In the following example the name of the first picture in the Graphics Designer is output:
Sub ShowDocumentNameLongVersion()
'VBA166
Dim strDocName As String
strDocName = Application.Documents.Item(3).Name
MsgBox strDocName
End Sub
Sub ShowDocumentNameShortVersion()
'VBA167
Dim strDocName As String
strDocName = Application.Documents(3).Name
MsgBox strDocName
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,
1773
See also
VariableStateValues Object (Listing) (Page 1987)
Count Property (Page 2082)
Views Object (Listing) (Page 1993)
VariableTriggers Object (Listing) (Page 1990)
ToolbarItems Object (Listing) (Page 1973)
Toolbars Object (Listing) (Page 1968)
SymbolLibraries Object (Listing) (Page 1963)
Selection Object (Listing) (Page 1949)
Properties Object (Listing) (Page 1931)
HMIObjects Object (Listing) (Page 1884)
HMIDefaultObjects Object (Listing) (Page 1878)
MenuItems Object (Listing) (Page 1909)
Menus Object (Listing) (Page 1904)
Layers Object (Listing) (Page 1895)
LanguageTexts Object (Listing) (Page 1893)
LanguageFonts Object (Listing) (Page 1890)
GroupedObjects Object (Listing) (Page 1877)
FolderItems Object (Listing) (Page 1868)
Events Object (Listing) (Page 1863)
Documents Object (Listing) (Page 1850)
DataLanguages Object (Listing) (Page 1842)
ConnectionPoints Object (Listing) (Page 1837)
AnalogResultInfos Object (Listing) (Page 1813)
Actions Object (Listing) (Page 1810)
VBA Reference (Page 1664)
ItemByLcid Method
Description
Selects the language for which you wish to enter the font settings. Read only access.
Note
You can only select languages in which you have already configured.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1774
System Manual, 11/2008,
Syntax
Expression.
ItemByLcid(LangID)
Expression
Required. An expression or element which returns an object of the "LanguageFonts" type.
Parameter
Parameter (Data Type) Description
LangID (Long) This is the language identifier. The list of language
identifiers is contained, for example, in the
"Languages.csv" file that is found in the index of
the WinCC documentation.
Example
The following example sets the font attributes of a button for French and English. In contrast
to
English, French is displayed on the button in a smaller font with a constant tracking (Courier
New, 12pt):
Sub ExampleForLanguageFonts()
'VBA168
Dim objLangFonts As HMILanguageFonts
Dim objButton As HMIButton
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("myButton", "HMIButton")
objButton.Text = "Hello"
Set objLangFonts = objButton.LDFonts
'
'To make fontsettings for English:
With objLangFonts.ItemByLCID(1033)
.Family = "Times New Roman"
.Bold = False
.Italic = True
.Underlined = False
.Size = 14
End With
'
'To make fontsettings for French:
With objLangFonts.ItemByLCID(1036)
.Family = "Courier New"
.Bold = True
.Italic = False
.Underlined = True
.Size = 12
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,
1775
See also
LanguageFonts Object (Listing) (Page 1890)
LoadDefaultConfig Method
Description
Loads the file in which the default settings for objects are saved. The PDD file is located in the
"GraCS" folder of the current project.
syntax
Expression.
LoadDefaultConfig(FileName)
Expression
Necessary. An expression or element which returns an object of the "Application" type.
Parameters
Parameter (Data Type) Description
FileName (String) The name of the PDD file which it is intended to
load.
Example:
In the following example the file "Test.PDD" will be loaded. For this example to work, you must
have
previously saved the file. You can do this with the aid of the SaveDefaultConfig Method:
Sub LoadDefaultConfig()
'VBA169
Application.LoadDefaultConfig ("Test.PDD")
End Sub
See also
Application Object (Page 1814)
SaveDefaultConfig Method (Page 1793)
VBA Reference (Page 1664)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1776
System Manual, 11/2008,
MoveOneLayerDown Method
Description
Moves the selected object in the specified picture into the next lowest layer.
syntax
Expression.
MoveOneLayerDown()
Expression
Necessary. An expression or element which returns an object of the "Selection" type.
Parameters
--
Example:
In the following example a circle in the active picture is inserted in the third layer and then
moved to the next lowest layer:
Sub MoveObjectOneLayerDown()
'VBA170
Dim objCircle As HMICircle
Dim objRectangle As HMIRectangle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("sCircle", "HMICircle")
With objCircle
.Top = 40
.Left = 40
.Selected = True
.Layer = 3
MsgBox "Circle is inserted into layer" & Str(.Layer)
ActiveDocument.Selection.MoveOneLayerDown
MsgBox "Circle is moved into layer" & Str(.Layer)
End With
End Sub
See also
Selection Object (Listing) (Page 1949)
VBA Reference (Page 1664)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1777
MoveOneLayerUp Method
Description
Moves the selected object in the specified picture into the next highest layer.
syntax
Expression.
MoveOneLayerUp()
Expression
Necessary. An expression or element which returns an object of the "Selection" type.
Parameters
--
Example:
In the following example a circle in the active picture is inserted in the third layer and then
moved to the next highest layer:
Sub MoveObjectOneLayerUp()
'VBA171
Dim objCircle As HMICircle
Dim objRectangle As HMIRectangle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("sCircle", "HMICircle")
With objCircle
.Top = 40
.Left = 40
.Selected = True
.Layer = 3
MsgBox "Circle is inserted into layer" & Str(.Layer)
ActiveDocument.Selection.MoveOneLayerUp
MsgBox "Circle is moved into layer" & Str(.Layer)
End With
End Sub
See also
Selection Object (Listing) (Page 1949)
VBA Reference (Page 1664)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1778
System Manual, 11/2008,
MoveSelection Method
Description
Moves one or more objects selected in the picture by the specified coordinates.
Note
When you want to reposition one or more selected objects, use the properties "Left" and
"Top".
syntax
Expression.
MoveSelection(PosX, PosY)
Expression
Necessary. An expression or element which returns an object of the "Document" or "Selection"
type.
Parameters
Parameter (Data Type) Description
PosX (Long) The number of pixels by which the selection is to
be moved horizontally.
PosY (Long) The number of pixels by which the selection is to
be moved vertically.
Example:
In the following example two objects are inserted at different positions in the current picture
and selected. The selection is then moved 30 pixels to the right and 40 pixels down:
Sub MoveSelectionToNewPostion()
'VBA172
Dim nPosX As Long
Dim nPosY As Long
Dim objCircle As HMICircle
Dim objRectangle As HMIRectangle
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
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1779
.Top = 80
.Left = 80
.Selected = True
End With
MsgBox "Objects selected!"
nPosX = 30
nPosY = 40
'Instead of next you can write "ActiveDocument.Selection.MoveSelection".
ActiveDocument.MoveSelection nPosX, nPosY
End Sub
See also
Top Property (Page 2311)
Left Property (Page 2192)
Document Object (Page 1847)
VBA Reference (Page 1664)
4.4.6.3 O-Z
Open Method
Description
Opens an existing picture in the Graphics Designer and adds it to the documents listing.
syntax
Expression.
Open(FileName, [HMIOpenDocumentType])
Expression
Necessary. An expression or element which returns an object of the "Documents" type.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1780
System Manual, 11/2008,