System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
iMax = colLanguageFonts.Count
For Each objLanguageFont In colLanguageFonts
MsgBox "Planned fonts: " & iMax & vbCrLf & "Language-ID: " & objLanguageFont.LanguageID
Next objLanguageFont
End Sub
Use the ItemByLcid method to define the language for which it is intended to enter font settings.
The following example sets the font attributes of a button for French and English.
Note
For this example to work, you must already have configured in the languages concerned.
Sub ExampleForLanguageFonts()
'VBA279
Dim colLangFonts As HMILanguageFonts
Dim objButton As HMIButton
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("myButton", "HMIButton")
objButton.Text = "DefText"
Set colLangFonts = objButton.LDFonts
'Adjust fontsettings for french:
With colLangFonts.ItemByLCID(1036)
.Family = "Courier New"
.Bold = True
.Italic = False
.Underlined = True
.Size = 12
End With
'Adjust fontsettings for english:
With colLangFonts.ItemByLCID(1033)
.Family = "Times New Roman"
.Bold = False
.Italic = True
.Underlined = False
.Size = 14
End With
End Sub
See also
LanguageFont Object (Page 1889)
ItemByLcid Method (Page 1774)
Item Method (Page 1772)
VBA Reference (Page 1664)
Parent Property (Page 2241)
Count Property (Page 2082)
Application Property (Page 2008)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1891
LanguageText Object
Description
Contains the multilingual labels for an object. The LanguageText object is an element of the
LanguageTexts listing.
VBA Object Name
HMILanguageText
Usage
In the following example a German label and an English label will be assigned to the button
called "myButton":
Sub AddLanguagesToButton()
'VBA280
Dim objLabelText As HMILanguageText
Dim objButton As HMIButton
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("myButton", "HMIButton")
'
'Add text in actual datalanguage:
objButton.Text = "Actual-Language Text"
'
'Add english text:
Set objLabelText = ActiveDocument.HMIObjects("myButton").LDTexts.Add(1033, "English Text")
End Sub
See also
LanguageTexts Object (Listing) (Page 1893)
Delete Method (Page 1745)
VBA Reference (Page 1664)
Parent Property (Page 2241)
LanguageID Property (Page 2158)
DisplayText Property (Page 2094)
Application Property (Page 2008)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1892
System Manual, 11/2008,
LanguageTexts Object (Listing)
Description
A listing of the LanguageText objects that represent all the multilingual texts in an object.
VBA Object Name
HMILanguageTexts
Usage
Use one of the following properties to return the LanguageTexts listing:
● LDLabelTexts Property
● LDNames Property
● LDStatusTexts Property
● LDTexts Property
● LDTooltipTexts Property
An example showing how to use the LanguageTexts listing can be found in this documentation
under the heading "LDStatusTexts Property".
Use the Add method to add multilingual texts to an object. In the following example a German
label and an English label will be assigned to the button called "myButton":
Sub AddLanguagesToButton()
'VBA281
Dim objLabelText As HMILanguageText
Dim objButton As HMIButton
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("myButton", "HMIButton")
'
'Add text in actual datalanguage:
objButton.Text = "Actual-Language Text"
'
'Add english text:
Set objLabelText = ActiveDocument.HMIObjects("myButton").LDTexts.Add(1033, "English Text")
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,
1893
See also
LanguageText Object (Page 1892)
ItemByLcid Method (Page 1774)
Item Method (Page 1772)
VBA Reference (Page 1664)
Parent Property (Page 2241)
LDTooltipTexts Property (Page 2190)
LDTexts Property (Page 2190)
LDStatusTexts Property (Page 2188)
LDNames Property (Page 2187)
LDLabelTexts Property (Page 2186)
Count Property (Page 2082)
Application Property (Page 2008)
Layer Object
Description
Represents one of the 32 layers that are available in the picture.
VBA Object Name
HMILayer
Usage
Use the Layer object to define a name and the minimum and maximum zoom for a layer. You
define the visibility of layers separately by CS and RT layers:
● Document Object: Controls the visibility of the RT layers.
● View Object: Controls the visibility of the RT layers.
Use the Layers listing to return a Layer object. In the following example the settings for the
lowest layer are configured in the active picture:
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1894
System Manual, 11/2008,
Sub ConfigureSettingsOfLayer()
'VBA282
Dim objLayer As HMILayer
Set objLayer = ActiveDocument.Layers(1)
With objLayer
'configure "Layer 0"
.MinZoom = 10
.MaxZoom = 100
.Name = "Configured with VBA"
End With
End Sub
See also
Layers Property (Page 2184)
VBA Reference (Page 1664)
Editing Layers with VBA (Page 1603)
Visible Property (Page 2405)
Number Property (Page 2230)
Name Property (Page 2228)
MinZoom Property (Page 2226)
MaxZoom Property (Page 2208)
LDNames Property (Page 2187)
ActiveLayer Property (Page 1996)
Layers Object (Listing)
Description
A listing of the Layer objects that represent the 32 layers in the picture.
VBA Object Name
HMILayer
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1895
Usage
Use the LayersCS or LayersRT property to return the Layers listing. In the following example
the layer names in the copy of the active picture will be output:
Sub ShowLayer()
'VBA283
Dim colLayers As HMILayers
Dim objLayer As HMILayer
Dim strLayerList As String
Dim iCounter As Integer
iCounter = 1
Set colLayers = ActiveDocument.Layers
For Each objLayer In colLayers
If 1 = iCounter Mod 2 And 32 > iCounter Then
strLayerList = strLayerList & vbCrLf
ElseIf 11 > iCounter Then
strLayerList = strLayerList & " "
Else
strLayerList = strLayerList & " "
End If
strLayerList = strLayerList & objLayer.Name
iCounter = iCounter + 1
Next objLayer
MsgBox strLayerList
End Sub
See also
Layer Object (Page 1894)
Item Method (Page 1772)
VBA Reference (Page 1664)
Parent Property (Page 2241)
Count Property (Page 2082)
Application Property (Page 2008)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1896
System Manual, 11/2008,
Line Object
Description
Represents the "Line" object. The Line object is an element of the following listings:
● Objects: Contains all objects of a picture.
● Selection: Contains all selected objects of a picture.
● HMIDefaultObjects: Contains the default property values of all standard, Windows, and
smart objects.
VBA Object Name
HMILine
Usage
Use the Add method to create a new "Line" object in a picture:
Sub AddLine()
'VBA285
Dim objLine As HMILine
Set objLine = ActiveDocument.HMIObjects.AddHMIObject("Line1", "HMILine")
End Sub
Use "HMIObjects"(Index)" to return an object from the HMIObjects listing, where Index in this
case identifies the object by name:
Sub EditLine()
'VBA286
Dim objLine As HMILine
Set objLine = ActiveDocument.HMIObjects("Line1")
objLine.BorderColor = RGB(255, 0, 0)
End Sub
Use "Selection"(Index) to return an object from the Selection listing:
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1897
Sub ShowNameOfFirstSelectedObject()
'VBA287
'Select all objects in the picture:
ActiveDocument.Selection.SelectAll
'Get the name of the first object of the selection:
MsgBox ActiveDocument.Selection(1).ObjectName
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1898
System Manual, 11/2008,
See also
AddHMIObject Method (Page 1719)
BorderBackColor Property (Page 2035)
Selection Object (Listing) (Page 1949)
HMIObjects Object (Listing) (Page 1884)
HMIDefaultObjects Object (Listing) (Page 1878)
VBA Reference (Page 1664)
Editing Objects with VBA (Page 1606)
Width Property (Page 2408)
Visible Property (Page 2405)
Top Property (Page 2311)
ToolTipText Property (Page 2310)
RotationAngle Property (Page 2274)
ReferenceRotationTop Property (Page 2271)
ReferenceRotationLeft Property (Page 2270)
PasswordLevel Property (Page 2244)
Operation Property (Page 2237)
Name Property (Page 2228)
Left Property (Page 2192)
Layer Property (Page 2160)
Index Property (Page 2145)
Height Property (Page 2139)
FlashRateBorderColor Property (Page 2120)
FlashBorderColor Property (Page 2112)
BorderWidth Property (Page 2045)
BorderStyle Property (Page 2043)
BorderFlashColorOn Property (Page 2042)
BorderFlashColorOff Property (Page 2040)
BorderEndStyle Property (Page 2039)
BorderColor Property (Page 2036)
ActualPointTop Property (Page 1998)
ActualPointLeft Property (Page 1997)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1899
ListBox object
Description
Represents the "ListBox" object. The ListBox object is an element of the following listings:
● HMIObjects: Contains all objects of a picture.
● Selection: Contains all selected objects of a picture.
● HMIDefaultObjects: Contains the default property values of all default, smart, window and
tube objects.
VBA object name
HMIListBox
Usage
Use the Add method to create a new "ListBox" object in a picture:
Sub AddListBox()
'VBA829
Dim objListBox As HMIListBox
Set objListBox = ActiveDocument.HMIObjects.AddHMIObject("ListBox", "HMIListBox")
End Sub
Use "HMIObjects"(Index)" to return an object from the HMIObjects listing, where Index in this
case identifies the object by name:
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1900
System Manual, 11/2008,