[[20050226052923]]　『コメント表示非表示をマクロで』（Zappa）　ページの最後に飛ぶ

『コメント表示非表示をマクロで』（Zappa）

ファイル上に複数のコメントを入力記入しました。
これらを別々に表示非表示させたいのですが...

イメージとしては、ボタン画像を作成してそこにマクロを貼り付ける方法です。

ボタン１をクリック　 → コメント１が表示させる
ボタン１を再クリック → コメント１が非表示となる

ボタン２をクリック　 → コメント２が表示させる
ボタン２を再クリック → コメント２が非表示となる

上記についてアドバイスお願いします。

 A1 にコメントがある場合です。

 Sub Macro1()
 With Worksheets("Sheet1")
    If .Range("A1").Comment.Visible = False Then
        .Range("A1").Comment.Visible = True
    Else
        .Range("A1").Comment.Visible = False
    End If
 End With
 End Sub

 　　(INA)

(INA)さん、アドバイスありごとうございました。
ばっちりできました。...目的のものができて助かりました。

これに関連してテキストボックスをボタンを押すごとに
最前面、最後部に位置移動させるマクロも挫折しております。

この「ボタンを押すごと」...というIF分は、書けるんですが
テキストボックス等のオブジェクトの選択の書き方がわからず
テキストボックスがアクティブに選択できません。
アドバイスにより少しづつまねて学んでいる状態です。

イメージとしては、ボタン画像を作成してそこにマクロを貼り付ける方法です。

ボタン１をクリック　 → テキストボックス１が最前面に移動する

ボタン１を再クリック → テキストボックス１が最後部に移動する

よろしくお願いします。m(_ _)m

 何のテキストボックスですか？ Excelには３種類あります。
 目的も書いていないので、いまいち判断しにくいですが・・

  (INA)

説明不足ですいません！

１．A4版横の大きさの図面（JPG画像）をｼｰﾄに貼り付けます。

２．その図面（JPG画像）に空のマクロを登録して選択できないように固定します。

３．図面（JPG画像）の一部分（例えばポンプの絵）上に透明のボタン図を描きます。

４．そしてそのボタンにマクロ（テキストボックスの順序を変更するマクロ）を登録します。

５．テキストボックスには、ポンプの絵の説明文を入力します。

６．ボタンをクリックすればテキストボックスが最前面に順序移動して表示した状態になります。

７．再度ボタンをクリックすればテキストボックスが最背面に順序移動して図面（JPG画像）の後ろに隠れた状態で見えなくなります。

※ 図面（JPG画像）を真ん中に挟んで、ボタンをクリックするごとに、テキストボックスが最前面、最背面と順序移動して見え隠れするイメージです。

※ 図面（JPG画像）の中にある機器類の説明を個々にボタンとテキストボックスで表示、非表示させてプレゼン等で利用したい…という構想です。

四苦八苦しています。よろしくお願いします。

図面描画のテキストボックスです。

 表示・非表示を切り替えるなら
 Visbleプロパティを使った方が簡単ですよ。

  (INA)

Sub TextBoxVisible()

 If ActiveSheet.Shapes("Text Box 3").Visible = False Then
    ActiveSheet.Shapes("Text Box 3").Visible = True
 Else
    ActiveSheet.Shapes("Text Box 3").Visible = False
 End If
End Sub

これでできました。考えすぎでした。アドバイスありがとうございました。

 単なる補足ですが、
Boolean判定をひっくり返す時、「Not」を使って以下のように書く事もできます。

    ActiveSheet.Shapes("Text Box 3").Visible = Not ActiveSheet.Shapes("Text Box 3").Visible

 現在の状態が、表示なら非表示に、非表示なら表示にする意味。
 上記をもうちょっとスマートにするなら
    With ActiveSheet.Shapes("Text Box 3")
        .Visible = Not .Visible 
    End With
（ご近所PG）スペルミス修正……

コメント返信：

[ 一覧(最新更新順) ]

[[20050226052923]] 『コメント 表示 非表示をマクロで』（Zappa） ページの最後に飛ぶ

[[20050226052923]]　『コメント表示非表示をマクロで』（Zappa）　ページの最後に飛ぶ