Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1891 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【71293】オートシェイプの図を表示非表示に切り替える け 12/2/17(金) 22:13 質問[未読]
【71294】Re:オートシェイプの図を表示非表示に切り... UO3 12/2/17(金) 22:52 発言[未読]
【71296】Re:オートシェイプの図を表示非表示に切り... UO3 12/2/17(金) 22:57 発言[未読]
【71297】Re:オートシェイプの図を表示非表示に切り... UO3 12/2/17(金) 23:10 発言[未読]
【71301】Re:オートシェイプの図を表示非表示に切り... け 12/2/20(月) 10:12 お礼[未読]
【71293】オートシェイプの図を表示非表示に切り替...
質問  け E-MAIL  - 12/2/17(金) 22:13 -
引用なし
パスワード
   ご教授いただきたく質問いたします。

オートシェイプで黒丸をつくりました。
表示されている時に触ると非表示に、非表示の時に触ると表示
というふうに条件に合わせて切り替えたいのですが、以下の場合では条件に合わせてということができません。
何を加えたらできるようになりますか？

Sub LineOn2()

　　ActiveSheet.Shapes("円/楕円 1").Line.Visible = msoFalse
　　
　　ActiveSheet.Shapes("円/楕円 1").Line.Visible = msoTrue

　　
End Sub

よろしくお願いいたします。
【71294】Re:オートシェイプの図を表示非表示に切...
発言  UO3  - 12/2/17(金) 22:52 -
引用なし
パスワード
   ▼け さん：

こんばんは
表示、非表示がシェープ自体の表示、非表示であれば

>非表示の時に触ると

非表示の時には「触れません」が？
【71296】Re:オートシェイプの図を表示非表示に切...
発言  UO3  - 12/2/17(金) 22:57 -
引用なし
パスワード
   ▼け さん：

以下をシェープにマクロ登録すれば
枠線は、そのままで、クリックするたびに中身だけが黒->透明->黒->透明　となりますけどね。

Sub 表示非表示()
　　With ActiveSheet.Shapes(Application.Caller).Fill
　　　　.Visible = Not .Visible
　　End With
End Sub
【71297】Re:オートシェイプの図を表示非表示に切...
発言  UO3  - 12/2/17(金) 23:10 -
引用なし
パスワード
   ▼け さん：

連投しつれいさんです。
もしかしたら「黒丸」というのは、枠が黒で、中身は塗りつぶしの白？
であれば、シェープに以下のマクロを登録すれば、クリックのたびに
枠線が意表時になったり表示になったりしますが・・・

Sub 表示非表示()
　　With ActiveSheet.Shapes(Application.Caller).Line
　　　　.Visible = Not .Visible
　　End With
End Sub
【71301】Re:オートシェイプの図を表示非表示に切...
お礼  け E-MAIL  - 12/2/20(月) 10:12 -
引用なし
パスワード
   ▼UO3 さん：

ご回答いただきありがとうございます。
ある選択肢で　有・無　をこの黒丸で囲って選びたく
そこにマクロで表示非表示をしたかったので、3つ目にいただいた回答でそれが実現できました。

大変助かりました。
ありがとうございます！


>▼け さん：
>
>連投しつれいさんです。
>もしかしたら「黒丸」というのは、枠が黒で、中身は塗りつぶしの白？
>であれば、シェープに以下のマクロを登録すれば、クリックのたびに
>枠線が意表時になったり表示になったりしますが・・・
>
>Sub 表示非表示()
>　　With ActiveSheet.Shapes(Application.Caller).Line
>　　　　.Visible = Not .Visible
>　　End With
>End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1891 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free