Dateiname um eins erhöhen

[lukascooper]

Hallo,

Kann mir jemand hilfen?

Habe dieses Makro


Sub Makro1()
ActivePresentation.Slides.Add(Index:=45, Layout:=ppLayoutText).Select
ActiveWindow.Selection.SlideRange.Layout = ppLayoutLargeObject
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="C:\Bilder\Neuer Ordner\PICT0045.JPG", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-407, Top:=-305, Width:=1536, Height:=1152).Select
End Sub


Nun zur meiner Frag.Wie kriege ich es hin das mir das Makro den Datenname um ein erhöht. Im Klartext aus PICT0045.JPG PICT0046.JPG macht

Danke im voraus für die Antworten

 

[Yoah]

Moin,

im Prinzip, so wie ich das aus dem Makro sehe, könntest du an den Dateinamen,
den du dir selber ausdenkst, z.B. Image, etwas anhängen (keinen Mord, sondern eine Zahl)

Versuch mal aus deinem Makro folgendes zu machen:
Benenne den Dateinamen als "Image"
Du machst ja ein AddPicture, wo der Datename drin steht, dem Dateinamen hängst du den
Index von der Add Funktion an:
"Image" & Index
so hast du individuelle Dateinamen, abhängig von dem Index.

 

[lukascooper]

Danke für die Antwort.
Leider bin ich anfänger und kann nicht so viel mit deiner Antwort anfangen.Ich möchte das Makro so ändern das er mir jedesman wenn ich das Makro starte den Namen der Datei PICT0045.JPG um eins erhöht.