M
Moonlight
Hi Everyone
First post for me - These Groups have been so useful I havn't needed
to post before. Anyway I cannot get past this problem and I am
running out of time.
I am creating Checkboxes that go into cells in Excel and I need the
caption to be in a non-proportional font so items in the caption will
line up with each other.
I cannot figure how to change the font. Here is some code.
Dim myCell as Range
Dim myCBX as Checkbox
Set myCell = Worksheets(str_Wks).Range("A1").Offset(3, 5)
With myCell
.NumberFormat = ";;;"
.Locked = False
Set myCBX = .Parent.CheckBoxes.Add(Top:=.Top, Width:=130, _
Height:=.Height, Left:=.Left)
End With
With myCBX
.Name = "cbx_" & myCell.Address(0, 0)
.LinkedCell = myCell.Address(external:=True)
.Caption = "Name of Cell"
.Value = InputVal
.Placement = xlMoveAndSize
.OnAction = ThisWorkbook.Name & str_Action
End With
I have tried to add font name in the creation of the checkbox and in
the cell address to no avail. I have also looked thru the groups to
see if there has been a similar problem but no luck.
- Any ideas???
Greg
First post for me - These Groups have been so useful I havn't needed
to post before. Anyway I cannot get past this problem and I am
running out of time.
I am creating Checkboxes that go into cells in Excel and I need the
caption to be in a non-proportional font so items in the caption will
line up with each other.
I cannot figure how to change the font. Here is some code.
Dim myCell as Range
Dim myCBX as Checkbox
Set myCell = Worksheets(str_Wks).Range("A1").Offset(3, 5)
With myCell
.NumberFormat = ";;;"
.Locked = False
Set myCBX = .Parent.CheckBoxes.Add(Top:=.Top, Width:=130, _
Height:=.Height, Left:=.Left)
End With
With myCBX
.Name = "cbx_" & myCell.Address(0, 0)
.LinkedCell = myCell.Address(external:=True)
.Caption = "Name of Cell"
.Value = InputVal
.Placement = xlMoveAndSize
.OnAction = ThisWorkbook.Name & str_Action
End With
I have tried to add font name in the creation of the checkbox and in
the cell address to no avail. I have also looked thru the groups to
see if there has been a similar problem but no luck.
- Any ideas???
Greg