MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft PowerPoint
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 15.03.2018, 11:13   #1
MatzeB(Punkt)
Neuer Benutzer
Neuer Benutzer
Standard Powerpoint 2010 - Fusszeile über VBA Makro nach links verschieben

Hallo ich bin ein Anfänger in VBA,
Ich habe eine Fußzeile über VBA erstellt und möchte diese jetzt nach links Rücken bekomme es aber nicht hin. Kann mir da jemand auf's Pferd helfen wie ich das machen kann?
Der Code sieht wie folgt aus:

Sub DateinamePfad()
'Dateipfad und Dateiname in Fußzeile

Dim Pfad As String, Datei As String

Pfad = Application.ActivePresentation.Path
Datei = Application.ActivePresentation.Name

For Each Sld In ActivePresentation.Slides
Sld.HeadersFooters.Footer.Visible = msoCTrue
Sld.HeadersFooters.Footer.Text = Pfad & "" & Datei
Next

Vielen Dank vorab.
MatzeB(Punkt) ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.03.2018, 06:32   #2
MatzeB(Punkt)
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Guten Morgen,
hat noch irgendwer so ein Problem oder stehe ich damit alleine da?
MatzeB(Punkt) ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.03.2018, 16:37   #3
Hans Hofmann
MOF Profi
MOF Profi
Standard

Ich würd nicht blind irgendwo reinschreiben. Kein Objekt ist so verwachsen und verboselt wie das Footer-Objekt. Die Eigenschaften .Top .Left .Width .Heigth bestimmen das was draufsteht:
z.B.
Code:

For Each shp In ActiveWindow.View.Slide.Shapes
    If shp.PlaceholderFormat.Type = ppPlaceholderFooter Then
        shp.Left = shp.Left - 10
    End If
Next

__________________

Gruß HW

WebSite: Veröffentlichungen zu PP & VBA

Hans Hofmann ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.03.2018, 07:24   #4
MatzeB(Punkt)
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Hans,
Danke für deine Antwort aber ich habe sie leider nicht integriert bekommen.
Kannst du mir bitte noch mal eine Hilfestellung geben wie ich sie einbinden kann. 1.000 Dank im voraus.

Der Code sieht zurzeit so aus.
Dim AnzSeiten As Long
Dim xSlide As Slide
Dim Shp As Shape
Dim myDocument As Slide
Dim Pfad As String, Datei As String
Dim i As Integer

'Dim Shp As Shape

AnzSeiten = ActivePresentation.Slides.Count
Pfad = Application.ActivePresentation.Path
Datei = Application.ActivePresentation.Name

For Each xSlide In ActivePresentation.Slides
i = xSlide.SlideNumber
xSlide.HeadersFooters.Footer.Visible = msoCTrue
xSlide.HeadersFooters.Footer.Text = Datei

'For Each Shp In ActiveWindow.View.Slide.Shapes
' If Shp.PlaceholderFormat.Type = ppPlaceholderFooter Then
' Shp.Left = Shp.Left - 10
' End If
'Next

Set myDocument = ActivePresentation.Slides(i)
With myDocument.Shapes _
.AddShape(msoShapeRectangle, 619, 0, 100, 50).TextFrame
.TextRange.Text = "Seite " & i & " von " & AnzSeiten
.TextRange.Font.Size = 12
.TextRange.Font.Color = vbBlack
.MarginBottom = 10
.MarginLeft = 10
.MarginRight = 10
.MarginTop = 10

End With

Next
End Sub

Und kannst du mir noch einmal mehr helfen ich möchte das das oben eingefügte Fenster Weiß und nicht Blau ist aber ich habe nur die Settings für die Schriftfarbe gefunden.
MatzeB(Punkt) ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.03.2018, 14:27   #5
Hans Hofmann
MOF Profi
MOF Profi
Standard

Hab grad kein ppt .
Nachlesen hilft ungemein;-)

https://msdn.microsoft.com/de-de/VBA...rty-powerpoint

__________________

Gruß HW

WebSite: Veröffentlichungen zu PP & VBA

Hans Hofmann ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:57 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.