
No.2ベストアンサー
- 回答日時:
こんにちは。
enunokokoro さんが、ヒントとして与えていだいていたのですが、具体的に、もう一度、ここで展開します。
>オートシェイプでなく別の方法で対応してみては。
コントロールツールのラベルが最適かと思いました。
1. オートシェイプ(四角)→ラベル(大きさは自由)
2. クリックして、塗りつぶしの色が白→黒→白というように変わる。
コントロールツールバーを出して、ラベル(Aという文字をクリック)を引き出し、適当な大きさに貼り付けます。青い三角定規がオンになっているのを確かめて、ダブルクリックします。
そうすると、画面が変わります。
プロシージャ名のラベルの名前に中身のコードも、合わせてくださいね。
Label2 だったら、Label1.BackColor →Label2.BackColor (Label2)になります。
Private Sub Label1_Click()
If Label1.BackColor = wdColorWhite Then
Label1.BackColor = wdColorBlack
Else
Label1.BackColor = wdColorWhite
End If
End Sub
このままですと、ラベルの中に文字が残っていますので、ラベルが選択された状態でしたら、左下の表のプロパティの Caption というところに、Label1 と入っていますから、それを削除してください。
もちろん、ここCaptionに文字を入れれば、ラベルの中に文字も反映されます。表のドキュメントからでも、コントロールツールバーの青い三角定規がオンされた状態でしたら、
右クリック-ラベル・オブジェクトの編集(O) で、中身を書き換えることも出来ます。
最初、なれないとちょっと面倒かもしれませんが、コツを掴めばそんなに難しくありません。試してみてください。
No.1
- 回答日時:
マクロについて勉強不足で的確な回答は出来ませんが、
オートシェイプをExcelのようにボタン登録は出来ない
と思いますよ。
オートシェイプでなく別の方法で対応してみては。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=2395821
こちら↑で幾つかの方法が提示されていますから、好み
のものを使ってみてはいかがでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードかエクセルで、KOKU...
-
エクセル宛名ラベルが重複する
-
ラベルの差込印刷で2ページ目以...
-
インデックスに印刷する方法
-
ワードで宛名ラベルのフォント...
-
DVDのタイトルを変更したい
-
一点一葉とはどんな意味ですか?
-
Access レポート作成での四角い...
-
CDラベル剥がれて透明CDに...
-
OAラベルとは?
-
wordの差込印刷(ラベル作成)...
-
筆王
-
Excel VBAのフォーム_ラベルの...
-
エレコムの宛名ラベル全部の氏...
-
ワード差し込み印刷:作成した...
-
名札差し込みで「すべてのラベ...
-
アクセス レポートの宛名ラベ...
-
ACCESSでラベルの余白と高さ、...
-
ピボットテーブルのΣ値のタイト...
-
Excelの列と幅のミリ単位調整
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードかエクセルで、KOKU...
-
一点一葉とはどんな意味ですか?
-
エクセル宛名ラベルが重複する
-
ラベルの差込印刷で2ページ目以...
-
インデックスに印刷する方法
-
ゆうパックの宛名ラベルの書き方
-
筆王
-
エクセルでマイタックラベルへ...
-
《Excel2000》散布図のデータラ...
-
ワード差し込み印刷:作成した...
-
DVDのタイトルを変更したい
-
CDやDVDの表面へのラベル...
-
Wordで作った宛名ラベルを印刷...
-
宛名ラベル 2枚目以降が表示、...
-
フラットファイルの背表紙部分...
-
wordでラベル差込印刷時に右端...
-
VBA初心者です。コンパイルエラ...
-
名札差し込みで「すべてのラベ...
-
ピボットテーブルのΣ値のタイト...
-
ラベル屋さんでひとつひとつの...
おすすめ情報