Symbol Linking Example

Public Sub SymbolLinking1()

dim mydocs as string

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

Set objMilestones2 = GetObject("c:\BigBrotherWatching.MLP", "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.MLP"

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

    .Refresh

    .Save

    .keepScheduleOpen

End With

With objMilestones1

'Change the date to test linking

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

    .Refresh

    .Save

    .keepScheduleOpen

End With

With objMilestones2

'Update linked symbols

    .UpdateLinkedSymbols

    .Refresh

    .Save

    .keepScheduleOpen

End With

End Sub

Learn more about symbol linking