Transférer une icone de la barre d'outils vers word.

[CISCO]

Bonjour à tous

J'ai besoin d'un petit coup de main... Et pour une fois, il ne s'agit pas de formule ou de VBA...

Pourriez vous me dire comment faire pour prendre des icônes dans Excel 2003 (par exemple celle de l'assistant graphique), dans la barre d'outils, ou où, pour ensuite les coller dans un document Word ?

On doit pouvoir faire avec des copies d'écran, en rognant ensuite l'image, ou avec la capture... mais n'y aurait-il pas un autre moyen ? Ou un fichier contenant ces icônes ?

Merci d'avance et bon W.E.

@ plus

 

[Staple1600]

Re : Transférer une icone de la barre d'outils vers word.

Bonjour Cisco


Essaies ce ficher: Showface de Jon Peltier


Tu affiches le faceID qui 'intéresse puis cliques-droit sur l'icone et tu récupères l'image désirée.

 

[CISCO]

Re : Transférer une icone de la barre d'outils vers word.

Bonjour

Et merci Staple1600. Toujours aussi rapide 🙂 !

Et comment on fait pour afficher le faceID ?

@ plus

 

[Staple1600]

Re : Transférer une icone de la barre d'outils vers word.

RE


Comme je n'ai pas Excel sur ce PC (qui n'est pas le mien)
(Je n'ai pas pu tester le fichier cité dans mon précédent message)

Alors je te propose d'essayer cet autre code VBA
(de J. Walkenbach si je ne m'abuse)

Sub ShowFaceIDs()
    Dim NewToolbar As CommandBar
    Dim TopPos As Long, LeftPos As Long
    Dim i As Long, NumPics As Long

'- - - - - Change These - - - - -
    Const ID_START As Long = 1
    Const ID_END As Long = 500
'- - - - - - - - - - - - - - - - - - - -

'   Delete existing TempFaceIds toolbar if it exists
    On Error Resume Next
    Application.CommandBars("TempFaceIds").Delete
    On Error GoTo 0

'   Clear the sheet
    ActiveSheet.Pictures.Delete
    Application.ScreenUpdating = False
    
'   Add an empty toolbar
    Set NewToolbar = Application.CommandBars.Add _
        (Name:="TempFaceIds")

'   Starting positions
    TopPos = 5
    LeftPos = 5
    NumPics = 0
    
    For i = ID_START To ID_END
        On Error Resume Next
        NewToolbar.Controls(1).Delete
        With NewToolbar.Controls.Add(Type:=msoControlButton)
            .FaceId = i
            .CopyFace
        End With
        On Error GoTo 0
        
        NumPics = NumPics + 1
        ActiveSheet.Paste
        With ActiveSheet.Shapes(NumPics)
            .Top = TopPos
            .Left = LeftPos
            .Name = "FaceID " & i
            .PictureFormat.TransparentBackground = True
            .PictureFormat.TransparencyColor = RGB(224, 223, 227)
        End With
        
'       Update top and left positions for the next one
        LeftPos = LeftPos + 16
        If NumPics Mod 40 = 0 Then
            TopPos = TopPos + 16
            LeftPos = 5
        End If
    Next i
    ActiveWindow.RangeSelection.Select
    Application.CommandBars("TempFaceIds").Delete
End Sub

 

[CISCO]

Re : Transférer une icone de la barre d'outils vers word.

Rebonjour

Merci Staple1600. C'est bon, ça marche.

Au plaisir, une autre fois, sur un autre fil.

Bonne fin de W.E.

@ plus