Picture name

[Qroozn]

how do i rename a picture inserted into excel.
i.e. default name is "picture 1".

[Tom Schreiner]

Hi
Select your picture and rename it in the name box...
The name box is the combobox directly above column A on a default sheet.
Tom

[Qroozn]

Thanks for that.. but i am trying to do it in a macro so that i can then set the size properties of the shape.

the problem is that each time i add a shape it gets a new number...
currently i am doing a
activesheet.pictures.insert
but i cant work out how to give it a new name

[Ivan F Moala]

On 2002-04-25 19:42, Qroozn wrote:

Thanks for that.. but i am trying to do it in a macro so that i can then set the size properties of the shape.

the problem is that each time i add a shape it gets a new number...
currently i am doing a
activesheet.pictures.insert
but i cant work out how to give it a new name

Would this help ?

Sub Name()

Dim Pict As Object



'// Note Inserts Picture Object @ Activecell and names it

Set Pict = ActiveSheet.Pictures.Insert("C:My DocumentsMy PicturesBALL01.PCX")

Pict.Name = "mypicture1"



End Sub

[Qroozn]

SOLUTION:

pict = folder & Frame & ext

Range("e6").Select
ActiveSheet.Pictures.Insert(pict).Select
Selection.Name = "picture 1"

Thanx Ivan. but i think i stole this from one of your old postings

[gareth]

How's about renaming the picture totally in its name box ?

[Ivan F Moala]

On 2002-04-25 22:31, gareth wrote:
How's about renaming the picture totally in its name box ?

I think TsTom already suggested that ?!