Excel VBAによるコピー作業について
お世話になります。初心者ですが、掲題の件、以下の通り質問させて下さい。
【環境】
★イメージ列の各セルにほぼ収まる状態でイメージが貼りつけられた以下のExcelシートがあります。
※項番:一部飛んでいます。
※イメージ:一部張り付いていないセルがあります。
=================================
項番 ｜イメージ
=================================
1 ｜ ABC
---------------------------------
2 ｜ Ａ＠
---------------------------------
3 ｜
---------------------------------
4 ｜ Ｂ＊
---------------------------------
7 ｜ CBA
---------------------------------
8 ｜ HHH
---------------------------------
10 ｜ YYY
---------------------------------
11 ｜
---------------------------------
12 ｜ AAA
---------------------------------
15 ｜ BBB
=================================
【VBAでの実行タスク】
★上記Excel（仮称:test.xlsx）ファイル上の全イメージを個別に名前を付けて保存したい。
（001.jpeg,002.jpeg,003.jpeg,004.jpeg,007.jpeg,008.jpeg,010.jpeg,011.jpeg,012.jpeg,015.jpeg）
※保存先はローカルの適当な場所（例:C:\Users\test\Pictures）
【作成中のVBA】
---
Sub 画像保存()
Dim sSavePath As String
Dim gdipRet As GDIPlusStatusConstants
Dim myStdPicture As StdPicture
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Application.Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
Set myStdPicture = CreatePictureFromClipboard
'jpg保存するときはこの下の行を有効に(100ところを0～100に変更でクオリティ設定できる)
gdipRet = SavePictureJpg(myStdPicture, "C:\Users\test\Pictures\001.jpg", 100)
End Sub
---
【質問内容】
上記VBAですと、実行することで、001.jpgしか保存されない状況です。
1回のVBA実行で、1,2,3,4,7,8,10,11,12,15全てのイメージを個別に名前を付けて保存するには、
（001.jpeg,002.jpeg,003.jpeg,004.jpeg,007.jpeg,008.jpeg,010.jpeg,011.jpeg,012.jpeg,015.jpeg）
VBAの記述をどう修正すべきかご教示頂きたく存じます。
何卒、宜しくお願い申し上げます。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_1_thumbnail_img_sm.png)
