- ベストアンサー
エクセル2007 マクロで図形表示・非表示
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
≪非表示≫ ActiveSheet.Shapes("ABC").Visible = False ≪表示≫ ActiveSheet.Shapes("ABC").Visible = True
関連するQ&A
- エクセル マクロ 選択中の複数の図形名を表示するには？
エクセル マクロ 選択中の複数の図形名を表示するには？ お世話になります。 図形を選択（単一・複数の時あり）している状態で ボタンを押すと図形の名前がメッセージボックスに表示される といった事をしたいのですが、 最近マクロを始めたばかりでどういうコードを書けばいいのかわかりません 一応↓の様に 単一選択している図形の名前を出すまでは何とか自力で出来ましたが、 Sub 図形名の表示_Click() MsgBox (Selection.ShapeRange.Name) End Sub 複数選択した場合の出す方法がわかりません。 どのようにコードを書けばいいのかご教授ください。
- ベストアンサー
- その他MS Office製品
- excelで図形をマクロで消すのには
excelでマクロを使用して 条件に合わせて図形をコピーして 帳票に貼り付けています。 そこで、次の帳票を作ろうとしたときに 先ほどコピーした図形を削除したいのですが マクロで削除する方法はありませんでしょうか？ コピー～貼り付けなので毎回、名前が変わってしまうので 名称を指定して削除ができません。 なにかいい方法をお教えくださいませ。
- ベストアンサー
- オフィス系ソフト
- excelでマクロで図形をコピー、張り付ける
Ｅｘｃｅｌの画面で 挿入→図形で 作成した図形をマクロを使って コピーし、任意の箇所に張り付けたいのですが、図形が認識されないのか マクロが動作しません。どうしたらできるでしょうか？
- ベストアンサー
- Windows Vista
- マクロで２つの図形の内１つを透明にする記述
マクロで２つの図形の内１つを透明にするにはどう記述したらいいでしょうか。 それぞれの図形の名前のつけかたも教えてください。
- ベストアンサー
- Visual Basic
- windows7のマクロで図形に名前をつける
Ｗｉｎｄｏｗｓ７のＥＸＣＥＬマクロで図形に名前をつけるにはどうしたらいいですか？ ＸＰの時は、マウスでなぞるだけでマクロの記述に名前が記録されましたけど・・・
- ベストアンサー
- Windows Vista
- [エクセル2007] 図形を非表示にするマクロ
図形「図A」を非表示にするマクロがあります。 Sub 図削除() ActiveSheet.Shapes("図A").Visible = False End Sub これを図A、図B、図C・・・・・・と増やしていく場合はどうすれば良いのでしょうか？ Sub 図削除() ActiveSheet.Shapes("図A").Visible = False ActiveSheet.Shapes("図B").Visible = False ActiveSheet.Shapes("図C").Visible = False ・ ・ ・ End Sub とするしかないのでしょうか？
- 締切済み
- オフィス系ソフト
- エクセルのマクロについて
初めて質問させていただきます。 ＷｉｎｄｏｗｓＸＰを使っています。 エクセルで、ある図形をクリックすると、特定の図形に（クリックした図形も含めて）色がつく。ということをやりたいのですが、どうすればいいのでしょう？マクロを使えばいいのでしょうか？マクロは使ったことがないのでいまいちわかりません。どなたか教えてくださいm(__)m
- ベストアンサー
- オフィス系ソフト
- Excelマクロ ○印図形を消したい
○印図形を消したい Private Sub CommandButton2_Click() ' ○印をつける Dim a As Range If TypeName(Selection) = "Range" Then Set a = Selection ActiveSheet.Shapes.AddShape(msoShapeOval, a.Left, _ a.Top, a.Width, a.Height).Select Selection.ShapeRange.Fill.Visible = msoFalse a.Select End If End Sub Private Sub CommandButton3_Click() 上記のマクロでつけた○印を下記のようなマクロで（指定の範囲のセルにつけた○印を全て）消したいのですが、上記のマクロは問題なく動作するのですが、下記のマクロがうまく動きません、どこをどのように変更したらよいのでしょうか？、どなたかご教示ください。 ' 指定したセル範囲にある図形を削除する() ' ○印の削除 指定セル範囲 = "U32:X41" With ActiveSheet Set セル範囲 = .Range(指定セル範囲) For Each 図形 In .Shapes If 図形.Type = msomsoPicture Then Set 共有セル範囲 = Intersect(Range(図形.TopLeftCell, _ 図形.BottomRightCell), セル範囲) If Not (共有セル範囲 Is Nothing) Then 図形.Delete End If End If Next End With End Sub
- ベストアンサー
- その他MS Office製品
- 2007エクセル：図形が表示されません。
2007エクセル：図形が表示されません。 挿入→図形から 矢印や｛｝などを選んで表に挿入しているのですが、なぜか 印刷プレビューで見ても表示されません。 色がダメなのかと思い変えてみても表示されません。 どうぞ教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロで図形を移動したい。
マクロまったくの素人です。 エクセル2007を使用しています。 次のことで悩んでいます。ご教示ください。 シート１にあるボタンを押すと、 1.シート２にある図形（セルＡ１）を同じシート２のＡ１０のセルに移動。 2.シート２のプリントエリアで指定してある範囲を印刷。 3.Ａ１０にある図形がＡ１に戻る。 4.画面表示がシート１に戻る。 以上のような動作を一連としてボタンのワンクリックでしたいのです。 マクロは、全くの無知に近いです。どなたかご教示くだされば幸いです。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。 助かりました。