Convert group of shapes to picture

[hakanfa]

Hi,
I'm working an a project where I try to convert a group of shapes to a picture and then delete the group. Shortly how I done so far:
(the s_text, s_header etc. are programmatically generated shapes)

Dim shpGroup As Shape
Set shpGroup = sales_sheet.Shapes.Range(Array(s_text.Name, s_header.Name, lastNote.Name)).Group

shpGroup.CopyPicture
sales_sheet.Pictures.Paste
shpGroup.Delete

This works well, but now I need to capture the newly pasted image (name of object) for further process. Any ideas how to proceed?

Thankful for all possible solutions!

br
Hakan

 

[Yongle]

Try this

Add another variable

Dim pic As Shape

after this line

sales_sheet.Pictures.Paste

add this line

Set pic = sales_sheet.Shapes(sales_sheet.Shapes.Count)

pic.Name provides the name for future use

 

[hakanfa]

Try this

Add another variable

Dim pic As Shape

after this line

sales_sheet.Pictures.Paste

add this line

Set pic = sales_sheet.Shapes(sales_sheet.Shapes.Count)

pic.Name provides the name for future use

Yess! Precisely! Thank you very much for the solution!