Сохранить картинку в jpg или png

[Ципихович Эндрю]

здравствуйте, сохраняю картинку макросом в Ворде так:

Sub SaveInlineShape(SaveFileName As Variant, iShape As InlineShape)
    Dim vData() As Byte
    'открыть файл для записи
    Open SaveFileName For Binary Access Write As #1
    'записать данные
    vData = iShape.Range.EnhMetaFileBits
    Put #1, 1, vData
    'закрыть файл
    Close #1
End Sub

плохо, что винда, моя винда 10-ка в папке при установленном просмотре "Вид" не показывает картинки иконками как это есть у других форматах - jpg или png, как их сохранять в jpg или png? спасибо