System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
See also
Selection Object (Listing) (Page 1949)
HMIObjects Object (Listing) (Page 1884)
Destroy Method (Page 1749)
Delete Method (Page 1745)
CreateCustomizedObject Method (Page 1741)
How to Edit a Customized Object with VBA (Page 1628)
VBA Reference (Page 1664)
Customized Objects (Page 1626)
Editing Objects with VBA (Page 1606)
4.4.7.2 D-I
DataLanguage Object
Description
Represents the installed project language, which is identified by its name and language
identifier. The DataLanguage object is an element of the DataLanguages listing:
The full list of language codes is available in the WinCC documentation (Index > Language
ID). The hexadecimal value specified in the list has to be converted to its equivalent decimal
value.
VBA Object Name
HMIDataLanguage
Usage
Use the DataLanguages property to return an individual DataLanguage object. In the following
example the first installed project language is output:
Sub ShowFirstObjectOfCollection()
'VBA232
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1841
Dim strName As String
strName = ActiveDocument.Application.AvailableDataLanguages(1).LanguageName
MsgBox strName
End Sub
See also
DataLanguages Object (Listing) (Page 1842)
VBA Reference (Page 1664)
Language-Dependent Configuration with VBA (Page 1570)
Parent Property (Page 2241)
LanguageName Property (Page 2158)
LanguageID Property (Page 2158)
Application Property (Page 2008)
DataLanguages Object (Listing)
Description
A listing of the DataLanguage objects that represent all the installed project languages.
VBA Object Name
HMIDataLanguages
Usage
Use the AvailableDataLanguages property to return the DataLanguages listing. In the following
example the installed project language is output:
Sub ShowDataLanguage()
'VBA233
Dim colDataLanguages As HMIDataLanguages
Dim objDataLanguage As HMIDataLanguage
Dim strLanguages As String
Dim iCount As Integer
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1842
System Manual, 11/2008,
iCount = 0
Set colDataLanguages = Application.AvailableDataLanguages
For Each objDataLanguage In colDataLanguages
If "" <> strLanguages Then strLanguages = strLanguages & "/"
strLanguages = strLanguages & objDataLanguage.LanguageName & " "
'Every 15 items of datalanguages output in a messagebox
If 0 = iCount Mod 15 And 0 <> iCount Then
MsgBox strLanguages
strLanguages = ""
End If
iCount = iCount + 1
Next objDataLanguage
MsgBox strLanguages
End Sub
See also
Language-Dependent Configuration with VBA (Page 1570)
DataLanguage Object (Page 1841)
Item Method (Page 1772)
VBA Reference (Page 1664)
Parent Property (Page 2241)
Count Property (Page 2082)
Application Property (Page 2008)
DestLink Object
Description
Represents the destination for a direct connection.
VBA Object Name
HMIDestLink
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1843
Usage
Use the DestinationLink property to return the DestLink object. In the following example the X
position of "Rectangle_A" is copied to the Y position of "Rectangle_B" in Runtime by clicking
on the button:
Sub DirectConnection()
'VBA234
Dim objButton As HMIButton
Dim objRectangleA As HMIRectangle
Dim objRectangleB As HMIRectangle
Dim objEvent As HMIEvent
Dim objDirConnection As HMIDirectConnection
Set objRectangleA = ActiveDocument.HMIObjects.AddHMIObject("Rectangle_A", "HMIRectangle")
Set objRectangleB = ActiveDocument.HMIObjects.AddHMIObject("Rectangle_B", "HMIRectangle")
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("myButton", "HMIButton")
With objRectangleA
.Top = 100
.Left = 100
End With
With objRectangleB
.Top = 250
.Left = 400
.BackColor = RGB(255, 0, 0)
End With
With objButton
.Top = 10
.Left = 10
.Width = 90
.Height = 50
.Text = "SetPosition"
End With
'
'Directconnection is initiated on mouseclick:
Set objDirConnection =
objButton.Events(1).Actions.AddAction(hmiActionCreationTypeDirectConnection)
With objDirConnection
'Sourceobject: Property "Top" of "Rectangle_A"
.SourceLink.Type = hmiSourceTypeProperty
.SourceLink.ObjectName = "Rectangle_A"
.SourceLink.AutomationName = "Top"
'
'Targetobject: Property "Left" of "Rectangle_B"
.DestinationLink.Type = hmiDestTypeProperty
.DestinationLink.ObjectName = "Rectangle_B"
.DestinationLink.AutomationName = "Left"
End With
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1844
System Manual, 11/2008,
See also
DirectConnection Object (Page 1845)
VBA Reference (Page 1664)
Type Property (Page 2315)
ObjectName Property (Page 2232)
AutomationName Property (Page 2011)
DestinationLink Property (Page 2090)
DirectConnection Object
Description
Represents a direct connection.
VBA Object Name
HMIDirectConnection
Usage
Use the DestinationLink and SourceLink properties to configure the source and destination of
a direct connection. In the following example the X position of "Rectangle_A" is copied to the
Y position of "Rectangle_B" in Runtime by clicking on the button:
Sub DirectConnection()
'VBA235
Dim objButton As HMIButton
Dim objRectangleA As HMIRectangle
Dim objRectangleB As HMIRectangle
Dim objEvent As HMIEvent
Dim objDirConnection As HMIDirectConnection
Set objRectangleA = ActiveDocument.HMIObjects.AddHMIObject("Rectangle_A", "HMIRectangle")
Set objRectangleB = ActiveDocument.HMIObjects.AddHMIObject("Rectangle_B", "HMIRectangle")
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("myButton", "HMIButton")
With objRectangleA
.Top = 100
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1845
.Left = 100
End With
With objRectangleB
.Top = 250
.Left = 400
.BackColor = RGB(255, 0, 0)
End With
With objButton
.Top = 10
.Left = 10
.Width = 90
.Height = 50
.Text = "SetPosition"
End With
'
'Directconnection is initiated on mouseclick:
Set objDirConnection =
objButton.Events(1).Actions.AddAction(hmiActionCreationTypeDirectConnection)
With objDirConnection
'Sourceobject: Property "Top" of "Rectangle_A"
.SourceLink.Type = hmiSourceTypeProperty
.SourceLink.ObjectName = "Rectangle_A"
.SourceLink.AutomationName = "Top"
'
'Targetobject: Property "Left" of "Rectangle_B"
.DestinationLink.Type = hmiDestTypeProperty
.DestinationLink.ObjectName = "Rectangle_B"
.DestinationLink.AutomationName = "Left"
End With
End Sub
See also
DestinationLink Property (Page 2090)
SourceLink Object (Page 1955)
DestLink Object (Page 1843)
VBA Reference (Page 1664)
SourceLink Property (Page 2293)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1846
System Manual, 11/2008,
Document Object
Description
Displays a picture in Graphics Designer. The document object is an element of the documents
listing.
VBA Object Name
HMIDocument
Usage
Use Documents(Index) to return an individual document object. In the following example the
file name of the first picture is displayed:
Sub ShowFirstObjectOfCollection()
'VBA236
Dim strName As String
strName = Application.Documents(3).Name
MsgBox strName
End Sub
You may also use the object "Me" if you wish to address the current document:
Sub ShowDocumentName()
'VBA812
Dim obj As Document
set obj = Me
MsgBox obj.Name
End Sub
For example, use the SaveAs method to save the picture under a different name. In the
following example the first picture will be saved under the name "CopyOfPicture1":
Sub SaveDocumentAs()
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1847
'VBA237
Application.Documents(3).SaveAs ("CopyOfPicture1")
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1848
System Manual, 11/2008,
See also
Editing Pictures with VBA (Page 1601)
GridHeight Property (Page 2136)
Documents Object (Listing) (Page 1850)
SetRTLayerVisible Method (Page 1799)
SaveAs Method (Page 1792)
Save Method (Page 1791)
PrintProjectDocumentation Method (Page 1783)
PasteClipboard Method (Page 1781)
MoveSelection Method (Page 1779)
IsRTLayerVisible Method (Page 1771)
Export Method (Page 1754)
CopySelection Method (Page 1738)
Close Method (Page 1735)
VBA Reference (Page 1664)
ExtendedZoomingEnable Property (Page 2103)
Width Property (Page 2408)
Visible Property (Page 2405)
Views Property (Page 2405)
UpdateCycle Property (Page 2327)
TabOrderOtherAction Property (Page 2303)
TabOrderMouse Property (Page 2302)
TabOrderKeyboard Property (Page 2301)
TabOrderAllHMIObjects Property (Page 2300)
SnapToGrid Property (Page 2293)
HMIDefaultObjects Object (Listing) (Page 1878)
Selection Property (Page 2286)
Properties Property (Page 2264)
Path Property (Page 2244)
PasswordLevel Property (Page 2244)
Parent Property (Page 2241)
Operation Property (Page 2237)
Name Property (Page 2228)
LockedByCreatorID Property (Page 2200)
LastChange Property (Page 2160)
HMIObjects Property (Page 2141)
Hide Property (Page 2140)
Height Property (Page 2139)
GridWidth Property (Page 2137)
GridColor Property (Page 2136)
Grid Property (Page 2135)
FillStyle Property (Page 2108)
FillColor Property (Page 2104)
Events Property (Page 2099)
CustomToolbars Property (Page 2086)
CustomMenus Property (Page 2086)
CursorMode Property (Page 2085)
BackColor Property (Page 2017)
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,
1849
Documents Object (Listing)
Description
VBA Object Name
HMIDocuments
Usage
Note
Use the "ActiveDocument" property if you wish to refer to the active picture.
Use the Documents property to return the Documents listing. In the following example the
names of all open pictures are output:
Sub ShowDocuments()
'VBA238
Dim colDocuments As Documents
Dim objDocument As Document
Set colDocuments = Application.Documents
For Each objDocument In colDocuments
MsgBox objDocument.Name
Next objDocument
End Sub
Use the Add method to add a new Document object to the Documents listing. In the following
example a new picture is created:
Sub AddNewDocument()
'VBA239
Dim objDocument As Document
Set objDocument = Application.Documents.Add
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1850
System Manual, 11/2008,