Bonjour,

est-ce que quelqu'un peut me dire si les callbacks fonctionnent sous Project 2010 ?

J'essaye de charger une image personnalisée comme icone dans un ruban personnalisé. Et ça ne fonctionne pas. Le callback n'est pas appelé

Pour info, voici le code que j'utilise

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub AddCustomUI()
  Dim customUiXml As String
 
  customUiXml = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" _
    & "<mso:ribbon><mso:tabs><mso:tab id=""myTab"" label=""Kit CP/DP"">" _
    & "<mso:group id=""group1"">" _
    & "<mso:button id=""button1"" label=""Kit CP/DP"" size=""large"" " _
    & "image=""ImageUmanis"" getImage=""GetButtonImage"" onAction=""Affiche_MenuGeneral""/>" _
    & "</mso:group></mso:tab></mso:tabs></mso:ribbon></mso:customUI>"
 
  ActiveProject.SetCustomUI (customUiXml)
End Sub
et voici le code du callback
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Public Sub GetButtonImage(ByVal control As IRibbonControl, ByRef image)
Set image = stdole.LoadPicture(ActiveProject.Path & "\Umanis Ico 32x32.PNG")
End Sub
Par contre le code suivant marche, quand j'utilise une icone du catalogue

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub AddCustomUI()
  Dim customUiXml As String
 
  customUiXml = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" _
    & "<mso:ribbon><mso:tabs><mso:tab id=""myTab"" label=""Kit CP/DP"">" _
    & "<mso:group id=""group1"">" _
    & "<mso:button id=""button1"" label=""Kit CP/DP"" size=""large"" " _
    & "imageMso=""BlogHomePage""  onAction=""Affiche_MenuGeneral""/>" _
    & "</mso:group></mso:tab></mso:tabs></mso:ribbon></mso:customUI>"
 
 
  ActiveProject.SetCustomUI (customUiXml)
End Sub