Propiedad Application.ReplaceFormat (Excel)

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.