Cambiar de color y tipo de letra en macro Excel
Tengo este código
dam.body = "Ultimo estado del proyecto" & vbCr & h.Range("F" & i) & vbCr & h.Range("C1") & vbCr & h.Range("C" & i)
Pero digamos que quiero que la palabra "Ultimo Estado del proyecto", este con una tamaño especifico, este en negrita subrrayado y que además sea de color azul.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Tienes que cambiar esta línea
dam.body = "Ultimo estado del proyecto" & vbCr & h.Range("F" & i) & vbCr & h.Range("C1") & vbCr & h.Range("C" & i)Por estas:
Cuerpo = "Ultimo estado del proyecto" & vbCr & h.Range("F" & i) & vbCr & h.Range("C1") & vbCr & h.Range("C" & i)
dam.HTMLBody = _
"<HTML> " & _
"<BODY>" & _
"<b><u><P>" & _
"<font face=""Calibri"" size=7 color=""Chocolate"">" & _
Cuerpo & _
"</font>" & _
"</b></u></P>" & _
"</BODY> " & _
"</HTML>"
Dam. DisplayCambia Calibri por el nombre de la funte.
El size = 7 es el tamaño, sólo acepta valores del 1 al 7. Donde 1 es el tamaño más pequeño del tipo de letra y 7 es el más grande.
El color "Chocolate", lo puedes cambiar por otro nombre, revisa la lista de nombres de colores en este enlace:
http://www.w3schools.com/tags/ref_colornames.asp
