'Callback for getLabel
Sub CallBack_Recent_File_Name(control As IRibbonControl, ByRef returnedVal)
Dim Recent_File_Name As String
Dim Recent_File_Path_Name As String
Dim slash_place As Integer
Recent_File_Path_Name = GetSetting(App_Name, Sect_1, Right(control.ID, Len(control.ID) - Len("Group_")), "")
slash_place = InStrRev(Recent_File_Path_Name, "\")
Recent_File_Name = Right(Recent_File_Path_Name, Len(Recent_File_Path_Name) - slash_place)
returnedVal = Recent_File_Name
End Sub
'Callback for getLabel
Sub CallBack_Recent_Label(control As IRibbonControl, ByRef returnedVal)
Dim Recent_File_Name
Recent_File_Name = GetSetting(App_Name, Sect_1, Right(control.ID, Len(control.ID) - Len(Recent_File_Base_Text)), "")
returnedVal = Recent_File_Name
End Sub
'Callback for getVisible
Sub CallBack_Recent_Visible(control As IRibbonControl, ByRef returnedVal)
Dim Recent_File_Name
Recent_File_Name = GetSetting(App_Name, Sect_1, Right(control.ID, Len(control.ID) - Len(Recent_File_Base_Text)), "")
If Recent_File_Name = "" Then
returnedVal = False
Else
returnedVal = True
End If
End Sub