Método Application.LoadCustomUI (Access)
Carga el código XML que representa una cinta de opciones personalizada.
Sintaxis
expresión. LoadCustomUI (CustomUIName, CustomUIXML)
Expresión Expresión que devuelve un objeto Application .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| CustomUIName | Obligatorio | String | Nombre que se usará para identificar la cinta de opciones personalizada. |
| CustomUIXML | Obligatorio | String | Código XML que define la cinta de opciones personalizada. |
Comentarios
Para crear y poner a disposición para el acceso a la cinta de opciones, primero debe crear un módulo en la base de datos con un procedimiento que llama al método LoadCustomUI, pasando el nombre de la cinta de opciones y el formato de personalización XML. El código XML puede provenir de un objeto Recordset creado a partir de una tabla, de un origen externo a la base de datos (como un archivo XML que se debe analizar en un valor de tipo String) o de un código XML incrustado directamente dentro del procedimiento.
Puede realizar varias cintas de opciones disponibles mediante el uso de varias llamadas al método LoadCustomUI, pasando código XML diferente, siempre que el nombre de cada cinta de opciones y el atributo id de las fichas que componen la cinta de opciones son únicos.
Una vez completado el procedimiento, cree una macro AutoExec que llame al procedimiento con la acción RunCode. De este modo, cuando se inicia la aplicación, el método LoadCustomUI se ejecuta automáticamente y todas las cintas personalizadas estarán disponibles para la aplicación.
Ejemplo:
En el ejemplo de código siguiente se crea un conjunto de registros de cualquier tabla que contiene la palabra "Cintas" en su nombre. A continuación, llama al método LoadCustomUI para cargar las cintas de opciones para que estén disponibles para la base de datos. Por último, se cierra el conjunto de registros y la referencia al objeto de base de datos.
Function LoadRibbons()
Dim i As Integer
Dim db As DAO.Database
Set db = Application.CurrentDb
For i = 0 To (db.TableDefs.Count - 1)
If (InStr(1, db.TableDefs(i).Name, "Ribbons")) Then
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(db.TableDefs(i).Name)
rs.MoveFirst
While Not rs.EOF
Application.LoadCustomUI rs("RibbonName").Value, rs("RibbonXml").Value
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
End If
Next i
db.Close
Set db = Nothing
End Function
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.