why,,,, dificult??

X

x taol

Dim grp As GroupObject, btn As Button
Set grp = ActiveSheet.GroupObjects("Group 131")
Set btn = grp.ShapeRange.GroupItems(Application.Caller)
but not work,,,,,,
debug error num = 5

*** Sent via Developersdex http://www.developersdex.com ***
 
J

JLGWhiz

My guess is that it does not like what is returned by the Application.Caller
expression.
 
X

x taol

no, you were wrong. the btn name is returned by application.caller.

Dim grp As GroupObject, btn As Button
Set grp = ActiveSheet.GroupObjects("Group 131")
Set btn = grp.ShapeRange.GroupItems(Application.Caller)
btn.caption="any_str"

but, 3 line is error... oh, no....
please help me.... guru xl....




*** Sent via Developersdex http://www.developersdex.com ***
 
J

JLGWhiz

Dim grp As GroupObject

Shouldn't this be Dim grp As GroupShape? I don't find GroupObject as a
valid declaration.
 

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