人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルの質問です。
エクセルのSheet1に複数の画像があります。
この画像の名前がpicture1?picture1999の場合は削除し、それ以外の画像は削除しない。
ということはマクロでできるのでしょうか?

ご教示お願い致します。

●質問者: kuronekodaifuku
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● a-kuma3

こんな感じでしょうか。

Sub picture2000未満を消す()

 For Each Shape In ActiveSheet.Shapes
 If Left(Shape.Name, 7) = "picture" Then
 seq = Val(Mid(Shape.Name, 8, Len(Shape.Name) - 7))
 If seq >= 1 and seq <= 1999 Then
 Shape.Delete
 End If
 End If
 Next

End Sub

自動で振られる名前は "Picture" と頭が大文字になりますが、質問には "picture" となっているので、そのようにしてます。

関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ