エクセルの学校：全文検索：Hyper Estraier：オートシェイプ

Results of 1 - 1 of about 1039 for オートシェイプ (0.001 sec.)

[[20070519134745]]: #score: 6703; @digest: aedf6d414eb36dd6f1e6e38133e8d52f; @id: 30852; @mdate: 2008-02-20T23:51:51Z; @size: 1207; @type: text/plain; #keywords: schemecolor (8887), プ楕 (7748), プ白 (7323), プ○ (6024), 白丸 (5894), forecolor (5229), fill (3005), 楕円 (2964), 回選 (2836), 回ク (2144), シェ (1806), トシ (1743), ェイ (1700), イプ (1260), 一回 (919), ら色 (772), marbin (728), オー (659), 件分 (657), 分岐 (435), リッ (424), クリ (420), elseif (405), 一緒 (354), 選択 (286), 色が (284), 白に (277), 出来 (265), 変わ (258), サン (218), 来ま (206), に変 (204); 『オートシェイプ○を選択したら色が変わる』（にい）
オートシェイプ白丸を選択したら赤に変わり、もう一回選択したら白に変わるとかって出来ますか? ---- 選択とはクリックのことですか? VBAでそのとき既に着いている色によって条件分岐することになると思います。 (MARBIN) ---- クリックの事です。一回クリックしたら色が変わる。 ---- サンプルです。 オートシェイプに登録してください。 Sub iro() With ActiveSheet.Shapes(Application.Caller) If .Fill.ForeColor.SchemeColor = 9 Then .Fill.ForeColor.SchemeColor = 10 ElseIf .Fill.ForeColor.SchemeColor = 10 Then .Fill.ForeColor.SchemeColor = 9 End If End With End Sub (MARBIN) ---- 出来ました。ありがとうございます。かなり助かりました!! ---- オートシェイプ楕円の線の色をクリックしたら色が変わるってやりたいです。どうやったら出来ますか?（かず） ---- 楕円でも一緒ですよ。ただし、MARBINさんのコードであれば、あらかじめ赤または白に設定しておかなければ何も起きません。 > ElseIf .Fill.ForeColor.SchemeColor = 10 Then を Else に変更してみたら、動くのでは? (ROUGE) ---- 失礼しました。線ですね。 Fill を Line に変更されたらどうでしょうか。 (ROUGE) ---- 出来ました。ありがとうございます。（かず） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200705/20070519134745.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ