thanks a lot and thanks for your code
maybe as you said , to let the users to select the object before the code
starts is the best way ,

thanks


"Dave Peterson" wrote in message
...
There's a button that you can add to your favorite toolbar that pops up a
dialog
that allows you to select a shape based on the names of the shapes on that
worksheet.

Tools|Customize|Commands tab|Drawing toolbar
Look for Select Multiple Objects in the commands list.

Maybe you could invoke that dialog in your code:

Option Explicit
Sub testme01()
Dim myCtrl As CommandBarControl
Dim myCB As CommandBar

Set myCB = Nothing

Set myCtrl = Nothing
On Error Resume Next
Set myCtrl = Application.CommandBars.FindControl(ID:=3990)
On Error GoTo 0

If myCtrl Is Nothing Then
'not on any existing toolbar, so create a temporary toolbar
Set myCB = Application.CommandBars.Add(temporary:=True)
myCB.Visible = False
'add that button
Set myCtrl = myCB.Controls.Add(Type:=msoControlButton, ID:=3990)
End If

myCtrl.Execute
MsgBox TypeName(Selection)

'clean up
If myCB Is Nothing Then
'found it on an existing toolbar
Else
myCB.Delete
End If

End Sub

=========
Personally, I think I'd tell the users to select the object before the
code
starts. You can test the typename() of the selection to see if they have
a
Range selected.

If it is a Range, just yell at the user to select an object and start the
macro
once more.

EXCEL$B!!(BNEWS wrote:

hi,

i often use application.inputbox like

Set mycell1 = Application.InputBox(prompt:="", Type:=8)

in order to get a range,

but it failed to let me select a shape, i mean a shape object, that is a
part of drawing i cilpped and paseted into a sheet,

how to do this,

thanks a lot

--

Dave Peterson