Excel VBA更改页脚字体和字体大小

Posted 2023-03-21

【中文标题】Excel VBA更改页脚字体和字体大小

【英文标题】：Excel VBA change footer font and font size

【发布时间】：2021-07-18 04:27:00

【问题描述】：

以下 Excel VBA 代码会在单元格值更改时自动更改页脚，但 Excel 也会更改字体和大小。我试图保持字体 Arial 和字体大小 10。我该怎么做？谢谢！

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Address = "$E$4" Then
        ActiveSheet.PageSetup.LeftFooter = Range("$G$4").Value
    End If
End Sub

【参考方案1】：

试试这个：

ActiveSheet.PageSetup.LeftFooter = "&""Arial""&10" & Range("$G$4").Value