PPT VBA: Automatically rename saved file based on cell value of a table

Thanks Abdal for your quick reply.
Your code works!
In the beginning, the code did not get the value I wanted to have.
I found out, even though it´s my first colom if you "look" at the slide, it´s colum 6.
So I changed Set tbl = oPres.Slides(1). Shapes(1). Table to [...] Shapes(6).Table.
I just tried out by starting 2, 3, 4, ...
What is the "right" way to get the id of the shape?
I found that picture below, but this seems not to be the right way.
Thank you,
Marcel

Hello

I am Abdal and I would be glad to help you with your question.

To add the cell value of row 2 and column 5 to the file name, you can simply retrieve the value from the table and append it to the strName variable before saving the file.

Here's the modified code:

Sub resave()

Dim strDate As String
Dim strFilePath As String
Dim L As Long
Dim iPos As Integer
Dim strName As String
Dim strSuffix As String
Dim oPres As Presentation
Const Folderpath As String = "C:\Users\xxx\"
Const strSpec As String = "*.ppt*"
On Error Resume Next
MkDir Folderpath & "\Resaved Files"
'First match
strFilePath = Dir$(Folderpath & strSpec)
While strFilePath <> ""
strName = ""
Set oPres = Presentations.Open(FileName:=Folderpath & strFilePath, WithWindow:=False)
iPos = InStrRev(oPres.Name, ".")
strSuffix = Mid(oPres.Name, iPos)
strName = oPres.Slides(1). Shapes.Title.TextFrame.TextRange
strName = clean(strName)

' Get value from cell(2,5) of the first table on slide 1
Dim tbl As Table
Set tbl = oPres.Slides(1). Shapes(1). Table
Dim cellValue As String
cellValue = tbl. Cell(2, 5). Shape.TextFrame.TextRange

If strName = "" Then strName = "Slide1"
strDate = oPres.BuiltInDocumentProperties("Last save time")
strDate = Format(strDate, "mmm dd yyyy hh_mm")
' Append cell value to the file name
oPres.SaveCopyAs Folderpath & "Resaved Files\" & strName & "_" & cellValue & strDate & strSuffix
oPres.Close
strFilePath = Dir$
Wend
End Sub

This code retrieves the first table on slide 1 using oPres.Slides(1). Shapes(1). You might need to modify this if you have multiple tables on your slide. The cell value is retrieved using tbl. Cell(2, 5). Shape.TextFrame.TextRange.

The file name is constructed by concatenating the strName, cell value, strDate, and strSuffix variables. Note that I added an underscore character between strName and cellValue to make the file name more readable.

I hope this information helps.

Regards,

Abdal

S P I T ZE

Jezt muss ich nur versuchen selbst zu begreifen wie es funktioniert

Nochmals vielen, vielen Dank!

Giorgio

Hallo,

wenn du unbedingt englisch schreiben willst, scrolle bitte ganz nach unten und wähle dort Englisch als Sprache. Hier ist das deutsche Forum.

Markiere deine Zellen D2 bis Ende und gebe bei der bedingten Formatierung als Formel ein:

=UND($B2<=DATWERT(LINKS(D$1;FINDEN("/";D$1)-1));$C2>=DATWERT(TEIL(D$1;FINDEN("/";D$1)+1;99)))

und weise dein gewünschtes Format zu.

Mit freundlichen Grüßen

Claus

Hi Giorgio,

dann probiere es mit:

=UND($B2<=DATWERT(LINKS(D$1;FINDEN("/";D$1)-1));WENN(UND($B2>0;$C2=0);HEUTE();$C2)>=DATWERT(TEIL(D$1;FINDEN("/";D$1)+1;99)))

Mit freundlichen Grüßen

Claus