[[20140422114630]]　『複数の画像を非表示にする場合の書き方』（事務員）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『複数の画像を非表示にする場合の書き方』（事務員）

きょう2度目の質問ですがよろしくお願いします。
Sub 図非表示()

  ActiveSheet.Shapes("図1").Visible = False
  ActiveSheet.Shapes("図2").Visible = False
  ActiveSheet.Shapes("図3").Visible = False
  ActiveSheet.Shapes("図4").Visible = False
  ActiveSheet.Shapes("図5").Visible = False
End Sub
複数の画像を非表示にするときはコレでよいのでしょうか？
もっと短くなるとうれしいのですが。

＜ 使用 Excel：Excel2003、使用 OS：WindowsXP ＞

---

 ActiveSheet.Shapes.Range(Array("円/楕円 1", "二等辺三角形 2", "スマイル 3")).Visible = False
 とか。
 BJ

---

BJさん
ありがとうございます。
.Range(Array　コレが足りずエラーになっていました。
これでスッキリスマートになりました。
（事務員） 2014/04/22(火) 14:45

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.