[[20181008173826]]　『図形の表示非表示』（出張日和）　ページの最後に飛ぶ

『図形の表示非表示』（出張日和）

以前、
[[20181004210059]]ここで質問させてもらいました。

また新しく質問を作成した方が良いかなと思いまして。

図形の表示、非表示についてなんですが、

セルの有、無に○を付けるんですが、
最初は非表示で、
一回目クリック=○がクリックした場所(今回は有)に表示、
二回目クリック=○が無に表示、
三回目クリック=○非表示

ということは可能でしょうか。
使わない欄の図形は非表示にしたいのです。

お願いばかりで申し訳ないですが、よろしくお願いいたします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

回答がつくまでのつなぎで
よろしければ教えてください

そもそもですが、手書きでもないのに、○で囲む必要があるのですか。
有と無という文字の表示を切り替えるだけではだめなのでしょうか。
そうすれば条件付き書式だけでできそうです。

報告書作成の手間を軽減したいことが目的のようですが
様式そのものを改善するという考えはないのでしょうか。

（マナ） 2018/10/08(月) 18:05

ごもっともな指摘ありがとうございます。
申請書の様式は会社の規則で定まっているため、改善は難しいです。

一つ教えてください。

前回の質問でも触れましたが、以前はこのマクロを使用していました。

Sub Sample()

    Dim shp As Shape
    With ActiveSheet.Shapes(Application.Caller)
        If .AlternativeText Like "*: *" Or .AlternativeText = "" Then
            Set shp = .Duplicate
            shp.Left = .Left
            shp.Top = .Top
            shp.AlternativeText = .Name
            .Visible = False
            If .Name = shp.Name Then
                shp.Name = .Name & "_" & ActiveSheet.Shapes.Count
            End If
            shp.DrawingObject.Text = ""
            shp.Line.Visible = False
            shp.Fill.Visible = False
        Else
            ActiveSheet.Shapes(.AlternativeText).Visible = True
            .Delete
        End If
    End With
    Set shp = Nothing
 End Sub

ただ、コードを消してしまい、新しく書いた(ネットに繋げられないパソコンのため、手作業です)のですが、エラーが出ます。
オブジェクトは、このプロパティまたはメソッドをサポートしていません、というものです。
調べると、スペルミスらしいのですが、調べても見つかりません。
また、図形への登録も良く分からないままやっていまして。
以前どうやって動かしていたのか思い出せない状態です。
恐らく偶然動いたのだの思いますが･･･

やり方を教えていただければありがたいです。
（出張日和） 2018/10/08(月) 18:47

すみません、見つけました。
Callerのaがeになってました(笑)
登録もできたので、申請書はこれでやろうと思います。申し訳ないですがこれで打ち切らせてもらいます。
ありがとうございました。
（出張日和） 2018/10/08(月) 19:05

コメント返信：

[ 一覧(最新更新順) ]

[[20181008173826]] 『図形の表示非表示』（出張日和） ページの最後に飛ぶ

[[20181008173826]]　『図形の表示非表示』（出張日和）　ページの最後に飛ぶ