![]() |
Telelogic System Architect (steve huntington) | ![]() |
Topic Title: How to Rename a symbol or definition in VBA? Topic Summary: Created On: 5-Oct-2007 09:58 Status: Read Only |
Linear : Threading : Single : Branch |
![]() |
![]()
|
![]() Answer: The name is manipulated via the 'Field' interface. The following achieved the renaming in the previous example. The DEFNFLD_ definitions were exposed in the VBA editor without needing importing. 'rename the definition Debug.Print def.GetField(DEFNFLD_SANAME) def.SetField DEFNFLD_SANAME, "arthur" Debug.Print def.name, def.GetProperty("Name") Debug.Print def.GetField(DEFNFLD_SANAME) def.Save Set def = Nothing 'rename the symbol Debug.Print sym.GetField(SYMFLD_NAME) sym.SetField SYMFLD_NAME, "arthur" Debug.Print sym.name, sym.GetProperty("Name") Debug.Print sym.GetField(SYMFLD_NAME) Set sym = Nothing diag.Save diag.Hide diag.Show Set diag = Nothing | |
![]() |
|
Can someone suggest how to rename a symbol and its definition in a VBA macro? Dim diag As Diagram |
|
![]() |
|
![]() |
|
The name is manipulated via the 'Field' interface. The following achieved the renaming in the previous example. The DEFNFLD_ definitions were exposed in the VBA editor without needing importing.
'rename the definition Debug.Print def.GetField(DEFNFLD_SANAME) def.SetField DEFNFLD_SANAME, "arthur" Debug.Print def.name, def.GetProperty("Name") Debug.Print def.GetField(DEFNFLD_SANAME) def.Save Set def = Nothing 'rename the symbol Debug.Print sym.GetField(SYMFLD_NAME) sym.SetField SYMFLD_NAME, "arthur" Debug.Print sym.name, sym.GetProperty("Name") Debug.Print sym.GetField(SYMFLD_NAME) Set sym = Nothing diag.Save diag.Hide diag.Show Set diag = Nothing |
|
![]() |
FuseTalk Standard Edition v3.2 - © 1999-2009 FuseTalk Inc. All rights reserved.