Thread: Check Box Macro
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Ian Ian is offline
external usenet poster
 
Posts: 238
Default Check Box Macro

I just created a macro by recording whilst inserting a checkbox, then
changing the text and background colour. Results below:

Sub InsertCheckbox()
ActiveSheet.CheckBoxes.Add(250.5, 42.75, 72, 72).Select
ActiveSheet.Shapes("Check Box 1").Select
Selection.Characters.Text = "New text"
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 53
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
End Sub

You say you've already created the checkboxes, but you should be able to
extract the basis of what you need from this macro.

Hope this helps.

--
Ian
--
"Patrick Bateman" wrote in
message ...
Hi, I am trying to write a macro that includes putting 2 checkboxes onto a
sheet, then rewriting the text in them and changing the background colour.
so far all i have been able to do is set the position and size but cannot
set the text or colour.

any help would be much appreciated

thankyou

Patrick