+ Reply to Thread
Results 1 to 2 of 2

format an entire column to contain checkbox activex control

  1. #1
    blunoob
    Guest

    format an entire column to contain checkbox activex control

    I learned out how to insert one checkbox, but how do I insert them down an
    entire row - copy paste paste special does not seem to work..

  2. #2
    Norman Jones
    Guest

    Re: format an entire column to contain checkbox activex control

    Hi Blunoob,

    Try:

    '=============>>
    Public Sub Tester01()
    Dim SH As Worksheet
    Dim rng As Range
    Dim rCell As Range

    Set SH = ActiveSheet '<<==== CHANGE

    Set rng = SH.Range("A1:A100") '<<==== CHANGE

    Application.ScreenUpdating = False
    For Each rCell In rng
    With SH.CheckBoxes.Add(rCell.Left + 5, _
    rCell.Top - 2, 5, 5)
    .Caption = ""
    .LinkedCell = rCell.Address(0, 0)
    End With
    rCell.Font.Color = vbWhite
    Next rCell
    Application.ScreenUpdating = True

    End Sub
    '<<=============

    If you are new to macros, you may wish to visit David McRitchie's 'Getting
    Started With Macros And User Defined Functions' at:

    http://www.mvps.org/dmcritchie/excel/getstarted.htm


    ---
    Regards,
    Norman



    "blunoob" <[email protected]> wrote in message
    news:[email protected]...
    >I learned out how to insert one checkbox, but how do I insert them down an
    > entire row - copy paste paste special does not seem to work..




+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1