Public Sub SaveFaceIds(ByVal Path As String, ByVal FaceIdLow As Long, _
                       ByVal FaceIdHigh As Long)
 Dim il As MSComctlLib.ImageList
 Dim li As MSComctlLib.ListImages
 Dim cbr As Office.CommandBar
 Dim cbn As Office.CommandBarButton
 Dim i As Long
 
 Set il = New MSComctlLib.ImageList
 Set li = il.ListImages
 
 Set cbr = CommandBars.Add("Custom2", msoBarTop, , True)
 Set cbn = cbr.Controls.Add(msoControlButton, , , , True)

 On Error Resume Next
 For i = FaceIdLow To FaceIdHigh
    cbn.FaceId = i
    If Err =  0  Then li.Add , "k" & i, cbn.Picture
    Err.Clear
 Next i
 On Error GoTo  0 
 
 cbn.Delete
 Set cbn = Nothing
 cbr.Delete
 Set cbr = Nothing
 
 For i =  1  To li.Count
    SavePicture li(i).Picture, Path & li(i).Key & ".bmp"
 Next i
 
 Set li = Nothing
 Set il = Nothing
End Sub