Application.Selection and its items
 

Application.Selection can contain several items. Is is possible to loop
through these ? If so how?

Any help appreciated.

Application.Selection and its items
 

Dim mpArea As Range

For Each mpArea In Selection.Areas

Debug.Print mpArea.Address
Next mpArea


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"ojv" wrote in message
...
Application.Selection can contain several items. Is is possible to loop
through these ? If so how?

Any help appreciated.

Application.Selection and its items
 

Yes. But what if Selection consists of multiple shapes or chartobjects only?

"ojv" wrote:

Application.Selection can contain several items. Is is possible to loop
through these ? If so how?

Any help appreciated.

Application.Selection and its items
 

Dim myShape as shape
dim myChtObj as ChartObject

For Each myShape in Selection.Shapes

next myShape

for Each myChtObj in Selection.ChartObjects

Next myChtObj
--
HTH,
Barb Reinhardt



"ojv" wrote:

Yes. But what if Selection consists of multiple shapes or chartobjects only?

"ojv" wrote:

Application.Selection can contain several items. Is is possible to loop
through these ? If so how?

Any help appreciated.

Application.Selection and its items
 

Why didn't you say that in the first place?

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"ojv" wrote in message
...
Yes. But what if Selection consists of multiple shapes or chartobjects
only?

"ojv" wrote:

Application.Selection can contain several items. Is is possible to loop
through these ? If so how?

Any help appreciated.