Officefull.es

Excel, word, powerpoint, android

Cinta Ribbon 2007 Iconos marzo 16, 2008

 

Iconos para nuestro Office 2007

Cinta Ribbon

 

En versiones anteriores de Microsoft Office podiamos coger los iconos que mostraban las barras de herramientas o menús y que en un próximo artículo os mostrare detalladamente como podéis copiar y pegar dichos Iconos en vuestro office word.

En este artículo os voy a mostrar como podéis realizarlo en Word 2007 y como podéis insertarlo en vuestro documento de Word , además de guardar dichos iconos en una carpeta para poder utilizarlos luego, por ejemplo en vuestra Web o simplemente para poder disponer de ellos en otras aplicaciones.

 

Pasos a seguir:

 

Leeros a fondo el siguiente artículo realizado por Marta PM una gran Mvp en Microsoft Office System 

Cómo Personalizar la Cinta de Opciones (Ribbon) en Office 2007

Una vez hayáis leído el artículo y hayáis entendido el significado del nuevo Office 2007 y su interfaz unida al formato abierto XML , entonces solo entonces, estáis ya preparados para poder manipular mediante programación vuestra interfaz en Office 2007 :

[ Word, Excel y Power Point ]

Descargaros el siguiente programa para poder manejar con soltura los archivos XML creados y así poder guardarlos correctamente con formato XML corrigiendo de esta manera algunos saltos de líneas y espacios no deseados:

XML Notepad 2007

 

 

Como imagino que os habréis leído el artículo de nuestra compañera Marta PM a fondo, no os hace falta que os diga que necesitáis también descargaros el programa que ella ha creado para facilitarnos así la subida del archivo XML a nuestro documento de Word, Excel o Power Point y que libremente os podéis descargar.

[ Lo tenéis en el artículo que os he ofrecido ]

Pasos que se han realizado para crear el Archivo de Iconos para Word 2007

 

Primero de todo creamos el XML [ como el archivo XML es muy extenso simplemente os pongo unos cuantos items para el primer grupo de botones denominado << Iconos Ficha Inicio >> ] y lo empezamos a crear en un archivo TXT con sus correspondientes etiquetas de apertura y cierre, por ejemplo :

<?xml version=”1.0″ encoding=”utf-8″?><br /><customUI xmlns=”</span><a href=”http://schemas.microsoft.com/office/2006/01/customui”><span style=”font-size: 8pt;”>http://schemas.microsoft.com/office/2006/01/customui</span><span style=”font-size: 8pt;”>”><br /> <ribbon><br /> <tabs><br /> <tab id=”MDA” label=”Galeria Iconos”><br /> <group id=”GrupoGaleriaIconos1″ label=”Inicio”><br /><gallery id=”gal1″ tag=”strnombre” label=”Iconos Ficha Inicio” imageMso=”FunctionsDateTimeInsertGallery” itemWidth=”20″ itemHeight=”20″ size=”large” onAction=”AccionIco”><br /> <item id=”FontSizeIncreaseWord” imageMso=”FontSizeIncreaseWord” screentip=”Agrandar fuente” />
<item id=”AsianLayoutFitText” imageMso=”AsianLayoutFitText” screentip=”Ajustar texto” />
<item id=”AsianLayoutCharacterScaling” imageMso=”AsianLayoutCharacterScaling” screentip=”Ajuste de escala” />
<item id=”AlignLeft” imageMso=”AlignLeft” screentip=”Alinear a la izquierda ” />
<item id=”AlignRight” imageMso=”AlignRight” screentip=”Alinear texto a la derecha” />
<item id=”ApplyStylesPane” imageMso=”ApplyStylesPane” screentip=”Aplicar estilos” />
<item id=”IndentIncreaseWord” imageMso=”IndentIncreaseWord” screentip=”Aumentar sangria” />
<item id=”CharacterBorder” imageMso=”CharacterBorder” screentip=”Borde de caracteres ” /></gallery>
</group>
</tab>
</tabs>
</ribbon>
</customUI>

Luego abrimos el programa XML Notepead 2007 >> copiamos el código que previamente he creado en un archivo TXT y que ahora quiero convertir a formato XML y pegamos en el Notepad 2007 de la siguiente manera >>

 

Una vez abierto el XML Notepad 2007 click derecho del ratón sobre el escenario o cualquier punto de programa abierto y click en boton pegar >>

Una vez que hemos hecho click en Paste [ pegar ] nos aparecera de la siguiente manera >>

***Nota: Si tiene algun error el programa nos avisara de dicho error y nos dira en que linea del TXT tenemos el error y el caracter exacto que nos esta fallando

 

Una vez copiado – pegado podemos añadir mas Atributos a nuestro archivo XML desde el propio programa y una vez terminado podemos guardarlo desde el menu File >> Save As y le ponéis el nombre que queráis a vuestro archivo, yo os aconsejaria que siempre utiliceis el mismo nombre por ejemplo >>

customUI.xml

pero eso ya a gustos jejeje!

Una vez guardado nuestro XML nos vamos ahora a adjuntarlo a un documento o plantilla de word, en mi caso vamos a adjuntarlo en una Pantilla de Word habilitada para macros ya que vamos a añadir macros para las funciones de los Icónos…

Abrimos el programa de nuestra compañera Marta PM >>

personalizar cinta de opciones

Como véis podéis hacerlo en un documento nuevo o bien en uno existente…

Luego una vez buscado nuestro archivo nos aparecera un mensaje en el cual vamos a hacer click en ACEPTAR sino mal vamos 😛 !! >>

personalizar cinta opciones

Y es entonces cuando nos preguntara el programa que tenemos que adjuntar nuestro XML, buscamos nuestro XML >>

personalizar cinta opciones

Una vez adjuntado nos hace el programa una validación para ver si está todo correcto y de se así >>

personalizar cinta ribbon

Le decimos que << SI >> y ya estara subido nuestro XML en nuestro archivo de Word. Ahora podemos ir a nuestro archivo de WORD y mirar nuestra obra de arte

Podemos repetir o mejor dicho podemos subir tantas veces como queramos [ nuestro archivo de XML ] a nuestro archivo de Word para ver como van quedando nuestros iconos 

Segun el ejemplo aquí expuesto asi nos quedaría nuestro boton de iconos en Word >>

iconos inicio word 2007

Macro creada para dicho articulo >>

El archivo contiene la siguiente macro:

‘—————————————————————————-

Option Explicit

Sub AccionIco(control As IRibbonControl, id As String, Index As Integer)
‘strnombre para futuro codigo
Dim x As String
Dim y As String
Dim form As New FormIconos2oo7
y = “C:\Office_iconos_2007″<br /> <br />On Error Resume Next<br />MkDir y<br />On Error GoTo errN<br /> </span></p> <p><span style=”font-size: 8pt;”>x = id<br />With Application.CommandBars<br />Set form.Imagemso.Picture = .GetImageMso(id, 20, 20)<br />End With<br /> <br />SavePicture form.Imagemso.Picture, y & “\” & x & “.jpg”
Selection.InlineShapes.AddPicture FileName:=y & “\” & x & “.jpg”, LinkToFile:= _
False
Selection.Collapse

errN:

If Err.Number = 76 Then
MsgBox “No hay unidad C:\ cambia en el codigo VBA la unidad” & _
“de tu disco duro donde desees guardar tus iconos “
End If

End Sub

 

‘——————————————————————————

El archivo contiene un Userform el cual es necesario para poder tomar, coger la imagen de los Iconos para su posterior inserción en el documento y poder guardarlos en la carpeta creada.

El código Crea una carpeta en la Unidad [ C:\ ] llamada [ office_Iconos_2oo7 ] y en ella guardara todos los iconos que vayamos insertando en el Documento de Word para su posterior utilizacion.

Podéis observar su código y su realización desde el propio archivo:

Descarga del archivo <<iconaqui >>

 

Referencias:

Os podéis descargar el archivo de excel, el cual me he guiado para realizar el archivo de Word 2oo7 desde >>

Microsoft download >> 2oo7 Office System Add-in: Iconos Gallery

 

http://msdn2.microsoft.com/es-es/library/aa942954(VS.80).aspx

http://msdn2.microsoft.com/en-us/library/ms406046.aspx

 

Y eso es todo…

Monica-Tux 

Categorías: Sin categoría

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *