|
|
|
|
|
|
|
|
Configuración: Windows XP Internet Explorer 6.0
Hola Master4
Esta bueno el codigo. No habra otro? |
Set cHtml = New clsHtml
With cHtml ' Configuración de colores .BackGroundColorCell = vbBlack ' color de celda .BackGroundColorPage = vbBlue ' color de fondo de la página ' etc.. ' Configuración de fuentes .FontNameHeader = "Verdana" .FontNameCell = "Arial" 'etc.. ' alineación del texto .AlignFontCell = AlignCenter .AlignFontColumnHeader = AlignCenter .PictureLogoAlign = AlignCenter ' alineación de la imagen del logo ' etc.. ' imagenes ( fondo de la página, de la tabla, logo y viñeta) .BackGroundPicturePage = App.Path & "\fondo pagina.png" .PictureBackGroundTable = App.Path & "\fondo Tabla.png" .PictureCellItem = App.Path & "\viñeta item.png" .PictureLogoPath = App.Path & "\logo encabezado.png" ' insertar código html al final del listado .InsertHtml "código", [Despues del Pie] ' establecer el path del archivo .OutputPath = App.Path & "\a.html" ' guardar la configuración al salir .UseIniFile = True End With |
Muchas gracias por todo.
Chau |
Resultados de
Resultados de
Resultados de
Resultados de
Resultados de