Compartir vía

Propiedad Application.ReplaceFormat (Excel)

  • Artículo

Establece los criterios de reemplazo que se emplean para sustituir formatos de celda. A continuación, los criterios de reemplazo se usan en una llamada posterior al método Replace del objeto Range .

Sintaxis

expresión. ReplaceFormat

expresión Variable que representa un objeto Application.

Ejemplo:

En el ejemplo siguiente se establecen los criterios de búsqueda para buscar celdas que contienen fuentes Arial, Regular, Size 10, se reemplazan sus formatos por fuente Arial, Bold, Size 8 y, a continuación, se llama al método Replace , con los argumentos opcionales SearchFormat y ReplaceFormat establecidos en True para realizar realmente los cambios.

Sub MakeBold() 
 
 ' Establish search criteria. 
 With Application.FindFormat.Font 
 .Name = "Arial" 
 .FontStyle = "Regular" 
 .Size = 10 
 End With 
 
 ' Establish replacement criteria. 
 With Application.ReplaceFormat.Font 
 .Name = "Arial" 
 .FontStyle = "Bold" 
 .Size = 8 
 End With 
 
 ' Notify user. 
 With Application.ReplaceFormat.Font 
 MsgBox .Name & "-" & .FontStyle & "-" & .Size & _ 
 " font is what the search criteria will replace cell formats with." 
 End With 
 
 ' Make the replacements on the worksheet. 
 Cells.Replace What:="", Replacement:="", _ 
 SearchFormat:=True, ReplaceFormat:=True 
 
End Sub

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.