Thema Datum  Von Nutzer Rating
Antwort
25.11.2006 07:20:51 Rolf
NotSolved
Blau Aw:aktuelle SideID in PowerPoint
26.11.2006 13:02:41 Stef_113
NotSolved
04.12.2006 21:27:41 Rolf
NotSolved

Ansicht des Beitrags:
Von:
Stef_113		 Datum:
26.11.2006 13:02:41		 Views:
1009		 Rating:
     
Antwort:
  Ja
Thema:
Aw:aktuelle SideID in PowerPoint
Hallo Rolf,

wieviel später meinst du?
Ich hab hier mal ein Beispiel gemacht, welches die ID in einer datei speichert und eine Funktion beinhaltet, welche die ID wieder liest:
---------------------------------------------------------
Private Sub Speichern()
Dim SavePath As String
Set gslides = ActivePresentation.Slides

'Get slide ID
graphSlideID = gslides.Add(2, ppLayoutChart).SlideID

SavePath = "C:\ID.txt"

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(SavePath, True)

a.WriteLine (graphSlideID)
a.Close
End Sub

Public Sub Lesen()
Dim ReadPath As String
ReadPath = "C:\ID.txt"
Const ForReading = 1
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, ts, s
Set fs = CreateObject("Scripting.FileSystemObject") 'Erstellen einer Datei
Set f = fs.GetFile(ReadPath)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)

MsgBox "Die geladene ID lautet: " & ts.ReadLine

ts.Close
End Sub
---------------------------------------------------------
Stefan

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.11.2006 07:20:51 Rolf
NotSolved
Blau Aw:aktuelle SideID in PowerPoint
26.11.2006 13:02:41 Stef_113
NotSolved
04.12.2006 21:27:41 Rolf
NotSolved