Hola Jonay:
No puedes modificar la resolución ni crear gráficos con una resolución variable, pero existe la posibilidad de utilizar ZOOM, lo intenté hace varios años pero usa una macro y no funcionaba bien en el Access Point, puede que hayan resuelto el problema (o no). Esto es lo que necesitas
1) Crea una variable vZOOM = 100
2) Crea una macro con el editor de macros, en mi caso se llama ZOOM
2.1) El editor de macros tiene que tener seleccionado 'Acceso al Sistema' en Seguridad de Módulo
2.2) El editor de macros tiene que tener seleccionado 'Permitir Acceso al Sistema' en Seguridad Local
2.3) En el QMC/SYSTEM/QVS/Security activa 'Allow unsafe macro execution on server'
2.4) En el QMC/SYSTEM/QVS/Security activa 'Allow macro execution on server'
3) Crea un objeto deslizador, le asignas la variable vZOOM con estos parámetros
Valor Mínimo 50
Valor Máximo 200
Incremento Estático 5
Rango Fijo ... seleccionado
Escala automática ... en la pestaña presentación
4) Crea un disparador en las propiedades de documento, 'procedimientos de evento de variable' busca la variable
vZOOM, Añade una acción 'Al Cambiar'; la acción es 'Externo/Ejecutar Macro' y si has seguido las instrucciones la
macro se llama ZOOM
Aquí tienes el código de la macro ...
' Aplicar el valor del deslizador al zoom ...
Sub Zoom
vZoomFactor = ActiveDocument.Variables("vZoom").GetContent.String / 100
ActiveDocument.Variables("vZoom").GetContent.String = vZoomFactor * 100
set mysheet=ActiveDocument.ActiveSheet
set sp=mysheet.GetProperties
sp.ZoomFactor = vZoomFactor
mysheet.SetProperties sp
ActiveDocument.GetApplication.WaitForIdle
ActiveDocument.ActiveSheet.ApplyZoomToAllSheets
End Sub
---------------
No es lo que pedías pero quizá te sirva.
Saludos,
Joaquín
