View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Dave Peterson[_2_] Dave Peterson[_2_] is offline
external usenet poster
 
Posts: 420
Default OptionButton not included in a GroupBox

First, I didn't download your attachment.

But when I looked at your code, you're using the height of the cell times 3.
That looks like it would be more than your single rowheight (overlapping the
row(s) below).

I'd change that to be exactly the height of the row to start my testing.

And I'd look at Debra Dalgleish's site to see if there's any hints/tips that I
could use:

http://contextures.com/xlForm01.html

ps.

Is there a reason you use E2:E12 in one loop, but E2:E13 in the other?

On 04/02/2012 08:56, Flexx wrote:
Hello

I have a problem with my OptionButtons and my GroupBoxes.

In a form, which is a kind of survey, GroupBoxes and OptionButtons are
automatically generated, depending on the number of questions.

Each OptionButton must fit in a cell, and a GroupBox has to include many
OptionButtons.

But there is a problem. Some OptionButtons are not included in the
GroupBox :(
So, it is possible to select more than one option button into the group
!

You can see it on the following capture :
http://img15.hostingpics.net/pics/47...GroupBoxes.png

Or this one :
http://img15.hostingpics.net/pics/364359PbExcel.png


You can play with the attached file to see the problem.

Or use the following code :

Sub Bouton1_Clic()

Dim myCell As Range
Dim numCell As Integer
Dim myGroupBox As GroupBox
Dim myOptionButton As OptionButton

ActiveSheet.OptionButtons.Delete
ActiveSheet.GroupBoxes.Delete

numCell = 0
For Each myCell In ActiveSheet.Range("E2:E12").Cells
If numCell = 0 Then
Set myGroupBox = ActiveSheet.GroupBoxes.Add(myCell.Left,
myCell.Top, myCell.Width, (myCell.Height * 3))
myGroupBox.Caption = ""
End If
numCell = numCell + 1
If numCell = 3 Then numCell = 0
Next

numCell = 0
For Each myCell In ActiveSheet.Range("E2:E13").Cells
Set myOptionButton = ActiveSheet.OptionButtons.Add(myCell.Left,
myCell.Top, 5, 5)
myOptionButton.Caption = ""
Next

End Sub


Thanks a lot for your help.


+-------------------------------------------------------------------+
|Filename: PbOptionButton.zip |
|Download: http://www.excelbanter.com/attachment.php?attachmentid=317|
+-------------------------------------------------------------------+




--
Dave Peterson