FaceId dans un popup

[NICOALBERT]

Bonjour le forum ,

Je cherche comment mettre une image faceId à chaque ".AddLigne" dans un popup mais je n'arrive à en incorporé.

Voici le code que j'utilise (peut le problème vient de la!!!)

Private Sub Label13_Click() 'Roulement
Position Label13.Left, 38
Set LN_MenuF = New LN_MenuFlottant
With LN_MenuF
.Handle = MeHwnd
.AddLigne 400, "Janvier"
.AddLigne 401, "Fevrier"
.AddLigne 402, "Mars"
.AddLigne 0, "0" ' met un séparateur
.AddLigne 403, "Avril"
.AddLigne 404, "Mai"
.AddLigne 405, "Juin..."
.AddLigne 0, "0" ' met un séparateur
.AddLigne 406, "Juillet..."
.AddLigne 407, "Aout..."
.AddLigne 408, "Septembre..."
.AddLigne 0, "0" ' met un séparateur
.AddLigne 409, "Octobre..."
.AddLigne 410, "Novembre..."
.AddLigne 411, "Decembre..."

.VoirMenuF True 'affiche le menu
End With
End Sub

Merci d'avance.

 

[Lone-wolf]

Re : FaceId dans un popup

Bonjour NICOALBERT,

si 400 à 411 sont les numéros des FaceID's

With LN_MenuF
.Handle = MeHwnd
.AddLigne "Janvier"
.FaceId = 400
.AddLigne  "Fevrier"
.FaceId = 401
.AddLigne  "Mars"
.FaceId = 402
End With

 

[Lone-wolf]

Re : FaceId dans un popup

Re

Un exemple de barre d'outils Compléments personnalisée

Option Explicit
Public u As Byte
Public CalcTaskID
Public CharmapTaskID
Public Const MyCommandBarName As String = "Carnet d'adresses ..."

Sub DeleteMyCommandBar()
' Efface la barre d'outils MyCommandBarName
    On Error Resume Next
    Application.CommandBars(MyCommandBarName).Delete
    On Error GoTo 0
End Sub

Sub CreateMyCommandBar()
' Création de la barre d'outils personnalisée MyCommandBarName
    Dim cb As CommandBar, cbb As CommandBarButton
    Application.ScreenUpdating = False
    DeleteMyCommandBar    ' au cas où celle-ci existe déjà
    Set cb = Application.CommandBars.Add(MyCommandBarName, msoBarFloating, False, True)
    AddMenuToCommandBar cb, True
End Sub

Private Sub AddMenuToCommandBar(cb As CommandBar, blnBeginGroup As Boolean)
    Dim cbb As CommandBarButton
    If cb Is Nothing Then Exit Sub
    With cb
        ' Ajout d'un item au menu
        Set cbb = cb.Controls.Add(msoControlButton, , , , True)
        With cbb
            .BeginGroup = True
            .Caption = "Rechercher"
            .OnAction = "Inscriptions"
            .TooltipText = "Rechercher un contact ..."
            .Style = msoButtonIconAndCaption
            .FaceId = 25
        End With
        ' Ajout d'un item au menu
        Set cbb = cb.Controls.Add(msoControlButton, , , , True)
        With cbb
            .BeginGroup = True
            .Caption = "Messagerie"
            .OnAction = "Messages"
            .TooltipText = "Envoyer des messages avec pièces jointes ..."
            .Style = msoButtonIconAndCaption
            .FaceId = 1978
            End With
            ' Ajout d'un item au menu
        Set cbb = cb.Controls.Add(msoControlButton, , , , True)
        With cbb
            .BeginGroup = True
            .Caption = "Tâches"
            .OnAction = "Taches"
            .TooltipText = "Effectuer des tâches avec Outlook ..."
            .Style = msoButtonIconAndCaption
            .FaceId = 247
            End With
            ' Ajout d'un item au menu
        Set cbb = cb.Controls.Add(msoControlButton, , , , True)
        With cbb
            .BeginGroup = True
            .Caption = "Réunions"
            .OnAction = "Reunions"
            .TooltipText = "Organiser vos réunions ..."
            .Style = msoButtonIconAndCaption
            .FaceId = 5434
            End With
                      ' Ajout d'un item au menu
        Set cbb = cb.Controls.Add(msoControlButton, , , , True)
        With cbb
            .BeginGroup = True
            .Caption = "Notes"
            .OnAction = "Notes"
            .TooltipText = "Créer une nouvelle note ..."
            .Style = msoButtonIconAndCaption
            .FaceId = 259
            End With
            ' Ajout d'un item au menu
        Set cbb = cb.Controls.Add(msoControlButton, , , , True)
        With cbb
            .BeginGroup = True
            .Caption = "Journal"
            .OnAction = "Journal"
            .TooltipText = "Rechercher un contact ..."
            .Style = msoButtonIconAndCaption
            .FaceId = 195
        End With
            ' Ajout d'un item au menu
        Set cbb = cb.Controls.Add(msoControlButton, , , , True)
        With cbb
            .BeginGroup = True
            .Caption = "Enregistrer"
            .OnAction = "Enregistrer"
            .TooltipText = "Enregistrer les contacts ..."
            .Style = msoButtonIconAndCaption
            .FaceId = 3
            End With
        ' Rendre la barre visible
        .Visible = True
        ' Position dans le cas d'une barre flottante
        .Left = 300
        .Top = 100
    End With
    ' Initialiser les variables
    ' Set ca = Nothing
    Set cb = Nothing
    Set cbb = Nothing
    ' Set msocbbb = Nothing
    ' Set cbo = Nothing
End Sub

 

[NICOALBERT]

Re : FaceId dans un popup

Bonjour Lone-Wolf ,

Je te remercie du temps que tu a pris pour me répondre et m'aider.

Les chiffres 400 à 411 sont rattaché à du code un peu plus bas en voici un exemple :

Case 400 'Roulement [Janvier]
Sheets("APPLICATION").Range("L2").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True ' Roulement Janvier 2016

ce que je voudrait c'est ajouter un icone devant chaque mois.

 

[Lone-wolf]

Re : FaceId dans un popup

Re,

Regarde la macro personnalisée Compléments que j'ai mis et essaie d'adapter.