Propiedades de los botones en macros de excel
Es posible:
1) ¿Es posible un código en una macro para cambiarle o asignarle un macro a otro botón?
2) ¿Cómo le cambio el nombre a un botón con un código en una macro?
3) Es posible crear un nuevo botón desde otro botón en una macro, cambiar sus propiedades como; nombre, tamaño color,¿etc.?
1 Respuesta
Todo depende de dónde o qué tipo de 'botones'. Aquí van algunas aclaraciones
Sub consultas() 'x Elsamatilde '1 - asignar macro al control 1 de la hoja activa ActiveSheet.Shapes(1).Select Selection.OnAction = "Imprimir" '(*) '2 - cambiar el nombre 'Depende: si se trata del nombre como TextBox1, CmdAceptar o ListBox1 'o si se trata del texto que aparece en el botón cuando se trata de CommandButton, 'en ese caso sería para un botón de comando dibujado en la hoja: ActiveSheet.Shapes(1).Select Selection.Text = "IMPRESIÓN" 'si se trata de un botón en un Userform sería: CommandButton1.Caption = "IMPRIMIR" '3 - Si es posible, pero para no escribir sin seguridad, mejor me aclaras dónde lo vas a crear 'si en hoja o agregarlo a un userform. End Sub '(*) En algún módulo tendrás una macro que empieza con: 'Sub imprimir() 'End Sub
Mira lo que quiero hacer es lo siguiente, tengo una hoja la cual tiene datos de la nomina de un empleado, en esta hoja hay un botón que guarda el registro, inmediatamente q se guarda el registro se crea un reporte en una nueva hoja con los mismos datos del empleado, pero yo quiero que en esa hoja al crearse me aparezcan inmediatamente dos nuevos botones en ciertas partes con con los nombres Modificar y Eliminar, y a su vez asignarles macros para que realicen sus respectivas tareas.
Gracias de antemano.
Bien, en el código de ese botón que guarda el registro y crea la nueva hoja, debes agregarle estas instrucciones:
'x Elsamatilde
'crear botón y dimensionarlo
ActiveSheet.Buttons.Add(127.5, 13.5, 113.25, 37.5).Select
'asignarle la macro
Selection.OnAction = "IMPRIMIR"
'colocarle el texto al botón
Selection.Characters.Text = "IMPRESIÓN"
'seleccionar alguna celda de la hoja creada
Range("B2").SelectAjustá el nombre de la macro que estará en algun módulo y el texto a tu gusto.
Para obtener los parámetros del botón, debes encender la grabadora de macros, dibujar, ubicar y dimensionar el botón a tu gusto y luego detené la grabadora.
En algún módulo estarán las instrucciones creadas. De allí tomá la línea de las medidas y reemplazá a la que te acabo de dejar.
