Zugriff auf das benutzerdefinierte Fußzeilen-Dialogfeld von Excel mit VBA

Question

Gibt es eine Möglichkeit, auf das integrierte benutzerdefinierte Fußzeilen-Dialogfeld von Excel mit VBA zuzugreifen? Ich möchte auf das eigentliche Dialogfeld zugreifen. Ich weiß, wie man die Fußzeile über ActiveSheet.PageSetup direkt ändert.

Ich kann die Seite einrichten über Application.Dialogs(xlDialogPageSetup).Show öffnen, aber ich bin nicht in der Lage, auf die Registerkarte Kopfzeile/Fußzeile, dann Custom Footer.

Hier ist, was ich versucht habe:

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

Danke.

EDIT: Vielen Dank für Ihre Antworten, und meine Entschuldigung dafür, nicht klarer zu sein.

Wie oben erwähnt, verstehe ich, wie man ActiveSheet.PageSetup verwendet, um die linken/mittleren/rechten Fußzeilenfelder zu ändern; Ich möchte jedoch direkten Zugriff auf das Dialogfeld Benutzerdefinierte Fußzeile, so dass nicht-technische Kollegen diese Felder in einer vertrauten Weise ändern können, im Gegensatz zu sie durch die VBA zu sehen und die vorhandenen Textzeichenfolgen ändern und/oder Codes.

Answer 1

Sie müssen keine Dialogbox aufrufen. Sie können Kopf-/Fußzeilen direkt zugreifen:

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

Mehr auf MSDN - Formatting and VBA Codes for Headers and Footers

Answer 2

genauer sein es

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

für die Fußzeile sein würde.

Es gibt drei Punkte, auf die Sie zugreifen können, LeftFooter, CenterFooter und RightFooter. Das gilt auch für den Header.

Diese Frage wurde bereits gestellt und beantwortet here.