Propriedade Application.ReplaceFormat (Excel)

Define os critérios de substituição a serem usados ao substituir formatos de células. Os critérios de substituição são, em seguida, utilizados numa chamada subsequente para o método Substituir do objeto Intervalo .

Sintaxe

expressão. SubstituirFormatar

expressão Uma variável que representa um Aplicativo objeto.

Exemplo

O exemplo seguinte define os critérios de pesquisa para localizar células que contenham o tipo de letra Arial, Regular, Tamanho 10, substitui os respetivos formatos pelo tipo de letra Arial, Negrito, Tamanho 8 e, em seguida, chama o método Substituir , com os argumentos opcionais de SearchFormat e ReplaceFormat definidos como Verdadeiro para efetuar as alterações.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.