System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
syntax
Expression.
ShowSymbolLibraryDialog()
Expression
Necessary. An expression or element which returns an object of the "Application" type.
Parameters
--
Example:
In the following example the Components Library is opened:
Sub ShowSymbolLibraryDialog()
'VBA193
Application.ShowSymbolLibraryDialog
End Sub
See also
Application Object (Page 1814)
VBA Reference (Page 1664)
ShowTagDialog Method
Description
Opens the "Tags" dialog.
syntax
Expression.
ShowTagDialog()
Expression
Necessary. An expression or element which returns an object of the "Application" type.
Parameters
--
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1801
Example:
In the following example the "Tags" dialog is opened:
Sub ShowTagDialog()
'VBA194
Application.ShowTagDialog
End Sub
See also
Application Object (Page 1814)
VBA Reference (Page 1664)
TileWindowsHorizontally Method
Description
Arranges all open pictures in the Graphics Designer so that they are tiled horizontally.
syntax
Expression.
Methode()
Expression
Necessary. An expression or element which returns an object of the "Application" type.
Parameters
--
Example:
In the following example all open pictures in the Graphics Designer are tiled horizontally. For
this example to work, you must have opened a number of pictures in the Graphics Designer:
Sub TileWindowsHorizontally()
'VBA195
Application.TileWindowsHorizontally
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1802
System Manual, 11/2008,
See also
Application Object (Page 1814)
VBA Reference (Page 1664)
TileWindowsVertically Method
Description
Arranges all open pictures in the Graphics Designer so that they are tiled vertically.
syntax
Expression.
Methode()
Expression
Necessary. An expression or element which returns an object of the "Application" type.
Parameters
--
Example:
In the following example all open pictures in the Graphics Designer are tiled vertically. For this
example to work, you must have opened a number of pictures in the Graphics Designer:
Sub TileWindowsVertically()
'VBA196
Application.TileWindowsVertically
End Sub
See also
Application Object (Page 1814)
VBA Reference (Page 1664)
Ungroup Method
Description
Ungroups a group object. The objects remain intact.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1803
syntax
Expression.
Ungroup(Parameter)
Expression
Necessary. An expression or element which returns an object of the "Group" type.
Parameters
--
Example:
In the following example three objects are created in the current picture and a group object is
then created from them: The group object is then moved and ungrouped.
Sub DissolveGroup()
'VBA199
Dim objCircle As HMICircle
Dim objRectangle As HMIRectangle
Dim objEllipse As HMIEllipse
Dim objGroup As HMIGroup
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("sCircle", "HMICircle")
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("sRectangle", "HMIRectangle")
Set objEllipse = ActiveDocument.HMIObjects.AddHMIObject("sEllipse", "HMIEllipse")
With objCircle
.Top = 30
.Left = 0
.Selected = True
End With
With objRectangle
.Top = 80
.Left = 42
.Selected = True
End With
With objEllipse
.Top = 48
.Left = 162
.Width = 40
.BackColor = RGB(255, 0, 0)
.Selected = True
End With
MsgBox "Objects selected!"
Set objGroup = ActiveDocument.Selection.CreateGroup
MsgBox "Group-object is created."
With objGroup
.Left = 120
.Top = 300
MsgBox "Group-object is moved."
.UnGroup
MsgBox "Group is dissolved."
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1804
System Manual, 11/2008,
End With
End Sub
See also
Group Object (Page 1873)
CreateGroup Method (Page 1743)
VBA Reference (Page 1664)
Group Objects (Page 1618)
4.4.7 Objects and Lists
4.4.7.1 0-9, A-C
3DBarGraph Object
Description
Represents the "3D Bar" object. The 3DBarGraph object is an element of the following listings:
● HMIObjects: Contains all objects of a picture.
● Selection: Contains all selected objects of a picture.
VBA Object Name
HMI3DBarGraph
Usage
Use the Add method to create a new "3D Bar" object in a picture:
Sub Add3DBarGraph()
'VBA200
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1805
Dim obj3DBarGraph As HMI3DBarGraph
Set obj3DBarGraph = ActiveDocument.HMIObjects.AddHMIObject("3DBar", "HMI3DBarGraph")
End Sub
Use "HMIObjects"(Index)" to return an object from the HMIObjects listing, where Index in this
case identifies the object by name:
Sub Edit3DBarGraph()
'VBA201
Dim obj3DBarGraph As HMI3DBarGraph
Set obj3DBarGraph = ActiveDocument.HMIObjects("3DBar")
obj3DBarGraph.BorderColor = RGB(255, 0, 0)
End Sub
Use "Selection"(Index) to return an object from the Selection listing.
Sub ShowNameOfFirstSelectedObject()
'VBA202
'Select all objects in the picture:
ActiveDocument.Selection.SelectAll
'Get the name from the first object of the selection:
MsgBox ActiveDocument.Selection(1).ObjectName
End Sub
Object properties
The 3D Bar object possesses the following properties:
● AngleAlpha
● AngleBeta
● Axe
● BorderColor
● Background
● BarDepth
● BarHeight
● BarWidth
● BaseX
● BaseY
● BorderColor
● BorderStyle
● BorderWidth
● Direction
● Height
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1806
System Manual, 11/2008,
● Layer00Checked
● Layer00Color
● Layer00Value
● Layer01Checked
● Layer01Color
● Layer01Value
● Layer02Checked
● Layer02Color
● Layer02Value
● Layer03Checked
● Layer03Color
● Layer03Value
● Layer04Checked
● Layer04Color
● Layer04Value
● Layer05Checked
● Layer05Color
● Layer05Value
● Layer06Checked
● Layer06Color
● Layer06Value
● Layer07Checked
● Layer07Color
● Layer07Value
● Layer08Checked
● Layer08Color
● Layer08Value
● Layer09Checked
● Layer09Color
● Layer09Value
● Layer10Checked
● Layer10Color
● Layer10Value
● Layer
● Left
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1807
● LightEffect
● Max.
● Min.
● Name
● Operation
● PasswordLevel
● PredefinedAngles
● Process
● ToolTipText
● Top
● Visible
● Width
● ZeroPointValue
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1808
System Manual, 11/2008,
See also
Selection Object (Listing) (Page 1949)
Layer09Color Property (Page 2180)
Layer01Checked Property (Page 2163)
HMIObjects Object (Listing) (Page 1884)
HMIDefaultObjects Object (Listing) (Page 1878)
AddHMIObject Method (Page 1719)
VBA Reference (Page 1664)
Editing Objects with VBA (Page 1606)
ZeroPointValue Property (Page 2413)
Width Property (Page 2408)
Visible Property (Page 2405)
Top Property (Page 2311)
ToolTipText Property (Page 2310)
Process Property (Page 2260)
PredefinedAngels Property (Page 2259)
PasswordLevel Property (Page 2244)
Operation Property (Page 2237)
Name Property (Page 2228)
Min Property (Page 2225)
Max Property (Page 2207)
LightEffect Property (Page 2193)
Left Property (Page 2192)
Layer Property (Page 2160)
Layer10Value Property (Page 2183)
Layer10Color Property (Page 2182)
Layer10Checked Property (Page 2182)
Layer09Value Property (Page 2181)
Layer09Checked Property (Page 2180)
Layer08Value Property (Page 2179)
Layer08Color Property (Page 2178)
Layer08Checked Property (Page 2178)
Layer07Value Property (Page 2177)
Layer07Color Property (Page 2176)
Layer07Checked Property (Page 2176)
Layer06Value Property (Page 2175)
Layer06Color Property (Page 2174)
Layer06Checked Property (Page 2174)
Layer05Value Property (Page 2173)
Layer05Color Property (Page 2172)
Layer05Checked Property (Page 2172)
Layer04Value Property (Page 2171)
Layer04Color Property (Page 2170)
Layer04Checked Property (Page 2170)
Layer03Value Property (Page 2169)
Layer03Color Property (Page 2168)
Layer03Checked Property (Page 2167)
Layer02Value Property (Page 2167)
Layer02Color Property (Page 2166)
Layer02Checked Property (Page 2165)
Layer01Value Property (Page 2165)
Layer01Color Property (Page 2164)
Layer00Value Property (Page 2163)
Layer00Color Property (Page 2162)
Layer00Checked Property (Page 2161)
Height Property (Page 2139)
Direction Property (Page 2091)
BorderWidth Property (Page 2045)
BorderStyle Property (Page 2043)
BorderColor Property (Page 2036)
BaseY Property (Page 2030)
BaseX Property (Page 2030)
BarWidth Property (Page 2026)
BarHeight Property (Page 2026)
BarDepth Property (Page 2025)
Background Property (Page 2023)
Axe Property (Page 2014)
AngleBeta Property (Page 2007)
AngleAlpha Property (Page 2006)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1809
Actions Object (Listing)
Description
Displays a listing of the actions that are configured on an event.
VBA Object Name
HMIActions
Usage
Use the AddAction method to configure one or more actions on an event. In this example a
button and a circle will be inserted in the active picture. In runtime the radius of the circle
enlarges every time you click the button:
Sub CreateVBActionToClickedEvent()
'VBA203
Dim objButton As HMIButton
Dim objCircle As HMICircle
Dim objVBScript As HMIScriptInfo
Dim strVBCode As String
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_VB", "HMICircle")
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("myButton", "HMIButton")
With objCircle
.Top = 100
.Left = 100
.BackColor = RGB(255, 0, 0)
End With
With objButton
.Top = 10
.Left = 10
.Text = "Increase Radius"
End With
'define event and assign sourcecode to it:
Set objVBScript = objButton.Events(1).Actions.AddAction(hmiActionCreationTypeVBScript)
strVBCode = "Dim myCircle" & vbCrLf & "Set myCircle = "
strVBCode = strVBCode & "HMIRuntime.ActiveScreen.ScreenItems(""Circle_VB"")"
strVBCode = strVBCode & vbCrLf & "myCircle.Radius = myCircle.Radius + 5"
With objVBScript
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1810
System Manual, 11/2008,