Foro Excel

HOLA QUE TAL? HABER SI ME PODEIS AYUDAR.

ESTOY INTENTADO MODIFICAR UN OBJETO INCRUSTADO EN UN ARCHIVO MEDIANTE UNA MACRO, EL PROBLEMA QUE TENGO ES QUE NO PUEDE ABRIL ESTE OBJETO.

CUANDO EL OBJETO LO HABRO MANUALMENTE ME EJECUTA TODA LA SECUENCIA

OS DEJO LA SECUENCIA

Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 25/05/2006 por USER048
'

'
ActiveWindow.SmallScroll Down:=84
ActiveSheet.Shapes("Object 771").Select

Windows("Hoja de cálculo en ANALITICAS COMPARATIVOS prueba con impresión"). _
Visible = True
Selection.Verb Verb:=xlPrimary
ActiveSheet.PivotTables("Tabla dinámica4").PivotFields("DIVISIí“N").CurrentPage _
= "3"
ActiveSheet.PivotTables("Tabla dinámica4").PivotFields("DIVISIí“N").CurrentPage _
= "2"
ActiveSheet.PivotTables("Tabla dinámica4").PivotFields("AREA").CurrentPage = _
"05"
ActiveWindow.SmallScroll ToRight:=6
ActiveSheet.PivotTables("Tabla dinámica4").PivotFields("ZONA").CurrentPage = _
"30"
ActiveWindow.SmallScroll ToRight:=7
Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
ActiveSheet.Outline.ShowLevels RowLevels:=1
ActiveWindow.Close
ActiveWindow.WindowState = xlMaximized
End Sub

Lo más probable es que el nombre del objeto no sea el correcto. Por lo que te recomiendo utilizar el número de í­ndice así­:

Sheets("Hoja1").Shapes(1).Select 'Si la hoja se llama "Hoja1" y no hay sino un sólo objeto incrustado en la misma
Selection.Verb Verb:=xlPrimary

luego coloca el resto del código desde la lí­nea roja

Hasta Luego

lo intentado pero nada.

en la hoja tengo varios objetos este objeto lo cree desde otro libro excel, el problema es que ya no puedo abrir este archivo de forma normal, tengo que hacerlo desde el objeto, situandome encima y haciendo doble clic.

Prueba quitando Verb:=xlPrimary o publica el archivo para determinar dónde está el problema.

Hasta Pronto

NADA SIGUE SIN SALIRME,
TE MANDO EL CODIGO:

Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 25/05/2006 por USER048
'

'
ActiveWindow.SmallScroll Down:=84
ActiveSheet.Shapes("Object 771").Select
Windows("Hoja de cálculo en ANALITICAS COMPARATIVOS prueba con impresión"). _
Visible = True
Sheets("Hoja2").Shapes("Object 771").Select

ActiveSheet.PivotTables("Tabla dinámica4").PivotFields("DIVISIí“N").CurrentPage _
= "2"
ActiveSheet.PivotTables("Tabla dinámica4").PivotFields("AREA").CurrentPage = _
"05"
ActiveWindow.SmallScroll ToRight:=6
ActiveSheet.PivotTables("Tabla dinámica4").PivotFields("ZONA").CurrentPage = _
"30"
ActiveWindow.SmallScroll ToRight:=7
Selection.AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd
ActiveSheet.Outline.ShowLevels RowLevels:=1
ActiveWindow.Close
ActiveWindow.WindowState = xlMaximized
End Sub