Results of 1 - 1 of about 1215 for （Mook）
(0.001 sec.)
- [[20150406000349]]
- #score: 9211
- @digest: dbfbf828c9a52b568efb2a8d9e8a1602
- @id: 67699
- @mdate: 2015-04-06T11:38:54Z
- @size: 1645
- @type: text/plain
- #keywords: drawcube (15241), msoshapecube (7323), ロ図 (6721), 、辺 (6198), 方体 (4605), 立方 (2810), クボ (2753), ンモ (2355), checkbox1 (2313), transparency (2138), デザ (1560), ザイ (1441), シェ (1354), addshape (1324), ェイ (1275), 交互 (1194), checkbox (1132), msotrue (1105), 度実 (1083), forecolor (1045), 制御 (1035), チェ (974), 辺の (946), イプ (945), ェッ (882), トシ (871), モー (833), ボッ (744), rgb (705), ック (681), 図形 (658), の制 (653)
- 『マクロ 図形 チェックボックスを用いた色の変更』（のんたん）
マクロ初心者です。 チェックボックスのチェックでオートシェイプ図形の色を変えたいです。 イメージとしては立方体をオートシェイプで作成し、辺を意味するチェックボックス にチェックすると、対象の辺の色が変わる様な感じです。 マクロの知識がまったく無いのですが、マクロでないと対応できないですよね? 教えて頂けると助かります。 宜しくお願いいたします。 ＜ 使用 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... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201504/20150406000349.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97019 documents and 608145 words.
訪問者：