VBA Shapeでアクティブセルに丸をつける

Shapeでアクティブセルに丸をつける

Sub test()

    '　Shapeでアクティブセルに丸をつける

    Dim c As Range
    Dim WS As Worksheet
    
    
    Set WS = ActiveSheet
    Set c = ActiveCell
    
    With WS.Shapes.AddShape(msoShapeOval, _
        c.Left, c.Top, c.Width, c.Height)
        
                .Fill.Visible = False　　
                .Line.ForeColor.RGB = RGB(0, 0, 255)
    
    End With

End Sub

実行結果

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事

『VBA　Shapeを使って矢印付き線を引く』

『VBA　シェイプを一括削除』

『VBA セルの背景色（RGB）を取得する』

『VBA セルの操作 背景色の設定』

『VBA 最終行・列の取得』