Question

有没有办法通过VBA访问Excel的内置自定义页脚对话框？我想访问实际的对话框;我知道如何通过ActiveSheet.PageSetup直接修改页脚。

我可以通过Application.Dialogs(xlDialogPageSetup).Show打开页面设置框，但我无法进入页眉/页脚选项卡，然后是自定义页脚。

以下是我尝试的内容：

Application.Dialogs(xlDialogPageSetup).Show
Application.SendKeys "h" 'Go to the Header/Footer tab
Application.SendKeys "{TAB}{TAB}{TAB}{ENTER}", True 'Go to Custom Footer

谢谢。

修改感谢您迄今为止的回复，并且对于不清楚而道歉。

如上所述，我了解如何使用ActiveSheet.PageSetup修改左/中/右页脚字段;但是，我希望直接访问“自定义页脚”对话框，以便非技术人员能够以熟悉的方式轻松修改这些字段，而不是让他们查看VBA和更改现有的文本字符串和/或代码。

Answer 1

您不必调用任何对话框。您可以直接访问页眉/页脚：

ActiveSheet.PageSetup.CenterHeader = "&D  &B&ITime:&I&B&T"

更多MSDN - Formatting and VBA Codes for Headers and Footers

Answer 2

更准确地说，它将是

ActiveSheet.PageSetup.CenterFooter = "&D  &B&ITime:&I&B&T"

页脚。

您可以访问三个点，LeftFooter，CenterFooter和RightFooter。标题也是一样。

此问题已经被问及并回答here.

访问Excel的自定义页脚对话框w / VBA

2 个答案: