[[20150406000349]]　『マクロ　図形　チェックボックスを用いた色の変更』（のんたん）　ページの最後に飛ぶ

『マクロ　図形　チェックボックスを用いた色の変更』（のんたん）

マクロ初心者です。

チェックボックスのチェックでオートシェイプ図形の色を変えたいです。

イメージとしては立方体をオートシェイプで作成し、辺を意味するチェックボックス
にチェックすると、対象の辺の色が変わる様な感じです。

マクロの知識がまったく無いのですが、マクロでないと対応できないですよね？
教えて頂けると助かります。　

宜しくお願いいたします。

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

 ↓は参考になりますか？

http://www.excel-vba.net/excel-figure-001.html

 ※CheckBoxでの制御の理解はシェイプの制御を理解してから
 でいいと思います。
（カリーニン） 2015/04/06(月) 00:32

 もうあきらめてしまったでしょうか。
 一応の簡単な例まで。

 どちらもシートモジュールにおいて実行してください。
 DrawCube は標準モジュールでも良いですが、シートを間違えないために念のため。

 最初に一度実行。
 Sub DrawCube() 
    ActiveSheet.Shapes.AddShape(msoShapeCube, 145.5, 57.75, 183.75, 178.5).Name = "Cube" 
 End Sub

 開発からActiveX のチェックボックスをシートに作成し、
 デザインモードをオンにしダブルクリック。

 すると下記のような名前のコードが出来るので、その中に With ～ End With の部分を
 コピーして、デザインモードをオフに戻します。

 Private Sub CheckBox1_Click() 
    With ActiveSheet.Shapes.Range(Array("Cube")).Line 
        .Visible = msoTrue 
        .ForeColor.RGB = IIf(CheckBox1.Value = True, RGB(255, 0, 0), RGB(0, 255, 0)) 
        .Transparency = 0 
    End With 
 End Sub

 後は普通にチェックボックスをクリックで、辺の色が交互に変わると思います。
 色は RGB の中を好きに指定してください。
（Mook） 2015/04/06(月) 20:38

コメント返信：

[ 一覧(最新更新順) ]

[[20150406000349]] 『マクロ 図形 チェックボックスを用いた色の変更』（のんたん） ページの最後に飛ぶ

[[20150406000349]]　『マクロ　図形　チェックボックスを用いた色の変更』（のんたん）　ページの最後に飛ぶ