Renaming pictures

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Henk - 26 May 2008 10:15 GMT

Is it possible to change the name of pictures in a workbook? E.g. rename
Picture 52 (name given by Excel itself) to Log 01.

Regards

Reply to this Message

Norman Jones - 26 May 2008 10:21 GMT

Hi Henk,

Try something like:

ActiveSheet.Pictures("Picture 1").Name = "Log 01"

---
Regards.
Norman

> Is it possible to change the name of pictures in a workbook? E.g. rename
> Picture 52 (name given by Excel itself) to Log 01.
>
> Regards

Reply to this Message

Henk - 26 May 2008 11:07 GMT

Thanks Norm. It works!

> Hi Henk,
>
[quoted text clipped - 10 lines]
> >
> > Regards

Reply to this Message

Gord Dibben - 26 May 2008 22:33 GMT

If you have bunch to do try this.

Public Sub ReNamePics()
Dim Pic As Shape, K As Long
For Each Pic In Selection.ShapeRange
K = K + 1
Pic.Name = "Log" & K
Next Pic
End Sub

Gord Dibben MS Excel MVP

>Thanks Norm. It works!
>
[quoted text clipped - 12 lines]
>> >
>> > Regards

Reply to this Message

Norman Jones - 26 May 2008 23:07 GMT

Hi Henk,

I should have added that, when dealing with
Excel names, you will find Jan Karel Pieterse's
Name Manager Add-in of invaluable assistance;
I regard it as one of my indispensible tools.

Name Manager may be downloaded at:

http://www.jkp-ads.com/Download.asp

---
Regards.
Norman

> Hi Henk,
>
[quoted text clipped - 5 lines]
> Regards.
> Norman

Reply to this Message