![]() |
Telelogic System Architect (steve huntington) | ![]() |
Topic Title: Macro access to symbol size Topic Summary: programmatically set the length and width of process symbol Created On: 19-Jun-2007 14:43 Status: Read Only |
Linear : Threading : Single : Branch |
![]() |
![]()
|
![]() Answer: The following sample code shows one way to do this. Standard disclaimers apply...AS IS WITHOUT WARRANTY FOR ANY USE...Try/test it on a sample diagram with similar complexity before using in PROD etc.
If intMsgBoxResult = vbYes Then Set saApp = Nothing Sub SymbolResize(strXYSize As String) Dim strErrorMsg As String 400 strSymbolName = colSymbols.Item(lngCounter).GetProperty("Name") 500 Debug.Print "Symbol Name: " & strSymbolName & ", " & "Original Size: " & strSymbolSize & ", " & "New Size: " & strXYSize & ", " & "Symbol Type: " & strSymbolType 700 Next lngCounter 1100 myError: | |
![]() |
|
Is there a way to select all symbols of a certain type and then set a common size to all of them. For example, I want to select all Process symbols on a BPMN diagram and programmatically set the length and width parameters to all symbols.
>>> EDIT >>>
------------------------- Thanks, MattS Edited: 19-Jun-2007 at 16:00 by Matt Sheranko |
|
![]() |
|
![]() |
|
The following sample code shows one way to do this. Standard disclaimers apply...AS IS WITHOUT WARRANTY FOR ANY USE...Try/test it on a sample diagram with similar complexity before using in PROD etc.
If intMsgBoxResult = vbYes Then Set saApp = Nothing Sub SymbolResize(strXYSize As String) Dim strErrorMsg As String 400 strSymbolName = colSymbols.Item(lngCounter).GetProperty("Name") 500 Debug.Print "Symbol Name: " & strSymbolName & ", " & "Original Size: " & strSymbolSize & ", " & "New Size: " & strXYSize & ", " & "Symbol Type: " & strSymbolType 700 Next lngCounter 1100 myError: ------------------------- Thanks, MattS |
|
![]() |
FuseTalk Standard Edition v3.2 - © 1999-2009 FuseTalk Inc. All rights reserved.