Makro in PPT 2003 erstellt funktioniert nicht in PPT 2007

04/11/2007 - 08:24 von Tutenchamun | Report spam
Powerpoint 2003 (Ursprung des Makro) und Powerpoint 2007

Habe mit hilfe eines powerpoint forums vor einiger zeit das
nachstehend angeführte makro in der version ppt 2003 estellt, mit
welchem ich verschiedene eintràge die fußzeile der folien machen kann.
diese eingaben werden über einer forms eingegeben. zu den daten, die
per form eingegeben werden, wird zusàtzlich noch die foliennummer und
die anzahl der folien gesamt angefügt.

(bitte nicht schimpfen: ich weiss dass hier teilweise die meinung
vertreten wird, dass die anzahl der folien nicht angezeigt werden
soll, aber unser CD sieht eben dieses form vor)

nun habe ich das makro in ppt 2007 ausgestetet und ich bekomme dabei
folgenden fehler

Laufzeitfehler 21471188160 (80048240)
HeaderFooter(unkown member): invalid request

was ist die ursache, vielleicht die verschiedenen masteransichten, die
ppt 2007 gegenüber den vorgàngerversionen

hat jemand eine tipp wie in ppt 2007 der fehler behoben werden könnte.

Private Sub cmdOk_Click()
Dim AnzSeiten As Long, Counter As Integer
Dim anl1, the1, ref1, dat1 As String

anl1 = Me.anl.Value
the1 = Me.the.Value
ref1 = Me.ref.Value
dat1 = Me.dat.Value

AnzSeiten = ActivePresentation.Slides.Count
With ActivePresentation.Slides
For Counter = 1 To AnzSeiten
.Range(Counter).HeadersFooters.Footer.Text = anl1 & " | " & the1 & " |
" & ref1 & " | " & dat1 & _
" | " & "Folie " & Counter & " von " & AnzSeiten
'.Range(Counter).HeadersFooters.Footer.Text = "Folie: " & Counter & "
von " & AnzSeiten
.Range(Counter).HeadersFooters.Footer.Visible = msoCTrue
Next Counter
End With
Unload Me

End Sub

danke
 

Lesen sie die antworten

#1 Dr. Eckehard Pfeifer
04/11/2007 - 22:27 | Warnen spam
Hallo, namenloser Kleinschreiber, vermutlich geht das jetzt über das
CustomLayout einer Folie. Nur: Selbst Änderungen per Hand schlagen da
nicht immer so durch wie erwartet, so dass ein Makro wohl auch keine
Chance hat. Nicht umsonst fehlt der Recorder. Warten wir auf das
Service Pack.

BTW: Wer hat àhnliche Erfahrungen?

MfG EP
Entwicklung - Beratung - Training (www.dr-e-pfeifer.net)
XL-Funktionsverzeichnis (ISBN: 3860636898)
MS Office 2003 - Das Entwicklerbuch (ISBN 3-86063-688-X)

Ähnliche fragen