Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
oh difficult...
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)'...err or 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 *** |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
oh difficult...
I'm not sure what you're doing, but don't group the shapes.
Isn't it enough that the objects are within the groupbox? "x " wrote: 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)'...err or 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 *** -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
oh difficult...
Dim grp As GroupBox
set s=activesheet Set grp = s.GroupBoxes.Add(3.75, 62.25, 242, 47) grp.Caption = "xxx" s.Shapes.Range(Array(grp.Name, "btnAll","btnLast")).Select Selection.ShapeRange.Group.Select Selection.Name = "myGroup" sub sbBtn() dim btn as button set btn=activesheet.buttons(application.caller)'...err or if btn.name="btnAll" then msgbox 1 elseif btn.name="btnLast" then msgbox 2 end if end sub I make 2 buttons(controlformat type) in a sheet. and the buttons of controlformat have a procedure(sbBtn). and I make a groupbox of controformat in a sheet. The 2 buttons is included in the groupbox. and then the buttons and groupbox is grouped, and the group is named 'myGroup'. I want to do specific action when I click a button. Namely, when btnAll is clicked, msgbox 1... only one procedure is acted. *** Sent via Developersdex http://www.developersdex.com *** |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
difficult | Excel Programming | |||
Help, too difficult for me. | Excel Worksheet Functions | |||
Too difficult for me, please help. | Excel Worksheet Functions | |||
Is this difficult??? | Excel Programming | |||
Ok I have to be difficult | Excel Programming |