[[20060215131620]]　『まる【○】をつくりその中に色をつける』（びーチャン）　ページの最後に飛ぶ

『まる【○】をつくりその中に色をつける』（びーチャン）

 お世話になります。
 "まる"（○）をつくりその中に色をつけることはできるでしょうか。
 できたら教えてください。

 こんにちは
オートシェイプで○を書いてオートシェイプの書式設定で
塗りつぶすことは出来ます。
　　　　　　　　　　　　　　　　　　　　　　　(oni)

 オートシェイプを使わないでやりたかったのですがそれでやります。
 ありがとうございました。

 オートシェイプを使わないなら普通に　●　を入力してフォントの色を変える？
 (sato)

こんにちは
オートシェイプの○をクリックしたら色が変わるとかできますか？

 こんなのがありました・・・
[[20070224111112]]『図形の背景色を反転させたい』（しみぽん）
 （ぽ）

 オートシェイプを使わないでダブルクリックで色を変える方法。
 任意のセルに●を入力して、そのセルをダブルクリックすると色が変化します。

 ＼Sheet1／を右クリックしてシートモジュールを表示し、そこへ下のコードをコピペ
 すれば準備OKデス。
 　　　　　　（弥太郎）
 '----------------------
 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim colr
    If Target.Count > 1 Then Exit Sub
    If Target <> "●" Then Exit Sub
    Cancel = True
    With Target
    Select Case .Font.ColorIndex
        Case xlAutomatic
            colr = 3
        Case 3
            colr = 5
        Case 5
            colr = xlAutomatic
    End Select
    .Font.ColorIndex = colr
    End With
 End Sub

出来ました。
ありがとうございます。

 ○を選択したら色が変わる事って出来ますか？
 白丸を選択したら赤丸、その赤丸をもう一回選択したら白丸とかって出来ますか？

 この御方とは別の御方？
[[20070519134745]]
 それともこんな事をお望みなんでっか？ 　　　　
　　　　　　（弥太郎）
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target <> "○" And Target <> "●" Then Exit Sub
        With Target
            If .Value = "○" And .Font.ColorIndex = xlAutomatic Then
                .Value = "●"
                .Font.ColorIndex = 3
            ElseIf .Value = "●" And .Font.ColorIndex = 3 Then
                .Value = "○"
                .Font.ColorIndex = xlAutomatic
            End If
        End With
 End Sub

コメント返信：

[ 一覧(最新更新順) ]

[[20060215131620]] 『まる【○】をつくりその中に色をつける』（びーチャン） ページの最後に飛ぶ

[[20060215131620]]　『まる【○】をつくりその中に色をつける』（びーチャン）　ページの最後に飛ぶ