Accessing Grouped Images.

you're welcome,
as ever it's always the little things in excel which cause
the greatest
frustration and are the hardest to find!! -

took me long enough to find it when I had the same problem -
You don't
forget those gems!
> Nice one Laurent.
>
> Damon Longworth
>
> 2006 West Coast Excel / Access User Conference
> October 25-27th, 2006
> Marina del Rey Hotel
> Marina del Rey, California USA
> Announcement soon!
>
>
> -----Original Message-----
> From: MS Excel General Q & A List
[mailto:EXCEL-GPEACH.EASE.LSOFT.COM] On
> Behalf Of Laurent Wright
> Sent: Friday, July 28, 2006 4:15 AM
> To: EXCEL-GPEACH.EASE.LSOFT.COM
> Subject: Re: Accessing Grouped Images.
>
>
> Use Groupitems - this from the excel help
>
> GroupItems Property
> Returns a GroupShapes object that represents the
individual shapes in the
> specified group. Use the Item method of the GroupShapes
object to return a
> single shape from the group. Applies to Shape or
ShapeRange objects that
> represent grouped shapes. Read-only.
>
> Example
> This example adds three triangles to myDocument, groups
them, sets a color
> for the entire group, and then changes the color for
the second triangle
> only.
>
> Set myDocument = Worksheets(1)
> With myDocument.Shapes
>     .AddShape(msoShapeIsoscelesTriangle, _
>         10, 10, 100, 100).Name = "shpOne"
>     .AddShape(msoShapeIsoscelesTriangle, _
>         150, 10, 100, 100).Name = "shpTwo"
>     .AddShape(msoShapeIsoscelesTriangle, _
>         300, 10, 100, 100).Name =
"shpThree"
>     With .Range(Array("shpOne",
"shpTwo", "shpThree")).Group
>         .Fill.PresetTextured msoTextureBlueTissuePaper
>         .GroupItems(2).Fill.PresetTextured
msoTextureGreenMarble
>     End With
> End With
>
>
>
>
>> There may be a more straight forward way, but
ungroup and then
>> regroup. Something similar to:
>>
>>
ActiveSheet.Shapes("grpMainBank").Ungroup
>>
>> 'do your stuff here
>>
>>
ActiveSheet.Shapes.Range(Array("picBorrow",
"picSave", "picInvest", _
>>         "picProtect")).Regroup.Name =
"grpMainBank"
>>
>>
>> Damon Longworth
>> Lake Regional Health System
>> 54 Hospital Dr.
>> Osage Beach, MO 65065


-- 

"Every one is somemone else's Freak, every cure is
someone else's disease"

"Sneaker Pimps"

------------------------------------------------------------
--------------
The EXCEL-G list is hosted on a Windows NT(TM) machine
running L-Soft
international's LISTSERV(R) software.  For
subscription/signoff info
and archives, see htt
p://peach.ease.lsoft.com/archives/excel-g.html .
                             COPYRIGHT INFO:
http://peach.ease.lsoft.com/scripts/wa
.exe?SHOWTPL=COPYRIGHT&L=EXCEL-G