Autoforma

Hola Carlos,

A mi solo se me ocurre lo siguiente:

- clic derecho sobre la utoforma
- opcion: Asignar Macro
- boton: Nuevo
- clic derecho sobre la utoforma
- opcion: Asignar Macro
- en el cuadro de abajo busca el macro recien creado (p.ej.: si tu autoforma se llama Rectangulo1, debe haber algo como
'Rectangulo1_Click') y pulsa el boton Editar
- andadele al procedimiento la siguiente linea de codigo entre la primera y la segunda lineas: MsgBox "NombredeAutoforma" para que
te quede algo parecido a esto:

Sub Rectangulo1_Click()
MsgBox "Rectangulo1"
End Sub

- Pulsa Alt+F11 para volver a la hoja
- Prueba hacer clic en la autoforma.

Saludos,
KL


"Carlos" wrote in message news:

Tengo varias autoformas en una hoja de excel. Quiero que al pinchar en cada
una de ellas se muestre un mensaje con el nombre de la autoforma. Es esto
posible?

Un saludo y gracias

Carlos

Gracias KL
Lo que me dices funciona pero necesito algo más genérico. Tengo n autoformas
que se van generando y borrando según se maneja la hoja. Por código, a la
autoforma ya le asigno la macro con la instrucción Selection.OnAction =
"Macro1". Pero necesito que esa macro sea general para todas las autoformas.
Por ejemplo, que seleccione esa autoforma (no sé como hacerlo) y me de el
mensaje msgbox(selection.name). No sé si me explico. A ver si me puedes echar
una mano. Gracias

Carlos

"KL" escribió:

Hola Carlos,

A mi solo se me ocurre lo siguiente:

- clic derecho sobre la utoforma
- opcion: Asignar Macro
- boton: Nuevo
- clic derecho sobre la utoforma
- opcion: Asignar Macro
- en el cuadro de abajo busca el macro recien creado (p.ej.: si tu autoforma se llama Rectangulo1, debe haber algo como
'Rectangulo1_Click') y pulsa el boton Editar
- andadele al procedimiento la siguiente linea de codigo entre la primera y la segunda lineas: MsgBox "NombredeAutoforma" para que
te quede algo parecido a esto:

Sub Rectangulo1_Click()
MsgBox "Rectangulo1"
End Sub

- Pulsa Alt+F11 para volver a la hoja
- Prueba hacer clic en la autoforma.

Saludos,
KL


"Carlos" wrote in message news:
> Tengo varias autoformas en una hoja de excel. Quiero que al pinchar en cada
> una de ellas se muestre un mensaje con el nombre de la autoforma. Es esto
> posible?
>
> Un saludo y gracias
>
> Carlos

Hola Carlos,

Prueba algo asi:

Sub Asignar()
Dim sh As Shape
For Each sh In Sheets(1).Shapes
sh.OnAction = "MostrarNombre"
Next sh
End Sub

Sub MostrarNombre()
MsgBox Application.Caller
End Sub

Saludos,
KL


"Carlos" wrote in message news:

Gracias KL
Lo que me dices funciona pero necesito algo más genérico. Tengo n autoformas
que se van generando y borrando según se maneja la hoja. Por código, a la
autoforma ya le asigno la macro con la instrucción Selection.OnAction > "Macro1". Pero necesito que esa macro sea general para todas las autoformas.
Por ejemplo, que seleccione esa autoforma (no sé como hacerlo) y me de el
mensaje msgbox(selection.name). No sé si me explico. A ver si me puedes echar
una mano. Gracias

Carlos

"KL" escribió:

Hola Carlos,

A mi solo se me ocurre lo siguiente:

- clic derecho sobre la utoforma
- opcion: Asignar Macro
- boton: Nuevo
- clic derecho sobre la utoforma
- opcion: Asignar Macro
- en el cuadro de abajo busca el macro recien creado (p.ej.: si tu autoforma se llama Rectangulo1, debe haber algo como
'Rectangulo1_Click') y pulsa el boton Editar
- andadele al procedimiento la siguiente linea de codigo entre la primera y la segunda lineas: MsgBox "NombredeAutoforma" para
que
te quede algo parecido a esto:

Sub Rectangulo1_Click()
MsgBox "Rectangulo1"
End Sub

- Pulsa Alt+F11 para volver a la hoja
- Prueba hacer clic en la autoforma.

Saludos,
KL


"Carlos" wrote in message news:
> Tengo varias autoformas en una hoja de excel. Quiero que al pinchar en cada
> una de ellas se muestre un mensaje con el nombre de la autoforma. Es esto
> posible?
>
> Un saludo y gracias
>
> Carlos

KL eres la hostia.
Muchas gracias

Carlos

"KL" escribió:

Hola Carlos,

Prueba algo asi:

Sub Asignar()
Dim sh As Shape
For Each sh In Sheets(1).Shapes
sh.OnAction = "MostrarNombre"
Next sh
End Sub

Sub MostrarNombre()
MsgBox Application.Caller
End Sub

Saludos,
KL


"Carlos" wrote in message news:
> Gracias KL
> Lo que me dices funciona pero necesito algo más genérico. Tengo n autoformas
> que se van generando y borrando según se maneja la hoja. Por código, a la
> autoforma ya le asigno la macro con la instrucción Selection.OnAction > > "Macro1". Pero necesito que esa macro sea general para todas las autoformas.
> Por ejemplo, que seleccione esa autoforma (no sé como hacerlo) y me de el
> mensaje msgbox(selection.name). No sé si me explico. A ver si me puedes echar
> una mano. Gracias
>
> Carlos
>
> "KL" escribió:
>
>> Hola Carlos,
>>
>> A mi solo se me ocurre lo siguiente:
>>
>> - clic derecho sobre la utoforma
>> - opcion: Asignar Macro
>> - boton: Nuevo
>> - clic derecho sobre la utoforma
>> - opcion: Asignar Macro
>> - en el cuadro de abajo busca el macro recien creado (p.ej.: si tu autoforma se llama Rectangulo1, debe haber algo como
>> 'Rectangulo1_Click') y pulsa el boton Editar
>> - andadele al procedimiento la siguiente linea de codigo entre la primera y la segunda lineas: MsgBox "NombredeAutoforma" para
>> que
>> te quede algo parecido a esto:
>>
>> Sub Rectangulo1_Click()
>> MsgBox "Rectangulo1"
>> End Sub
>>
>> - Pulsa Alt+F11 para volver a la hoja
>> - Prueba hacer clic en la autoforma.
>>
>> Saludos,
>> KL
>>
>>
>> "Carlos" wrote in message news:
>> > Tengo varias autoformas en una hoja de excel. Quiero que al pinchar en cada
>> > una de ellas se muestre un mensaje con el nombre de la autoforma. Es esto
>> > posible?
>> >
>> > Un saludo y gracias
>> >
>> > Carlos
>>
>>