エクセルの学校：全文検索：Hyper Estraier：オートシェイプ

Results of 1 - 1 of about 1039 for オートシェイプ (0.001 sec.)

[[20140521084013]]: #score: 6703; @digest: 22f4a350a129a8466252b9f9581aac15; @id: 65196; @mdate: 2014-05-21T05:08:13Z; @size: 1635; @type: text/plain; #keywords: 楕円 (16305), イジ (7276), 望( (5440), 想) (5112), shname (4257), 円1 (4243), ・勝 (4200), の楕 (3910), 円9 (3461), 正if (3453), 示() (3016), 一カ (2586), シェ (2258), トシ (1743), 円4 (1727), ェイ (1700), 個作 (1626), 円2 (1612), 円3 (1479), 部消 (1368), カ所 (1317), caller (1180), ハイ (1090), もオ (1085), 二度 (1085), 円を (995), イプ (945), visible (904), ェー (883), 択の (799), み表 (760), （ハ (727); 『オートシェイプについて』（ハイジ）
オートシェイプで楕円を9個作りました。任意の楕円をクリックするとその楕円は残してその他は非表示にしたいと考えています。やり方を教えていただけないでしょうか、よろしくお願いします。＜使用 Excel:Excel2003、使用 OS:WindowsXP ＞ ---- 一回非表示にしてしまうと、二度と他のものは選択できなくなるのは構わないのでしょうか。そのあたりはおいておいて、下記のようなマクロを作成し、それを各シェープのマクロの登録で指定したらきるかと思います。 Sub 選択のみ表示() Dim sh As Shape For Each sh In ActiveSheet.Shapes If sh.Name <> Application.Caller Then sh.Visible = False Next End Sub （Mook） 2014/05/21(水) 10:13 ---- Mook様、お世話になります。このコードですと全部消えてしまうのですが・・・勝手な希望(理想)なのですが楕円1〜楕円9までの範囲でクリックした一カ所だけ残りそれ以外は残したいのです。理由は他にもオートシェイブがあるからです。（ハイジ） 2014/05/21(水) 11:08 ---- 他にもオートシェイプがあるとなると区別する必要がありますね。面倒ですけれど、名前で範囲を指定するかでしょうか。楕円がほかに無ければ「楕円」を含むでも良いでしょうけれど、明示的に指定しておいた方が後の影響は無いように思います。 Sub 選択のみ表示() Dim shName For Each shName In Array("楕円 1", "楕円 2", "楕円 3", "楕円 4") '// 実際にあわせて修正 If shName <> Application.Caller Then ActiveSheet.Shapes(shName).Visible = False Next End Sub （Mook） 2014/05/21(水) 11:50 ---- Mook様、お世話になります。ばっちりです。希望通りに動きました。本当にお世話になりました、ありがとう御座いました。（ハイジ） 2014/05/21(水) 14:08 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201405/20140521084013.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ