Abraham Valencia

En mi web, en la sección "Ejemplos", hay uno que te servirá: Mi_Web Abraham

Pues selecciona tu gráfico, cópialo, pégalo en la "otra" hoja. Ahora, inserta en esa "otra" hoja un botón de controles (OJO, controles, no formularos), y colócale este código: With Me.ChartObjects(1) If .Visible = False Then .Visible = True Else...

Pues, lo que podrías hacer es ir a HERRAMIENTAS - PERSONALIZAR - pestaña "Barra de herramientas", vas a la tuya, y una vez elegida le das al botón "Adjuntar", en el cuadro de dialogo que sale, eleiges tu barra, y le das a "copiar". Listo, ya tienes...

Pues una forma: Sheets("Mihoja").Select ActiveSheet. UnProtect "Clave" ... código... ActiveSheet. Protect "Clave" Abraham

Pues si mal no te entendí esto es lo que necesitas y con tus mismos pasos: Application.DisplayAlerts = False Sheets("GraficoX").Activate ActiveWindows.SelectedSheets.Delete Application.DisplayAlerts = True Abraham

Pues, en el modulo de tu hoja coloca algo así: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim alto As Integer, lado As Integer alto = Target.Top lado = Target.Left With ActiveSheet.Shapes("CommandButton1") .Top = alto .Left = lado...

Un modo: run Shell("C:\WINDOWS\system32\CALC.EXE", 1) OJO esa es la ruta que yo tengo, verifica la tuya Abraham

y que es 1550 SET ¿? ¿Y qué es CapBox? ¿Y qué es Numero? Abraham

Pues una forma: =Entero(A2-A1)/7 Donde en A1 esta la fecha inicial y en A2 la final Abraham

Para los Escenarios: Escenarios Si te refieres al botón "estilo moneda", este toma siempre la modena elegida en la configuración regional de tu sistema operativo, y de seguro lo tienes en Euros. Abraham