oh difficult...

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 ***
 
D

Dave Peterson

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

x tomi3440

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)'...error
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 ***
 
D

Dave Peterson

My suggestion is still not to group the shapes.

You haven't shared a reason to group the shapes.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top