Como creo una macro para ampliar un gráfico en excel
Tengo un archivo con muchos datos y columnas, y necesito un gráfico por columna, lo que dificulta que se vean correctamente, quisiera una macro que me permita ampliar el tamaño del gráfico al hacer clic pero ni idea de que comandos usar.
1 Respuesta
H o l a:
Envíame tu archivo con algunas imágenes, dime cuáles imágenes son las que quieres ampliar, me muestras una imagen en particular en tamaño chico y en tamaño ampliado, para saber cómo es el resultado que esperas.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “vanessa alvarado” y el título de esta pregunta.
:)
S a l u d o s . D a n t e A m o r
Hola!!! Ya te mande el archivo, recién veo tu respuesta, google me la filtró en mi pestañas de notificaciones que veo muy poco.
Muchas gracias de antemano!
Te anexo las macro para ampliar la imagen.
Sub imagen1() 'Por.Dante Amor If ActiveSheet.Name <> "Reporte KPI Inducom" Then Exit Sub End If On Error Resume Next n = Selection.Name werr = Err.Number If werr <> 0 Then MsgBox "Selecciona una gráfica" Exit Sub End If On Error GoTo 0 If InStr(1, n, "Gráfico") = 0 Then MsgBox "Selecciona una gráfica" Exit Sub End If If Selection.Height > 500 Then Selection.Height = 182 Selection.Width = 146 Else Selection.Height = 550 Selection.Width = 621 End If End Sub
Sigue las Instrucciones para poner la macro en un módulo
- Abre tu archivo de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
La macro funciona presionando la tecla F4.
Pon la siguiente macro en los eventos de Thisworkbook
Private Sub Workbook_Open()
'Por.Dante Amor
Application.OnKey "{F4}", "imagen1"
End SubInstrucciones para poner la macro en los eventos ThisWorkbook
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a ThisWorkbook
- Del lado derecho copia la macro
':) 'S aludos. D a n t e A m o r . R ecuerda valorar la respuesta. G racias ':)
