Freigeben über

Application.ReplaceFormat-Eigenschaft (Excel)

  • Artikel

Legt das Kriterium zum Ersetzen von Zellenformaten fest. Die Ersetzungskriterien werden dann in einem nachfolgenden Aufruf der Replace-Methode des Range-Objekts verwendet.

Syntax

Ausdruck. ReplaceFormat

expression Eine Variable, die ein Application-Objekt darstellt.

Beispiel

Im folgenden Beispiel werden die Suchkriterien festgelegt, um Zellen zu finden, die die SchriftartEn Arial, Regular, Size 10 enthalten, deren Formate durch Arial, Bold, Size 8 font ersetzt werden, und ruft dann die Replace-Methode auf, wobei die optionalen Argumente von SearchFormat und ReplaceFormat auf True festgelegt sind, um die Änderungen tatsächlich vorzunehmen.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.