X
x tomi3440
Dim grp As GroupBox
Set grp = s.GroupBoxes.Add(3.75, 62.25, 242, 47)
grp.Caption = "xxx"
set s=activesheet
s.Shapes.Range(Array(grp.Name, "btnAll","btnLast")).Select
Selection.ShapeRange.Group.Select
Selection.Name = "myGroup"
and btnAll and btnLast is linked with OnAction method to the following
procedure..
sub sbBtn()
dim btn as button
set btn=activesheet.buttons(application.caller)'...error
if btn.name="btnAll" then
msgbox 1
elseif btn.name="btnLast" then
msgbox 2
end if
end sub
why??? about button in group box.......
*** Sent via Developersdex http://www.developersdex.com ***
Set grp = s.GroupBoxes.Add(3.75, 62.25, 242, 47)
grp.Caption = "xxx"
set s=activesheet
s.Shapes.Range(Array(grp.Name, "btnAll","btnLast")).Select
Selection.ShapeRange.Group.Select
Selection.Name = "myGroup"
and btnAll and btnLast is linked with OnAction method to the following
procedure..
sub sbBtn()
dim btn as button
set btn=activesheet.buttons(application.caller)'...error
if btn.name="btnAll" then
msgbox 1
elseif btn.name="btnLast" then
msgbox 2
end if
end sub
why??? about button in group box.......
*** Sent via Developersdex http://www.developersdex.com ***