Renombrar objetos

[carabao]

Hola a todos, existe alguna manera mediante una macro de que al insertar un objeto empiece a numerar estos objetos insertados desde un número concreto.

Es decir, cuando seleccionas un objeto, arriba a la derecha donde indica la celda en la que estás situado, aparece el nombre del objeto seleccionado (por ejemplo: Objeto 1), existe alguna manera de que al insertarlo empiece desde un número concreto.

Gracias

[Antoni]

Si y no, depende.

Sube un archivo, especificando claramente que pretendes conseguir y que tipos de objeto vas a insertar.

Esta macro renombra todos los objetos con el nº de orden de inserción del objeto en la hoja a partir de 1.

Sub Renombrar()


   For x = 1 To ActiveSheet.Shapes.Count

      ActiveSheet.Shapes(x).Name = x

   Next



End Sub



[/CODE]

Esta otra te pide el nombre del objeto seleccionado:

[CODE]Sub RenombrarII(): On Error GoTo ExitSub

Selection.Name = Selection.Name
Selection.Name = InputBox("Nombre del objeto")
ActiveCell.Select
ExitSub:


End Sub
[/CODE]

[carabao]

Muchas gracias. Creo que me sirve, pero otra opción que me valdría, sería seleccionar todos los objetos y darles el mismo nombre a todos. Esto sería perfecto. Eso se puede?

Gracias otra vez

[Antoni]

No se cual es el objetivo, pero prueba con esta macro:

Sub Renombrar()


   For x = 1 To ActiveSheet.Shapes.Count

      ActiveSheet.Shapes(x).Name = "[COLOR=#ff0000][I][B]Mi nombre[/B][/I][/COLOR]"

   Next



End Sub[/CODE]

[carabao]

Sé que es un poco raro, pero es que esoy intentando insertar unos archivos dentro de excel y era la úna manera que se me ocurría de hacer lo que necesitaba.

Es perfecto, hace lo que me hacía falta.

Muchas gracias.