problemas con commandbar de un menu personalizado

'Dim myBar As CommandBarControl, myBar As CommandBarControl

hola Karina,

me da la impresion de que esto lo tienes como comentario,=>

> 'Dim myBar As CommandBarControl, myBar As CommandBarControl

por eso, probablemente te dice que te hace falta un objeto, por que
realmente no lo has declarado

prueba a quitarle al comilla simple (apostrofe) que hay delante de la
linea (esta comilla convierte la linea en comentario, y vba no la toma
en cuebnta)

si sigue sin funcionar comentas (no he mirado el resto)

un saludo Ivan

On 15 ago, 23:56, Ivan wrote:
> hola Karina,
>
> me da la impresion de que esto lo tienes como comentario,=>
>
> > 'Dim myBar As CommandBarControl, myBar As CommandBarControl
>
> por eso, probablemente te dice que te hace falta un objeto, por que
> realmente no lo has declarado
>
> prueba a quitarle al comilla simple (apostrofe) que hay delante de la
> linea (esta comilla convierte la linea en comentario, y vba no la toma
> en cuebnta)
>
> si sigue sin funcionar comentas (no he mirado el resto)
>
> un saludo Ivan

hola de nuevo,

y mirandolo (solo un poco) mas, creo que el problema se repite por
todos o casi todos los procedimientos

prueba a ir probando a quitar la/s comilla/s.

de todas formas, no se cual sera tu intencion, pero visto por encima,
me da la impresion de que tienes un poco de [exceso de] caos en los
codigos.

posiblemente ( y no me hagas demasiado caso) podrias unificar la
creacion de los menus e ir mostrando/ocultando y/o habilitando /
deshabilitando segun te interese, aparte de que, salvo que los menus
se queden permanentes como opcion entre los personalizados, tambien te
interesaria (posiblemente) eliminarlos, pej. al cerrar el archivo

bueno, yo no controlo mucho el tema, pero si aportas detalles mas
concretos, seguro que si no yo, alguien mas te echa una mano.

un saludo
Ivan

Hola

De hecho Dim myBar As CommandBarControl, myBar As CommandBarControl si lo
tengo declarado y si crea el menu el problema solo esta en las marcas de
verificación.

Dejo de nuevo parte del código ya sin comentarios, espero este mas entendible.

Private Sub IniBN_Click()

Dim myBar As CommandBarControl
RemoveMenu
Set myBar = Application.CommandBars(1).Controls.Add(msoControlPopup, , ,
, True)
With myBar
.Caption = "&MÓDULO DE ZAPATAS"
.Tag = "Módulo de zapatas"
.BeginGroup = False
End With
If myBar Is Nothing Then Exit Sub

'Set myBar = CommandBars.Add(Name:="foundCFE_CB", Position:=msoBarPopup,
temporary:=False)
With myBar
.Controls.Add(Type:=msoControlPopup, Before:=1).Caption = "Archivo"
.Controls.Add(Type:=msoControlPopup).Caption = "Tipo de Análisis"
.Controls.Add(Type:=msoControlPopup).Caption = "Opciones"
.Controls.Add(Type:=msoControlPopup).Caption = "Ayuda"
With .Controls("Archivo")
.Controls.Add(Type:=msoControlButton, Before:=1, ID:).Caption > "Nuevo"
.Controls("Nuevo").OnAction = "Hoja1.Nuevo_Click"
.Controls.Add(Type:=msoControlButton, ID:#).Caption = "Abrir"
.Controls("Abrir").OnAction = "Hoja1.Abrir_Click"
.Controls.Add(Type:=msoControlButton, ID:=3).Caption = "Guardar"

'Corrección hecha: Se sustituyó "Controls("Abrir")" por
"Controls("Guardar")" 16-06-2007 KCF
.Controls("Guardar").OnAction = "Hoja1.Guardar_Click"
.Controls.Add(Type:=msoControlButton, ID:=3).Caption = "Guardar Como..."
.Controls("Guardar Como...").OnAction = "Hoja1.GuardarComo_Click"
.Controls.Add(Type:=msoControlButton, ID:#).Caption = "Archivo Cargas"
.Controls("Archivo Cargas").OnAction = "Hoja1.ArchivoCargas_Click"
.Controls.Add(Type:=msoControlButton).Caption = "Salir"
.Controls("Archivo Cargas").BeginGroup = True
.Controls("Salir").BeginGroup = True
.Controls("Archivo Cargas").Enabled = False
End With
With .Controls("Tipo de Análisis") 'Tipo de submenu con marca de
verificación
.Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Individual"
.Controls("Individual").OnAction = "Hoja1.Individual_Click"
.Controls.Add(Type:=msoControlButton).Caption = "Conjunto P/Torre"
.Controls("Conjunto P/Torre").OnAction = "Hoja1.ConjTorre_Click"
.Controls.Add(Type:=msoControlButton).Caption = "Ejecutar"
.Controls("Ejecutar").OnAction = "Hoja1.Ejecutar_Click"

.Controls("Individual").State = msoButtonDown
.Controls("Ejecutar").BeginGroup = True
.Controls("Ejecutar").Enabled = False
End With
With .Controls("Opciones")
.Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Tipo de
Cimiento"
.Controls.Add(Type:=msoControlButton).Caption = "Especificaciones"
.Controls("Especificaciones").OnAction = "Hoja1.Especificacion_Click"
.Controls("Especificaciones").BeginGroup = True
.Controls("Tipo de Cimiento").Enabled = False
End With
With .Controls("Ayuda")
.Controls.Add(Type:=msoControlButton, Before:=1, ID:=3).Caption > "Acerca de ..."
.Controls("Acerca de ...").FaceId = 133
.Controls("Acerca de ...").OnAction = "Hoja1.Acerca_LBL_Click"

End With

End With

End Sub

Sub Individual_Click()

Set myBar = Application.CommandBars(1).Controls.Add(msoControlPopup, , ,
, True)
'myBar.Controls("Tipo de Análisis").Controls("Individual").State > msoButtonDown
'myBar.Controls("Tipo de Análisis").Controls("Conjunto P/Torre").State > msoButtonUp
With myBar
.Controls("Archivo").Controls("Nuevo").Enabled = True
.Controls("Archivo").Controls("Abrir").Enabled = True
.Controls("Archivo").Controls("Guardar Como...").Enabled = True
.Controls("Archivo").Controls("Guardar").Enabled = True
.Controls("Archivo").Controls("Archivo Cargas").Enabled = False
End With
End Sub

Sub ConjTorre_Click()

Set myBar = myBar.Controls("Tipo de
Análisis").Controls("Individual").State = msoButtonUp
myBar.Controls("Tipo de Análisis").Controls("Conjunto P/Torre").State > msoButtonDown
myBar.Controls("Archivo Cargas").Controls().Enabled = True
myBar.Controls("Archivo").Controls("Nuevo").Enabled = False
myBar.Controls("Archivo").Controls("Abrir").Enabled = False
myBar.Controls("Archivo").Controls("Guardar Como...").Enabled = False
myBar.Controls("Archivo").Controls("Guardar").Enabled = False
myBar.Controls("Archivo").Controls("Archivo Cargas").Enabled = True

End Sub

Sub RemoveMenu()
DeleteCustomCommandBarControl "Módulo de zapatas"
End Sub
Private Sub DeleteCustomCommandBarControl(CustomControlTag As String)
On Error Resume Next
Do
Application.CommandBars.FindControl(, , CustomControlTag,
False).Delete
Loop Until Application.CommandBars.FindControl(, , CustomControlTag,
False) Is Nothing
On Error GoTo 0
End Sub

"Ivan" escribió:



> On 15 ago, 23:56, Ivan wrote:
> > hola Karina,

> > me da la impresion de que esto lo tienes como comentario,=>

> > > 'Dim myBar As CommandBarControl, myBar As CommandBarControl

> > por eso, probablemente te dice que te hace falta un objeto, por que
> > realmente no lo has declarado

> > prueba a quitarle al comilla simple (apostrofe) que hay delante de la
> > linea (esta comilla convierte la linea en comentario, y vba no la toma
> > en cuebnta)

> > si sigue sin funcionar comentas (no he mirado el resto)

> > un saludo Ivan

> hola de nuevo,

> y mirandolo (solo un poco) mas, creo que el problema se repite por
> todos o casi todos los procedimientos

> prueba a ir probando a quitar la/s comilla/s.

> de todas formas, no se cual sera tu intencion, pero visto por encima,
> me da la impresion de que tienes un poco de [exceso de] caos en los
> codigos.

> posiblemente ( y no me hagas demasiado caso) podrias unificar la
> creacion de los menus e ir mostrando/ocultando y/o habilitando /
> deshabilitando segun te interese, aparte de que, salvo que los menus
> se queden permanentes como opcion entre los personalizados, tambien te
> interesaria (posiblemente) eliminarlos, pej. al cerrar el archivo

> bueno, yo no controlo mucho el tema, pero si aportas detalles mas
> concretos, seguro que si no yo, alguien mas te echa una mano.

> un saludo
> Ivan- Ocultar texto de la cita -

- Mostrar texto de la cita -