[[20041111170924]]　『図形の色を変えたいのですが』（ちづ）　ページの最後に飛ぶ

『図形の色を変えたいのですが』（ちづ）

 オートシェープで描かれた四角をダブルクリックで黒←→白と
 変化させたいのですが、どうもうまくいきません。
（四角は20個くらいあり、チェックボックスの感覚で使いたいと
 思っています。）

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   ActiveSheet.Shapes("Rectangle 10").Select
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 8
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
 End Sub

 これだとどこかのセルをダブルックリックすれば
 指定した図形は黒く変わるのですが・・
 希望はアクティブになったオートシェープをダブルクリックし、
 イベント発生させたいのです。
 Worksheets のダブルクリックイベントは、図形の
 ダブルクリックにも使うことは可能なのでしょうか・・・。

 [[20040908153033]] 『クリックひとつでチェックしたいのですが』（あげ）

 soulmanさんのこれも見てみたのですが、すでにある図形には
 うまくアレンジできなくて・・・
 どなたかヒントでかまいませんので教えてください。

 >図形のダブルクリック　
 図形にダブルクリック・イベントはありません。
 クリック時に実行されるマクロを１つ登録できるだけです。

 イベントがあるのは、コントロールツールボックスのオブジェクトになります。

  (INA)

 INAさん、いつも素早いご回答をありがとうございます。

 やっぱりそんなイベントはないんですね・・・(^_^A;
 それぞれの図形にマクロを登録してワンクリックで色変換という
 作業に方向転換してみます。

 ありがとうございました。（ちづ）

コメント返信：

[ 一覧(最新更新順) ]

[[20041111170924]] 『図形の色を変えたいのですが』（ちづ） ページの最後に飛ぶ

[[20041111170924]]　『図形の色を変えたいのですが』（ちづ）　ページの最後に飛ぶ