Symbol Linking Example

Public Sub SymbolLinking1()

dim mydocs as string

Set objMilestones1 = GetObject("c:\DetailedLevel.MLG", "Milestones")

Set objMilestones2 = GetObject("c:\BigBrotherWatching.MLG", "Milestones")

With objMilestones1

  .Activate

'Name a symbol as a target

.setSymbolProperty 2, 1, "SymbolName", "Project1Start"

.Refresh

.Save

.keepScheduleOpen

End With

With objMilestones2

  .Activate

'Point to target symbol

.setSymbolProperty 1, 1, "LinkedToFileName", "c:\DetailedLevel.MLG"

.setSymbolProperty 1, 1, "LinkedToSymbolName", "Project1Start"

.Refresh

.Save

.keepScheduleOpen

End With

With objMilestones1

'Change the date to test linking

.setSymbolProperty 2, 1, "Date", "01/4/18"

.Refresh

.Save

.keepScheduleOpen

End With

With objMilestones2

'Update linked symbols

.UpdateLinkedSymbols

.Refresh

.Save

.keepScheduleOpen

End With

End Sub