Hello

After selecting all my (random) shapes on a sheet with the command

ActiveSheet.Shapes.SelectAll

I want to deselect one of them. I thought that the following code could do
the work but I turn in an error (object doesn't support the method)

ActiveSheet.Shapes("Picture 1").Deselect

What's the way to work around this

Thanks in advance for your help

Kind regards

Al

Just select a worksheet cell, say A1


Range("A1").Select

--
__________________________________
HTH

Bob

"already" <(E-Mail Removed)> wrote in message
news:8FAFB7B4-A625-4431-BAC9-(E-Mail Removed)...
> Hello
>
> After selecting all my (random) shapes on a sheet with the command
>
> ActiveSheet.Shapes.SelectAll
>
> I want to deselect one of them. I thought that the following code could do
> the work but I turn in an error (object doesn't support the method)
>
> ActiveSheet.Shapes("Picture 1").Deselect
>
> What's the way to work around this
>
> Thanks in advance for your help
>
> Kind regards
>
> Al

Hi Bob

Thanks for the reply but this didn't work.

Note that all the shapes are selected and that I only want to remove the
selection of 1 of them

Kind regards

Al


"Bob Phillips" wrote:

> Just select a worksheet cell, say A1
>
>
> Range("A1").Select
>
> --
> __________________________________
> HTH
>
> Bob
>
> "already" <(E-Mail Removed)> wrote in message
> news:8FAFB7B4-A625-4431-BAC9-(E-Mail Removed)...
> > Hello
> >
> > After selecting all my (random) shapes on a sheet with the command
> >
> > ActiveSheet.Shapes.SelectAll
> >
> > I want to deselect one of them. I thought that the following code could do
> > the work but I turn in an error (object doesn't support the method)
> >
> > ActiveSheet.Shapes("Picture 1").Deselect
> >
> > What's the way to work around this
> >
> > Thanks in advance for your help
> >
> > Kind regards
> >
> > Al
>
>
>

I would just loop through the shapes:

Option Explicit
Sub testme()
Dim Shp As Shape
Dim InitialShape As Boolean

InitialShape = True
For Each Shp In ActiveSheet.Shapes
If Shp.Name = "Button 3" Then
'skip it
Else
Shp.Select Replace:=InitialShape
InitialShape = False
End If
Next Shp
End Sub


already wrote:
>
> Hello
>
> After selecting all my (random) shapes on a sheet with the command
>
> ActiveSheet.Shapes.SelectAll
>
> I want to deselect one of them. I thought that the following code could do
> the work but I turn in an error (object doesn't support the method)
>
> ActiveSheet.Shapes("Picture 1").Deselect
>
> What's the way to work around this
>
> Thanks in advance for your help
>
> Kind regards
>
> Al

--

Dave Peterson

Hi Dave

That's a nice one. Thanks very much !!!

All

"Dave Peterson" wrote:

> I would just loop through the shapes:
>
> Option Explicit
> Sub testme()
> Dim Shp As Shape
> Dim InitialShape As Boolean
>
> InitialShape = True
> For Each Shp In ActiveSheet.Shapes
> If Shp.Name = "Button 3" Then
> 'skip it
> Else
> Shp.Select Replace:=InitialShape
> InitialShape = False
> End If
> Next Shp
> End Sub
>
>
> already wrote:
> >
> > Hello
> >
> > After selecting all my (random) shapes on a sheet with the command
> >
> > ActiveSheet.Shapes.SelectAll
> >
> > I want to deselect one of them. I thought that the following code could do
> > the work but I turn in an error (object doesn't support the method)
> >
> > ActiveSheet.Shapes("Picture 1").Deselect
> >
> > What's the way to work around this
> >
> > Thanks in advance for your help
> >
> > Kind regards
> >
> > Al
>
> --
>
> Dave Peterson
>