Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Incluir ultimos archivos en menu personalizado

09/10/2006 - 00:33 por Ivan | Informe spam
Ayuda Hacer una pregunta
hola a todos

estoy creando una barra de menus personalida via codigo. En ella hay
algunos controles integrados que parecen funcionar sin problemas, pero
no consigo que se reflejen los ultimos libros con los que se ha
trabajado, como ocurre en el menu archivo normal, a pesar de asignar el
'Id' (creo que) correspondiente con la siguiente instruccion:

Set opMenu = MenuGeneral.Controls.Add(Type:=msoControlButton, ID:ƒ1)
'Archivo reciente

pensaba que ocurrira como con los demas controles integrados, que
automaticamente haria lo mismo que en la aplicacion 'padre' e incluiria
estos nombres de archivo en mi nuevo menu ( que se llama 'General'),
pero de momento solo consigo que me refleje el caption del control
(&Recent File Name Goes Here)

¿quiza haya que 'incluirlos con el OnAction del mismo menu? si es asi,
¿que instruccion deberia usar para reflejar pej. los 4 ultimos libros
trabajados-he creado sus respectivos 4 controles-?

como datos, por si pudieran estar influyendo, la barra se crea al abrir
el libro (_Open), se oculta/muestra al activar/desactivar y se elimina
en Beforeclose

bueno, de momento solo se me ocurre lo de incluirlos al desplegarse el
menu contenedor (¿con el OnAction de este?), pero no se como
buscarlos/incluirlos

si podeis ayudarme os lo agradezco

un saludo y hasta pronto
Ivan
email Siga el debateRespuesta 11 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Ivan
09/10/2006 - 02:55 | Informe spam
hola de nuevo,

disculpad que sea un pesado, pero he probado el siguiente codigo y no
acabo de entender por que no hace nada, ni siquiera da error:

Sub UltimosArchivos()
Dim inA As Single
With Application.FileSearch
.NewSearch
.LookIn = "C:\Mis documentos"
.SearchSubFolders = True
.Filename = "*.xls"
.FileType = msoFileTypeExcelWorkbooks
If .Execute(SortBy:=msoSortByLastModified, _
SortOrder:=msoSortOrderAscending) > 0 Then
For inA = 1 To 4
CommandBars("MenuGeneral").Controls("opArchivo" & inA) _
.Caption = "&" & inA & " " & .FoundFiles(inA)
Next
End If
End With
End Sub

esta asociado al OnAction del menu contenedor (MenuGeneral) y mi
intencion con el es sustituir el caption de 4 controles (opArchivo1,
opArchivo2,...) por el nomdre y la ruta de los 4 ultimos archivos
'usados'.

si alguien ve donde estoy metiendo la pata, le agradeceria que me lo
indicara

un saludo y hasta pronto
Ivan

Preguntas similares

 

Busqueda sugerida :