シート上の指定画像を切り取る

'キーマクロより

'画像の切り取り
ActiveSheet.Shapes("Picture 1").Select
Selection.Cut
Range("C8").Select
'コマンドボタンの切り取り
ActiveSheet.Shapes("Button 2").Select
Selection.Cut
Range("E11").Select
'ドロップダウンボタン
ActiveSheet.Shapes("Drop Down 5").Select
Selection.Cut
Range("F18").Select
'リストボックス
ActiveSheet.Shapes("List Box 4").Select
Selection.Cut
Range("F6").Select
'ラベル
ActiveSheet.Shapes("Label 3").Select
Selection.Cut
Range("I13").Select

'　画像を切り取り例（picではダメ。大文字小文字判別する。）
For Each sh In ActiveSheet.Shapes
If Mid(sh.Name, 1, 3) = "Pic" Then
sh.Select
Selection.Cut
End If
Next