Прокомментируйте пож работу программы?

[EugeneDanceR]

Кто-нибудь может прокомментировать все команды в этой программе для вставки картинки в MS Office?Просто я вообще впервые вижу эту прогу,я программирую на С++,но в этом нужно разобраться,так что,всем слабо?
___________________________________ _____________________________
___________________________________ _____________________________

Sub Kartinki()
Dim oPicture As InlineShape
Dim sFileName As String, sFileNameShort As String
'********************************** *********************************** **************
With Application.FileDialog(msoFileDialo gOpen)
.AllowMultiSelect = False
.ButtonName = "Vstavit`": .InitialView = msoFileDialogViewPreview: .Title = "Vera,vyberi kartinku"
.Filters.Clear: .Filters.Add "Tol`ko kartinki (JPG,JPEG,bmp)", "*.jpg;*.jpeg;*.bmp": .Filters.Add "All Files", "*.*"
If .Show Then sFileName = .SelectedItems(1) Else Exit Sub
End With
sFileNameShort = CreateObject("Scripting.FileSystemO bject").GetFile(sFileName).ShortNam e
sFileNameShort = Mid(sFileNameShort, 1, InStrRev(sFileNameShort, ".") - 1)
Set oPicture = ActiveDocument.InlineShapes.AddPict ure(sFileName, False, True, Selection.Range)
oPicture.Select: Selection.InsertCaption "Risunok", " " & sFileNameShort
End Sub

[viter.alex]

А оформить код тегами [CODE][/CODE] слабо?

Sub Kartinki()
  'Переменная для хранения картинки
  Dim oPicture As InlineShape 
  'Имя файла и короткое имя файла (видимо без расширения)
  Dim sFileName As String, sFileNameShort As String 
  '********************************** *********************************** **************
  'Диалог открытия файла, хотя лучше вместо msoFileDialogOpen использовать msoFileDialogFilePicker
  With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False 'Запрет выбора нескольких файлов
    'Название кнопки, завершающей выбор; вид окна (предварительный просмотр), заголовок окна
    .ButtonName = "Vstavit`": .InitialView = msoFileDialogViewPreview: .Title = "Vera,vyberi kartinku"
    'Расширения файлов
    .Filters.Clear: .Filters.Add "Tol`ko kartinki (JPG,JPEG,bmp)", "*.jpg;*.jpeg;*.bmp": .Filters.Add "All Files", "*.*"
    'Отображение окна диалого. Если он завершился положительно, то запоминаем выбранный файл, иначе - выход из процедуры
    If .Show Then sFileName = .SelectedItems(1) Else Exit Sub
  End With
  'Получаем имя файла без расширения. С помощью Scripting.FileSystemObject выделяем из пути только имя файла, _
  а затем отсекаем расширение
  sFileNameShort = CreateObject("Scripting.FileSystemObject").GetFile(sFileName).ShortName
  sFileNameShort = Mid(sFileNameShort, 1, InStrRev(sFileNameShort, ".") - 1)
  'В активный документ в местоположение курсора добавляем картинку
  Set oPicture = ActiveDocument.InlineShapes.AddPicture(sFileName, False, True, Selection.Range)
  'Выбираем картинку и вставляем для нее подпись.
  oPicture.Select: Selection.InsertCaption "Risunok", " " & sFileNameShort
End Sub

Вместо

  sFileNameShort = CreateObject("Scripting.FileSystemObject").GetFile(sFileName).ShortName

для выделения из пути только имени файла можно воспользоваться таким выражением:

sFileNameShort = Mid(sFileName, InStrRev(sFileName, "\") + 1)

[Aent]

Вместо
Код:
sFileNameShort = CreateObject("Scripting.FileSystemO bject").GetFile(sFileName).ShortNam e

для выделения из пути только имени файла можно воспользоваться таким выражением:
Код:
sFileNameShort = Mid(sFileName, InStrRev(sFileName, "\") + 1)

Только надо учитывать что это не эквивалентные конструкции в случае использования длинных имён. Первый вариант формирует именно короткое имя, соответствующее длинному. И в общем случае .ShortName <> .Name

[viter.alex]

Понял, я неправильно трактовал функцию ShortName. Она возвращает DOS-овское имя. Никогда этим не пользовался. Интересно, зачем это нужно в Word?

[Aent]

Только Shortname не функция а свойство (Property), применимое к объектам File или Folder.
Зачем автору макроса понадобились короткие имена ? Могу высказать гипотезу, что файлы лежат на сервере, а Vera
"vyberaet kartinku" по напечатаному каталогу и затем выбирает файл, действуя в операционной системе не поддерживающей длинных
имён.