Выделить макросом несколько рисунков

В файле Word имеется несколько рисунков в формате обтекание "перед текстом". Нужно выделить совместно рисунки с определенными номерами (например, 1, 3, 4, 7) и сдвинуть их.
Данный макрос выделяет только один рисунок с номером 1:

Sub Pict1()
    Dim selPic As Object
    'В переменную selPic записываем все рисунки документа, находящиеся не в тексте.
    Set selPic = ActiveDocument.Shapes
    'Выделяется рисунок с номером 1.
    selPic(1).Select
    'Рисунки нужно сдвинуть.
    Selection.ShapeRange.IncrementLeft 0.65
    Selection.ShapeRange.IncrementLeft 0.65
End Sub

Как выделить несколько рисунков с определенными номерами?
Их, вероятно, нужно включить в переменную selPic. Как это сделать?